|
在QTP中为了实现使软件安装包自动运行进行安装,大部分的软件都可以在QTP中被捕获到对象库中,即使捕获不到对象库的软件,也可以在QTP中采用AutoIt小工具捕获到窗口或控件,但是还是有些特殊的软件,用这个工具都无法捕获,这时我就使用坐标写死的方法了。
我刚刚写完后运行一下,没有问题,可以自动安装,但是如果多款软件依次安装时,而这个使用坐标写死的脚本放在比较靠后的地方,当执行到这个脚本时,鼠标就不是和单独执行这一个脚本时的一样了,,我不太清楚这是为什么,哪位高手帮下忙呀。。。
以下是我坐标写死1的代码。
Public Function LDS()
Set oAutoIt = CreateObject("AutoItX3.Control")
'点击继续
oAutoIt.ControlClick "安装 - 鲁大师", "", "TNewButton1", "left"
oAutoIt.sleep 500
'点击继续
oAutoIt.ControlClick "安装 - 鲁大师", "", "TNewButton2", "left"
oAutoIt.sleep 500
'点击继续
oAutoIt.ControlClick "安装 - 鲁大师", "", "TNewButton3", "left"
oAutoIt.sleep 500
oAutoIt.WinActive "安装 - 鲁大师"
'取消创建桌面图标
oAutoIt.MouseClick "left",602,390
oAutoIt.sleep 1000
'点击继续
oAutoIt.ControlClick "安装 - 鲁大师", "", "TNewButton3", "left"
oAutoIt.sleep 5000
'忽略一个安装过程中出现的错误
oAutoIt.MouseClick "left",986,564
oAutoIt.sleep 5000
'取消运行鲁大师
oAutoIt.MouseClick "left", 737,417
oAutoIt.sleep 1000
'点击完成
oAutoIt.ControlClick "安装 - 鲁大师", "", "TNewButton3", "left"
oAutoIt.WinWait "[CLASS:IEFrame]"
a=oAutoIt.WinList("[ALL]")
for i=0 to a(0,0)
oAutoIt.WinClose "[CLASS:IEFrame]", ""
next
End Function |
|