KUGOO2008自动安装

lidenpan

$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

q958com

hhhhhhhh

23070205

不错，又学一招

ty43257745

又要刷钱来了

aidman

不错~~~学习了
··