目前公司的产品最终还是硬件产品，在软件上测试仍可以发现少量问题，还是以硬件为主导~~~不管怎么样，还是可以学习并且利用一下自动化工具.下面是我的思路：
首先利用uitraedit-32打开.xml文件更改经纬度，进行坐标点的收藏
再者更改.xml文件更改经纬度，从收藏夹中进入设为终点进行一个自动的设定路径过程
主要的程序脚本如下（需要导入起点与终点的经纬度坐标，K1为终点经度，K2为终点纬度，K3为起点经度，K4为起点纬度）：
_______________
Dim route,object
route="D:\snow\SNOW_TEST\BUILD_SW_V1.0.1014\V0.0.1014_SW_Rev_WX86\config\userconfig.xml"
object="<?xml version='1.0' encoding='gb2312' ?> <UserConfig> <MatchConfig StoreSignal='1' HaveGyroSig='0' HaveAltimeter='0' IsVirtualCom='0' UseKalman='0' SetErrorTime='60' SpeedLimit='70' MaxSignalError='200' MaxPRouteError='0' MaxGyroError='0' MaxKMError='0"
'更改文件配置
Window("UltraEdi").WinMenu("Menu").Select "文件(F);快速打开(Q)... Ctrl+Q"
Window("UltraEdi").Dialog("快速打开").WinEdit("文件名(F):").Set route
Window("UltraEdi").Dialog("快速打开").WinButton("打开(O)").Click
Window("UltraEdi").Window("D:\snow\SNOW_TEST\BUILD_SW_V1.").WinObject("<?xml version='1.0' encoding='").Drag 254,149
Window("UltraEdi").Window("D:\snow\SNOW_TEST\BUILD_SW_V1.").WinObject("<?xml version='1.0' encoding='").Drop 337,149
Window("UltraEdi").Window("D:\snow\SNOW_TEST\BUILD_SW_V1.").WinObject("<?xml version='1.0' encoding='").Type micBack
Window("UltraEdi").Window(route&"*").WinObject(object).Type DataTable("K1", dtGlobalSheet)
Window("UltraEdi").WinToolbar("主工具栏").Press 6
Window("UltraEdi").Window("D:\snow\SNOW_TEST\BUILD_SW_V1.").WinObject("<?xml version='1.0' encoding='").Drag 430,151
Window("UltraEdi").Window("D:\snow\SNOW_TEST\BUILD_SW_V1.").WinObject("<?xml version='1.0' encoding='").Drop 513,151
Window("UltraEdi").Window("D:\snow\SNOW_TEST\BUILD_SW_V1.").WinObject("<?xml version='1.0' encoding='").Type micBack
Window("UltraEdi").Window(route&"*").WinObject(object).Type DataTable("K2", dtGlobalSheet)
Window("UltraEdi").WinToolbar("主工具栏").Press 6
'收藏夹清空
SystemUtil.Run "D:\snow\SNOW_TEST\BUILD_SW_V1.0.1014\V0.0.1014_SW_Rev_WX86\Snow.exe","","D:\snow\SNOW_TEST\BUILD_SW_V1.0.1014\V0.0.1014_SW_Rev_WX86","open"
wait 3
Window("Snow").Type micF4'目的地
wait 3
Window("Snow").Type micF8'同意
wait 1
Window("Snow").Type micPgDwn ''收藏夹
wait 1
Window("Snow").Type micPgUp '删除
wait 1
Window("Snow").Type micEsc
'保存到收藏夹
SystemUtil.Run "D:\snow\SNOW_TEST\BUILD_SW_V1.0.1014\V0.0.1014_SW_Rev_WX86\Snow.exe","","D:\snow\SNOW_TEST\BUILD_SW_V1.0.1014\V0.0.1014_SW_Rev_WX86","open"
wait 3
Window("Snow").Type micF8
wait 3
Window("Snow").Click 201,219
wait 1
Window("Snow").Click 383,158
wait 1
Window("Snow").Click 380,85
wait 1
Window("Snow").Type micEsc
'更改配置文件，设置起点
Window("UltraEdi").WinMenu("Menu").Select "文件(F);快速打开(Q)... Ctrl+Q"
Window("UltraEdi").Dialog("快速打开").WinEdit("文件名(F):").Set route
Window("UltraEdi").Dialog("快速打开").WinButton("打开(O)").Click
Window("UltraEdi").Window("D:\snow\SNOW_TEST\BUILD_SW_V1.").WinObject("<?xml version='1.0' encoding='").Drag 254,149
Window("UltraEdi").Window("D:\snow\SNOW_TEST\BUILD_SW_V1.").WinObject("<?xml version='1.0' encoding='").Drop 337,149
Window("UltraEdi").Window("D:\snow\SNOW_TEST\BUILD_SW_V1.").WinObject("<?xml version='1.0' encoding='").Type micBack
Window("UltraEdi").Window(route&"*").WinObject(object).Type DataTable("K3", dtGlobalSheet)
Window("UltraEdi").WinToolbar("主工具栏").Press 6
Window("UltraEdi").Window("D:\snow\SNOW_TEST\BUILD_SW_V1.").WinObject("<?xml version='1.0' encoding='").Drag 430,151
Window("UltraEdi").Window("D:\snow\SNOW_TEST\BUILD_SW_V1.").WinObject("<?xml version='1.0' encoding='").Drop 513,151
Window("UltraEdi").Window("D:\snow\SNOW_TEST\BUILD_SW_V1.").WinObject("<?xml version='1.0' encoding='").Type micBack
Window("UltraEdi").Window(route&"*").WinObject(object).Type DataTable("K4", dtGlobalSheet)
Window("UltraEdi").WinToolbar("主工具栏").Press 6
Window("UltraEdi").Close
'设定终点
SystemUtil.Run "D:\snow\SNOW_TEST\BUILD_SW_V1.0.1014\V0.0.1014_SW_Rev_WX86\Snow.exe","","D:\snow\SNOW_TEST\BUILD_SW_V1.0.1014\V0.0.1014_SW_Rev_WX86","open"
wait 3
Window("Snow").Type micF4 '主界面选择进入目的地
wait 3
Window("Snow").Click 201,219'同意
wait 1
Window("Snow").Click 384,186'收藏夹
wait 1
Window("Snow").Click 56,23'点击第一个收藏点进入地图
Window("Snow").Click 382,84'设为终点
wait 1
Window("Snow").Click 72,31'选择推荐路径
wait 1
Window("Snow").Click 221,172
wait 20
Window("Snow").Type micEsc
________________________
整个脚本如上，在该脚本中，学习到了如何切换对象，比如，我刚开始的应用程序是uitraedit-32，后面的用到SystemUtil.Run 切换到snow.exe
问题：整个录制都是没有active screen 的 ，这里该如何进行判断，让自动化工作更加完善也有一个挑战~
