KUGOO2008自动安装
$variable0="安装 - 酷狗音乐2008"$variable1="欢迎使用 酷狗音乐2008 安装向导"
$variable2="许可协议"
$variable3="选择目标位置"
$variable4="Google特别选定的流行软件组合，自动更新，卸载方便，绝无试用版！"
$variable5="准备安装"
$variable6= "酷狗推荐绿色软件"
$variable7="酷狗音乐2008 安装完毕"
$variable8=""
$variable9=""
$directory="d:\Program Files\KuGou\KuGou2008"
AdlibEnable("KillIE")
Run("kugou.exe")
TrayTip("正在安装","安装酷狗软件,请稍后......",10,1)
WinWaitActive($variable0,$variable1)
Send("!n")
WinWaitActive($variable0,$variable2)
Send("!n")
WinWaitActive($variable0,$variable3)
ControlSetText($variable0,$variable3,"TEdit1",$directory)
ControlClick($variable0,$variable3,"TNewButton3")
if winactive("文件夹已存在") Then
send("!y")
EndIf
WinWaitActive($variable0,$variable4)
Send("{space}")
Send("!n")
WinWaitActive($variable0,$variable5)
ControlClick($variable0,$variable5,"TNewButton3")
WinWaitActive($variable0,$variable7)
Send("{space}{down}{space}")
Send("!f")
Func KillIE()
If ProcessExists("iexplore.exe") Then
ProcessClose("iexplore.exe")
ElseIf WinExists($variable0,$variable6)Then
Send("{space}")
Send("!n")
EndIf
EndFunc :face (14):hhhhhhhh 不错，又学一招 又要刷钱来了 不错~~~学习了
··
页:
[1]