论坛 › 『 提问交流 』 › 这段代码错误在哪里，为什么不行

a1213145 发表于 2009-3-13 15:46:07

这段代码错误在哪里，为什么不行

#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

a1213145 发表于 2009-3-13 16:31:43

已经解决了，不好意思，各位大大，呵呵

查看完整版本: 这段代码错误在哪里，为什么不行