传奇3人寿仁插件DD145源代码全套编译通过

夜游神

传奇3人寿仁DD145插件源码全套源代码

传奇3源码,传奇3引擎源码,传奇3登陆器源码,传奇3源代码

1. unit _CheckVer;
   
2. interface
   
3. uses SysUtils, Classes, Windows, _Const, _Grobal;
   
4. implementation
   
5. uses _function, PlugStart;
   
6. var
   
7.   LastCheckTime     : Cardinal;
   
8. 
   
9. procedure _CheckClientVer;
   
10. var
    
11.   I                 : Integer;
    
12.   Flag, Flag2       : Boolean; // 这个是按钮
    
13.   T1                : Cardinal;
    
14. begin
    
15.   T1 := GetTickCount;
    
16.   if T1 - LastCheckTime > 3 then //2010(3600000)这个是设置判断的时间！如果设置1年就1年后判断
    
17.   begin
    
18.     LastCheckTime := T1;
    
19.     if not IsHacked then
    
20.     begin
    
21.       //
    
22.       Flag := TRUE;// 设置 判断开关!
    
23.       Flag2 := TRUE;// 设置 判断开关!
    
24.       for I := Low(ServerNameList) to High(ServerNameList) do  //mingzi
    
25.       begin
    
26.         //TEiFunc.DebugOut(EI.ServerName + '+' + ServerNameList[I]);
    
27.         if SameText(EI.ServerName, ServerNameList[I]) then
    
28.         begin
    
29.           Flag := FALSE; // 设置 判断开关!
    
30.           break;
    
31.         end;
    
32.       end;
    
33.       for I := Low(ServerIPList) to High(ServerIPList) do  //ip
    
34.       begin
    
35.         //TEiFunc.DebugOut(EI.CSetupFile.Info.IP1.IP + '-' + ServerIPList[I]);
    
36.         if SameText(EI.CSetupFile.Info.IP1.IP, ServerIPList[I]) then
    
37.         begin
    
38.           Flag2 := FALSE; // 设置 判断开关!
    
39.           break;
    
40.         end;
    
41.       end;
    
42.       //
    
43.       Flag := FALSE;// 2010
    
44.       Flag2 := FALSE;//  2010
    
45.       IsHacked := Flag or Flag2;
    
46.       if IsHacked then   //  IsHacked  去找一个    Flag or Flag2;       判断！
    
47.       begin
    
48.         EI.UserEngine.HackCheckSum := $FFFF; //如果对了就设置
    
49.       end; //错了就跳过 .
    
50.       //if IsHacked then TEiFunc.DebugOut('TRUE') else TEiFunc.DebugOut('FALSE');
    
51.       {if IsHacked then
    
52.         TEiFunc.DebugOut('程序编译：传奇3技术研究组')
    
53.       else
    
54.         TEiFunc.DebugOut(Format('Ver:%s (For:%s)', [EiDllVer, EI.ServerName]));}
    
55.     end;
    
56.   end;
    
57. end;
    
58. 
    
59. procedure hkRunTimer;
    
60. asm
    
61.   pushad
    
62.     Call  _CheckClientVer
    
63.   popad
    
64.   mov  eax,[$53EBB0]
    
65.   push $4A978E
    
66.   ret
    
67. end;
    
68. initialization
    
69.   TFunc.HookJmp($4A9789, @hkRunTimer);
    
70. finalization
    
71. 
    
72. end.

复制代码

分享名称：RSR插件代码-无限制修改.zip
分享链接：http://pan.zxdll.cn:88/#s/9bcdeOHg
访问密码：

游客，如果您要查看本帖隐藏内容请回复

MooCa

瞧瞧什么价格

s304185

感谢分享，支持大大