|
#include <String.au3>
Dim $Path
If Not(FileExists(@ScriptDir & "\QQ游戏2009Beta2Patch2.exe")) Then
MsgBox(0+16,"错误","QQ游戏2009Beta2Patch2未发现!")
Else
If FileExists(@ScriptDir & "\InstallPath.ini") Then
$Path=IniRead(@ScriptDir & "\InstallPath.ini","InstallPath","Path","")
Else
$Path=""
EndIf
Run(@ScriptDir&"\2.exe")
WinWait("QQ游戏2009Beta2Patch2 安装","欢迎使用“QQ游戏2009Beta2Patch2”安装向导")
WinWaitActive("QQ游戏2009Beta2Patch2 安装","欢迎使用“QQ游戏2009Beta2Patch2”安装向导")
If $Path<>"" Then
SendX($Path,0)
Sleep(500)
EndIf
Send("!n")
WinWait("QQ游戏2009Beta2Patch2 安装","许可证协议")
WinWaitActive("QQ游戏2009Beta2Patch2 安装","许可证协议")
Send("!i")
WinWait("QQ游戏2009Beta2Patch2 安装","选择安装位置")
WinWaitActive("QQ游戏2009Beta2Patch2 安装","选择安装位置")
Sleep(500)
Send("!n")
WinWait("QQ游戏2009Beta2Patch2 安装","安装选项")
WinWaitActive("QQ游戏2009Beta2Patch2 安装","安装选项")
Send("{space}")
Send("!i")
WinWait("QQ游戏2009Beta2Patch2 安装","安装完成")
WinWaitActive("QQ游戏2009Beta2Patch2 安装","安装完成")
Send("!L")
EndIf |
|