首页 » 程序源码 » delphi源码 » 锐起CGO2043客户端绿色出盘源码

锐起CGO2043客户端绿色出盘源码

锐起CGO2043客户端绿色出盘源码,可以在服务端查看到客户端的状态

源码为delphi,如果需要源码可以下载

 

下载地址

链接: https://pan.baidu.com/s/1i5gn1i9 密码: nnhu

 

解压密码 bnwin.com

其中部份源码

MutexHandle: Longword;
 mainip,subip,mystr,syspath:string;
 reg:TRegistry;
 thand:THandle;
 RTGSGLogonEvent:TPluginName;
 myini:TIniFile;
 myname,cgoip:string;
 begin
 syspath:=gtsyspath;
 if not fileexists(syspath+'\system32\drivers\GAMESGXP.sys') then
 begin
 ExtractRes('exefile','RNDINTER',syspath+'\system32\RNDINTER.dll');
 ExtractRes('exefile','RTGSGENG',syspath+'\system32\RTGSGENG.dll');
 ExtractRes('exefile','udt',syspath+'\system32\udt.dll');
 ExtractRes('exefile','GAMESGXP',syspath+'\system32\drivers\GAMESGXP.sys');
 ExtractRes('exefile','RTFLTDSK',syspath+'\system32\drivers\RTFLTDSK.sys');
 ExtractRes('exefile','RTWRESXP',syspath+'\system32\drivers\RTWRESXP.sys');
 end;
 myini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'setup.ini');
 mainip:= myini.ReadString('配置','主服务器','');//主服务器IP
 subip:= myini.ReadString('配置','副服务器','');//副服务器IP
 if subip='' then subip:=mainip;
 mystr:= uppercase(myini.ReadString('配置','副分流机器',''));//副服务器分流机器名
 myini.Free;
 myname:=gtcomputername;
 if Pos(myname,mystr)>0 then
 begin
 if ScanTCPPort(subip,7499) then
 cgoip:=subip
 else
 cgoip:=mainip;
 end
 else
 begin
 if ScanTCPPort(mainip,7499) then
 cgoip:=mainip
 else begin
 if ScanTCPPort(subip,7499) then
 cgoip:=subip
 else
 cgoip:=mainip;
 end;
 end;
 if cgoip<>'' then
 begin
 reg:=TRegistry.Create;
 reg.RootKey:=HKEY_LOCAL_MACHINE;
 if reg.OpenKey('SOFTWARE\Richtech\Cgo',true) then
 begin
 reg.WriteInteger('Version',$000007fb);
 reg.WriteString('ServerIp',cgoip);
 reg.WriteInteger('NormalSD',1);
 reg.WriteInteger('UserId',5821298);
 reg.WriteInteger('KeyId',0);
 reg.WriteInteger('RegDrive',81);
 end;
 reg.CloseKey;
 reg.Destroy;
 end;
 if OpenMutex(MUTEX_ALL_ACCESS, FALSE, 'RTGSGLogonEvent')<>0 then Exit;
 MutexHandle := CreateMutex(nil,TRUE,'RTGSGLogonEvent'); //.........BEGIN........//

//寻找进程
 Explorer_PID := FindProcess('winlogon.exe');
 if (Explorer_PID=0) then
 begin
 MessageBox(0, '寻找winlogon进程出错 ', nil, 0); Exit;
 end;
 //创建内存映射文件
 FileMapH := CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(node),'RTGSGLogonEventRich');
 if (FileMapH=0) then
 begin

未经允许不得转载:百脑问 » 锐起CGO2043客户端绿色出盘源码

×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开微信扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

分享到:更多 ()

评论 抢沙发

评论前必须登录!

百脑问 创新坚持 杰然不同

赞助我们联系我们
数据查询次数:95 消耗时间:0.563 秒, 使用内存: 21.44MB
您好,有什么可以帮您吗!