求助高手 能不能写几个软件 自动安装的脚本

chinajhoo

QQ 6。4
Run("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

这个音乐盒子 安装好不能点完成。。。

麻烦高手给我改下把

roc1209

围观一下啊。。。