;关闭鼠标键盘控制
;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")