求助高手 能不能写几个软件 自动安装的脚本
QQ 6。4Run("qq6.4.exe")
Dim $Title = "腾讯QQ安装向导"
Dim $Text1 = "软件许可协议和青少年上网安全指导"
Dim $Text2 = "立即安装"
Dim $Text3 = "正在安装..."
Dim $Text4 = "完成安装"
Sleep(1000)
WinWait($Title, $Text1)
WinActivate($Title, $Text1)
ControlClick($Title, $Text1, "Button6")
WinWait($Title, $Text2)
WinActivate($Title, $Text2)
ControlSetText($Title, $Text2, "Edit1", "D:\Program Files\Tencent\QQ")
Sleep(100)
ControlClick($Title, $Text2, "Button10")
Sleep(100)
ControlClick($Title, $Text2, "Button9")
Sleep(100)
ControlClick($Title, $Text2, "Button3")
WinWait($Title, $Text3)
WinActivate($Title, $Text3)
WinWait($Title, $Text4)
WinActivate($Title, $Text4)
ControlClick($Title, $Text4, "Button19")
Sleep(100)
ControlClick($Title, $Text4, "Button20")
Sleep(100)
ControlClick($Title, $Text4, "Button21")
Sleep(100)
ControlClick($Title, $Text4, "Button22")
Sleep(100)
ControlClick($Title, $Text4, "Button26")
exit
这个QQ的 安装好 不会结束进程
Run("kwmusic_kchinajhoo_053032_v7.7.exe")
Dim $Title = "欢迎使用酷我音乐2014"
Dim $Text1 = "我已经阅读并接受酷我音乐"
Dim $Text2 = "快速安装"
Dim $Text3 = "完成"
Sleep(1000)
WinWait($Title, $Text1)
WinActivate($Title, $Text1)
ControlClick($Title, $Text1, "Button9")
WinWait($Title, $Text2)
WinActivate($Title, $Text2)
ControlSetText($Title, $Text2, "Edit1", "d:\Program Files\kuwo\kuwomusic")
Sleep(100)
ControlClick($Title, $Text2, "Button11")
WinWait($Title, $Text3)
WinActivate($Title, $Text3)
ControlClick($Title, $Text3, "Button8")
Sleep(1000)
exit
这个音乐盒子 安装好不能点完成。。。
麻烦高手给我改下把 围观一下啊。。。
页:
[1]