找回密码
 加入
搜索
查看: 1037|回复: 1

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

[复制链接]
发表于 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
 楼主| 发表于 2009-3-13 16:31:43 | 显示全部楼层
已经解决了,不好意思,各位大大,呵呵
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-9-23 07:20 , Processed in 0.076559 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表