autoit自动安装迅雷

pingyazoua

#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=安装迅雷5
#AutoIt3Wrapper_Res_Description=安装迅雷5
#AutoIt3Wrapper_Res_Fileversion=1.1
#AutoIt3Wrapper_Res_LegalCopyright=肥肥
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
TrayTip("请注意！","正在安装迅雷",1)
run("Thunder5.7.5.421.exe")

$str1="安装 - 迅雷5"
$str2="下一步(&N) >"
$str3="我同意此协议(&A)"
$str4="开机自动启动(&A) (迅雷默认开机自动启动)"

;关闭鼠标键盘控制
;BlockInput(1)
ProcessClose("thunder5.exe")
WinWait($str1,$str2)
if not WinActive($str1,$str2)Then
        WinActivate($str1,$str2)
EndIf
WinWaitActive($str1,$str2)
ControlClick($str1,$str2,"TButton1")

WinWait($str1,$str3)
if not WinActive($str1,$str3)Then
        WinActivate($str1,$str3)
EndIf
WinWaitActive($str1,$str3)
ControlCommand($str1,$str3,"TRadioButton1","Check", "")
ControlClick($str1,$str3,"TButton2")

WinWait($str1,$str4)
if not WinActive($str1,$str4)Then
        WinActivate($str1,$str4)
EndIf
ControlCommand($str1,$str4,"TCheckBox2","UnCheck", "")
Send("{DOWN}")
Send("{tab}")
send("{space}{space}")
send("{down}{space}")
ControlClick($str1,"下一步(&N) >","TButton2")

WinWait($str1,$str2)
if not WinActive($str1,$str2)Then
        WinActivate($str1,$str2)
EndIf
WinWaitActive($str1,$str2)
ControlClick($str1,$str2,"TButton3")

WinWait($str1,"安装(&I)")

if not WinActive($str1,"安装(&I)")Then
        WinActivate($str1,"安装(&I)")
EndIf
WinWaitActive($str1,"安装(&I)")
ControlClick($str1,"安装(&I)","TButton3")

WinWait($str1,"完成(&F)")
if not WinActive($str1,"完成(&F)")Then
        WinActivate($str1,"完成(&F)")
EndIf
WinWaitActive($str1,"完成(&F)")
ControlClick($str1,"完成(&F)","TButton3")

WinWait($str1,"确定")
if not WinActive($str1,"确定")Then
        WinActivate($str1,"确定")
EndIf
WinWaitActive($str1,"确定")
ControlClick($str1,"确定","TButton1")
while 1
        if ProcessExists("Thunder5.exe")Then
                ProcessClose("Thunder5.exe")
                ExitLoop
        EndIf
WEnd
FileDelete(@DesktopDir & "\免费高清电影.lnk")

;开启鼠标键盘控制
BlockInput(0)
Exit