hxwb518 发表于 2011-7-31 14:06:22

分享迅雷7安装全过程》老鸟飞过·1

分享迅雷7安装全过程》老鸟飞过·1Run(@ScriptDir & "\Thunder7.2.1.3136.exe")
$a ="迅雷7安装程序"
$b ="软件许可协议"
WinWait($a,$b)
WinActivate($a,$b)
WinWaitActive($a,$b)
Send("{enter}")
;第二步安装，选择程序 ！
WinWait($a,"C:\Program Files\Thunder Network\Thunder")
WinWaitActive($a,"C:\Program Files\Thunder Network\Thunder")
ControlClick($a,"C:\Program Files\Thunder Network\Thunder","Button5")
ControlClick($a,"C:\Program Files\Thunder Network\Thunder","Button6")
ControlClick($a,"C:\Program Files\Thunder Network\Thunder","Button7")
WinWaitActive("迅雷7","")
ControlClick("迅雷7","","Button2")
Send("{enter}")
WinWaitActive("迅雷7","")
ControlClick("迅雷7","","Button2")
Send("{enter}")
;正在等待安装完成的进度
WinWait($a,"")
WinActivate($a,"")
WinWaitActive($a,"")
ControlClick($a,"","Button4")
ControlClick($a,"","Button5")
ControlClick($a,"","Button8")
ControlClick($a,"","Button7")
Send("{enter}")
Run(@ScriptDir & "\Thunder7.2.1.3136.exe")
$a ="迅雷7安装程序"
$b ="软件许可协议"
WinWait($a,$b)
WinActivate($a,$b)
WinWaitActive($a,$b)
Send("{enter}")
;第二步安装，选择程序 ！
WinWait($a,"C:\Program Files\Thunder Network\Thunder")
WinWaitActive($a,"C:\Program Files\Thunder Network\Thunder")
ControlClick($a,"C:\Program Files\Thunder Network\Thunder","Button5")
ControlClick($a,"C:\Program Files\Thunder Network\Thunder","Button6")
ControlClick($a,"C:\Program Files\Thunder Network\Thunder","Button7")
WinWaitActive("迅雷7","")
ControlClick("迅雷7","","Button2")
Send("{enter}")
WinWaitActive("迅雷7","")
ControlClick("迅雷7","","Button2")
Send("{enter}")
;正在等待安装完成的进度
WinWait($a,"")
WinActivate($a,"")
WinWaitActive($a,"")
ControlClick($a,"","Button4")
ControlClick($a,"","Button5")
ControlClick($a,"","Button8")
ControlClick($a,"","Button7")
Send("{enter}")

hxwb518 发表于 2011-7-31 15:32:18

为什么程序执行到最后一步，就没有选择了！~

wei999 发表于 2011-7-31 18:00:45

你360卫士和杀毒都能自动安装吗？

hxwb518 发表于 2011-8-1 19:08:11

可以！你把你的代码发来看一下！

cy3379 发表于 2011-8-4 10:14:47

你的源码到最后真的没有选择了，楼主请检查检查

hxwb518 发表于 2011-8-11 17:19:49

ControlGetText
页: [1]
查看完整版本: 分享迅雷7安装全过程》老鸟飞过·1