sunyelover 发表于 2008-5-3 12:50:16

锐起CGO自动安装

所需工具5AVIP破解版 CGO可以去www.5avip.com下载一个和微软的devcon.exe工具
将服务器破解文件lpk.dll和客户端破解文件GAMESGXP.sys还有脚本文件和服务端安装程序和和客户端安装程序存放在一个文件夹下,有些罗嗦,进入正题。#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("锐起CGO安装", 363, 127, 310, 320)
$Button1 = GUICtrlCreateButton("安装锐起CGO服务端", 32, 16, 129, 49, 0)
$Button2 = GUICtrlCreateButton("安装锐起CGO客户端", 200, 16, 129, 49, 0)
$Label1 = GUICtrlCreateLabel("程序制作 旭日网络科技 技术部 孙野", 72, 88, 209, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
Case $Button1;安装CGO服务端
BlockInput (1);锁定键盘鼠标
DirCreate(@ProgramFilesDir & "\Richtech\Rtcgosrv");创建文件夹
FileInstall("lpk.dll","C:\\Program Files\\Richtech\\Rtcgosrv\\lpk.dll",1);写入注册文件
FileInstall("INSTMAN.EXE", @TempDir & "\INSTMAN.EXE", 1);打包安装文件
Sleep(1000);暂停执行的时间长度(以毫秒为单位,1000毫秒 = 1秒)
Run(@TempDir & "\INSTMAN.EXE");运行安装文件
WinWait("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","警告:本程序受版权法和国际条约的保护。")
If Not WinActive("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","警告:本程序受版权法和国际条约的保护。") Then WinActivate("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","警告:本程序受版权法和国际条约的保护。")
WinWaitActive("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","警告:本程序受版权法和国际条约的保护。")
Send("!N")
WinWait("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","使用本机的任何人(&A)(所有用户)")
If Not WinActive("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","使用本机的任何人(&A)(所有用户)") Then WinActivate("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","使用本机的任何人(&A)(所有用户)")
WinWaitActive("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","使用本机的任何人(&A)(所有用户)")
Send("!N")
WinWait("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","典型(&T)")
If Not WinActive("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","典型(&T)") Then WinActivate("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","典型(&T)")
WinWaitActive("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","典型(&T)")
Send("!N")
WinWait("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","安装(&I)")
If Not WinActive("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","安装(&I)") Then WinActivate("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","安装(&I)")
WinWaitActive("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","安装(&I)")
Send("!I")
WinWait("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","完成(&F)")
If Not WinActive("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","完成(&F)") Then WinActivate("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","完成(&F)")
WinWaitActive("锐起首席游戏官 服务端 (v2.0 Build2043) InstallShield Wizard","完成(&F)")
Send("!F")
Sleep(9000);暂停执行的时间长度(以毫秒为单位,1000毫秒 = 1秒)
BlockInput (0);解锁键盘鼠标
$iMsgBoxAnswer = MsgBox(0,"提示","程序安装完毕",2)
Exit

Case $Button2;安装CGO客户端
BlockInput (1);锁定键盘鼠标
FileInstall("setup.exe", @TempDir & "\setup.exe", 1);打包安装文件
Sleep(1000);暂停执行的时间长度(以毫秒为单位,1000毫秒 = 1秒)
Run(@TempDir & "\setup.exe");运行安装文件
Sleep(2000);暂停执行的时间长度(以毫秒为单位,1000毫秒 = 1秒)
WinWait("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","下一步(&N) >")
If Not WinActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","下一步(&N) >") Then WinActivate("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","下一步(&N) >")
WinWaitActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","下一步(&N) >")
Send("!N")
WinWait("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","单位(&O):")
If Not WinActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","单位(&O):") Then WinActivate("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","单位(&O):")
WinWaitActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","单位(&O):")
Send("!N")
WinWait("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","典型(&T)")
If Not WinActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","典型(&T)") Then WinActivate("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","典型(&T)")
WinWaitActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","典型(&T)")
Send("!N")
WinWait("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","安装(&I)")
If Not WinActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","安装(&I)") Then WinActivate("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","安装(&I)")
WinWaitActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","安装(&I)")
Send("!I")
WinWait("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","完成(&F)")
If Not WinActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","完成(&F)") Then WinActivate("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","完成(&F)")
WinWaitActive("锐起首席游戏官 客户端 (v2.0 Build 2043) InstallShield Wizard","完成(&F)")
Send("!F")
Sleep(1000);暂停执行的时间长度(以毫秒为单位,1000毫秒 = 1秒)
$PID = ProcessExists("CltMan.exe")
If $PID Then ProcessClose($PID)
Sleep(1000);暂停执行的时间长度(以毫秒为单位,1000毫秒 = 1秒)
FileInstall("GAMESGXP.sys","C:\WINDOWS\system32\drivers\GAMESGXP.sys",1);写入注册文件
Sleep(1000);暂停执行的时间长度(以毫秒为单位,1000毫秒 = 1秒)
BlockInput (0);解锁键盘鼠标
$iMsgBoxAnswer = MsgBox(0,"提示","程序安装完毕",2)
Exit
        EndSwitch
WEnd


[ 本帖最后由 sunyelover 于 2008-5-3 12:55 编辑 ]

网络凯子 发表于 2008-5-5 15:10:00

好多, 看得头晕`

sunyelover 发表于 2008-5-22 18:09:42

抱歉本人没学过什么编程,
可能程序的思路不清晰,

sanhen 发表于 2008-5-27 09:29:03

2043可以提取成绿色版。不用这样安装这么麻烦的。:face (32):
页: [1]
查看完整版本: 锐起CGO自动安装