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

夜游神 · 发表于 2022-4-22 23:17:49

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

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

unit _CheckVer;
interface
uses SysUtils, Classes, Windows, _Const, _Grobal;
implementation
uses _function, PlugStart;
var
LastCheckTime : Cardinal;
procedure _CheckClientVer;
var
I : Integer;
Flag, Flag2 : Boolean; // 这个是按钮
T1 : Cardinal;
begin
T1 := GetTickCount;
if T1 - LastCheckTime > 3 then //2010(3600000)这个是设置判断的时间！如果设置1年就1年后判断
begin
LastCheckTime := T1;
if not IsHacked then
begin
//
Flag := TRUE;// 设置判断开关!
Flag2 := TRUE;// 设置判断开关!
for I := Low(ServerNameList) to High(ServerNameList) do //mingzi
begin
//TEiFunc.DebugOut(EI.ServerName + '+' + ServerNameList[I]);
if SameText(EI.ServerName, ServerNameList[I]) then
begin
Flag := FALSE; // 设置判断开关!
break;
end;
end;
for I := Low(ServerIPList) to High(ServerIPList) do //ip
begin
//TEiFunc.DebugOut(EI.CSetupFile.Info.IP1.IP + '-' + ServerIPList[I]);
if SameText(EI.CSetupFile.Info.IP1.IP, ServerIPList[I]) then
begin
Flag2 := FALSE; // 设置判断开关!
break;
end;
end;
//
Flag := FALSE;// 2010
Flag2 := FALSE;// 2010
IsHacked := Flag or Flag2;
if IsHacked then // IsHacked 去找一个 Flag or Flag2; 判断！
begin
EI.UserEngine.HackCheckSum := $FFFF; //如果对了就设置
end; //错了就跳过 .
//if IsHacked then TEiFunc.DebugOut('TRUE') else TEiFunc.DebugOut('FALSE');
{if IsHacked then
TEiFunc.DebugOut('程序编译：传奇3技术研究组')
else
TEiFunc.DebugOut(Format('Ver:%s (For:%s)', [EiDllVer, EI.ServerName]));}
end;
end;
end;
procedure hkRunTimer;
asm
pushad
Call _CheckClientVer
popad
mov eax,[$53EBB0]
push $4A978E
ret
end;
initialization
TFunc.HookJmp($4A9789, @hkRunTimer);
finalization
end.

复制代码

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

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

MooCa · 发表于 2023-7-2 16:20:17

瞧瞧什么价格

s304185 · 发表于 2024-9-12 03:28:04

感谢分享，支持大大

616126447 · 发表于 7 天前

感谢楼主分享

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

相关帖子