锐起CGO自动安装

jhwl

实现目的:
学校机房需要更新文件和更新程序的需要,为装一虚拟磁盘CGO软件,通过万象实现自动安装脚本
万象传递文件不再叙述...
版本:CGO2043
刚出炉的代码...

Dim $name = FileExists ( "C:\Program Files\Richtech\Rtcgoclt\GameMenu" )
If $name =1 Then 
MsgBox(48,"warning !","安装文件已经存在,请卸载后执行此脚本!")
Exit
EndIf
Run(@ScriptDir&"/client.exe")
WinWait("锐起CGO 2043完美破解版 客户端","接受")
If Not WinActive("锐起CGO 2043完美破解版 客户端","接受") Then WinActivate("锐起CGO 2043完美破解版 客户端","接受")
WinWaitActive("锐起CGO 2043完美破解版 客户端","接受")
Send("{Enter}")
Sleep(600)
Send("{Enter}")
WinWait("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","下一步")
If Not WinActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","下一步") Then WinActivate("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","下一步")
WinWaitActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","下一步")
Send("{CTRLDOWN}n{CTRLUP}")
Sleep(300)
Send("{TAB}{TAB}{TAB}{TAB}{Enter}")
WinWait("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","典型")
If Not WinActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","典型") Then WinActivate("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","典型")
WinWaitActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","典型")
Send("{TAB}{TAB}{Enter}")
Sleep(500)
Send("{Enter}")
Sleep(4000)
WinWait("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","完成")
If Not WinActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","完成") Then WinActivate("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","完成")
WinWaitActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","完成")
Send("{Enter}")
Sleep(1000)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Richtech\Cgo", "ServerIp", "REG_SZ", "192.168.8.1")
;FileDelete(@DesktopCommonDir&"\锐起游戏菜单.lnk") ;删除快捷方式
Exit

sunyelover

这个更方便啊  比我那个还好啊

sunyelover

能否不用注册表、方式来添加服务器的IP呢

jhwl

这个是可以的.可以使用宏定义...发送IP,之前写这个脚本的目的就是为了快速更新工作站上的客户端程序,利用万象结合使用,万象传送文件我已经做过分开破解处理..配合程序使用...方便快速...

[ 本帖最后由 jhwl 于 2008-6-1 19:40 编辑 ]

luke

好。学习了。

alexzero

顶楼主~~~~