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

hxwb518

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

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}")

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

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

wei999

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

hxwb518

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

cy3379

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

hxwb518

ControlGetText