哪位高手帮我写一个自动安装游戏茶苑的AUTOIT

baanet

我想在GHOST中加入游戏茶苑这个软件，但不会编AUTOIT，哪位高手帮我写一个自动安装游戏茶苑的AUTOIT吧，小弟先谢谢了

stardust

发安装文件上来,或者给出下载地址.

baanet

原帖由 stardust 于 2008-5-9 11:22 发表
发安装文件上来,或者给出下载地址.

地址这个：http://www.gametea.net/安装版的，谢谢！游戏茶苑新大厅GAMETAE2005

[ 本帖最后由 baanet 于 2008-5-9 14:45 编辑 ]

baanet

昨天晚上编了半天，最后的完成界面和进入后自动关闭不会编

59993330

run("GameTea2007.exe")                                             ;运行游戏茶苑
WinWaitActive("游戏茶苑大厅", "下一步")                           ;等待窗口出现
Send("{ENTER}")                                                    ;回车
WinWaitActive("游戏茶苑大厅", "下一步(&N)")                       ;等待窗口出现
Send("!R")                                                         ;ALT+R  浏览
WinWaitActive("选择目标目录", "C:\Program Files\GameTea")         ;等待窗口出现
Send( "C:\Program Files\GameTea\",0)                               ;输入要安装的目录“C:\Program Files\GameTea“可自行替换
Send("{ENTER}")                                                    ;回车
if WinWaitActive("安装","目录 C:\Program Files\GameTea 已经存在。你仍然要安装到这个目录中吗？",2) = 1 Then  ;判断是否弹出选择对话框
Send("{ENTER}")                                                                                                ;如果出现 回车
EndIf                                                                                                     ;？？我也不晓得这句什么意思
WinWaitActive("游戏茶苑大厅", "下一步(&N)")                       ;等待窗口出现
Send("!N")                                                         ;ALT+N  安装
WinWaitActive("游戏茶苑大厅", "完成(&F)")                         ;等待窗口出现
Send("!F")                                                         ;ALT+F 完成
ProcessWait ( "gtsaloon.exe" , 20 )                                ;等待"gtsaloon.exe"进程出现 延迟20秒
ProcessClose ( "gtsaloon.exe" )                                    ;结束主程序 "gtsaloon.exe"
ProcessClose ( "CloseAD.exe" )                                     ;结束广告程序"CloseAD.exe"
FileDelete(@DesktopCommonDir &"\游戏茶苑大厅.LNK") ;调用删除桌面“游戏茶苑大厅.LNK” 我不会用AU3删除
DirRemove(@ProgramsCommonDir &"\游戏茶苑", 1) ;用AU3删除 “菜单\程序\游戏茶苑“
#Region --- 最后安装完成弹窗！生成器生成的，弹出后3秒后自动关闭---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Warning, Timeout=3 ss, Miscellaneous=Top-most attribute
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(262192,"恭喜","游戏茶苑顺利安装成功！",3)
Select
        Case $iMsgBoxAnswer = -1 ;Timeout

        Case Else                ;OK

EndSelect
#EndRegion --- CodeWizard generated code End ---
.......................................................................................................................................................



有错误的地方或者有更好的方法请高手们指出！

[ 本帖最后由 59993330 于 2008-5-11 17:49 编辑 ]

sunyelover

FileDelete(@DesktopDir&"\游戏茶苑大厅.LNK'")

@DesktopDir 当前用户 Desktop 文件夹路径(桌面)

@DesktopCommonDir 公共 Desktop 文件夹路径(桌面)

59993330

FileDelete(@DesktopDir&"\游戏茶苑大厅.LNK'")
楼上 多了个'
代码很附件都已经更新过了！
谢谢楼上的！