|
|
EI3.0登录器全套源码，lyy冷雨夜登录器源码,适配EI3.0老插件传奇学院第一版,第二版,以及微笑全系版本，客户端反外挂插件支持weapon-255 不区分男女,通用补丁,支持窗口化以及自适应屏幕色彩。干货收藏，二次开发利用价值高！
[mw_shl_code=delphi,true]unit ShowMsgPro;
interface
Uses Windows,SysUtils,IniFiles,EDcode,ShellAPI,Dialogs;
implementation
var
GameName:string = 'lwZomwNgnwP';
procedure Color_Set(ColorType:Byte);
var
dmScreenSettings:DEVMODE; // 设备模式
begin
with dmScreenSettings do
begin // 设置屏幕设置的参数
dmSize := SizeOf(dmScreenSettings); // Devmode 结构的大小
dmBitsPerPel:=ColorType; //改变色深 256色是8 16是真彩色16 32是真彩色32
dmFields:=DM_BITSPERPEL; //修改色深
end;
ChangeDisplaySettings(dmScreenSettings,0);
end;
procedure MinCreateDir;
begin
Color_Set(16);
PBYTE($401018)^:= 0;
if not FileExists('.\游戏截图') then begin
CreateDirectoryA(PChar('.\游戏截图'),nil);
end;
end;
procedure MaxCreateDir;
begin
//Color_Set(32);
PBYTE($401018)^:= 1;
if not FileExists('.\游戏截图') then begin
CreateDirectoryA(PChar('.\游戏截图'),nil);
end;
end;
procedure CreateDir;
const
{$I _b资源文件\_ClassName.inc}
var
FI:TIniFile;
Cnf:Integer;
begin
FI:=TIniFile.Create(GetCurrentDir+'\LyyConfig\' + LyClassName + '.ini');
Cnf:=FI.ReadInteger('Setup','enopt1',1);
//MessageboxA(0,PChar(IntToStr(Cnf)),PChar(IntToStr(Cnf)),MB_YESNO or MB_ICONQuestion);
if Cnf = 0 then
MaxCreateDir
else MinCreateDir;
FI.Destroy;
{
FI:=TIniFile.Create(GetCurrentDir+'\MIR3.INI');
Cnf:=FI.ReadInteger('Initial','ScreenSize',1);
if Cnf = 1 then
MaxCreateDir
else MinCreateDir;
FI.Destroy;
}
{
if MessageboxA(0,
PChar(DecodeString('nhZsxXfupxJphG{Vjv{OohzsKl')), //是否使用窗口化游戏？
PChar(DecodeString('iz[Pmg{BkGoJlinloJCFk_d')), //风云科技温馨提示:
MB_YESNO or MB_ICONQuestion)=IDYES then begin
MinCreateDir;
end else begin
MaxCreateDir;
end;
}
end;
function RandomStr:string; //随机类名 防止外挂通过类名来获取句柄注入
var
SourceStr,str:string;
i:integer;
begin
SourceStr:='ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
randomize;
for i:=1 to 14 do
str:=str+sourcestr[Random(36)+1];
RandomStr:=Str;
end;
procedure SetWORD;
begin
if not FileExists('.\游戏截图') then begin
CreateDirectoryA(PChar('.\游戏截图'),nil);
end;
strcopy(pchar($47BE18),'黑体');
strcopy(pchar($47C74C),'等级');
strcopy(pchar($47B994),'恭喜你升级啦,继续努力哦!!');
strcopy(pchar($47AB5C),'.\MIR3.INI');
strcopy(pchar($47BDC4),PChar('.\Config\'));
strcopy(pchar($47BC04),PChar(''+DecodeString(GameName)+'Ei3.0'));
// strcopy(pchar($47A468),PChar('Legend of Mir3'));//窗口标题
strcopy(pchar($47DBB8),PChar(RandomStr));
strcopy(pchar($47C818),PChar('['+DecodeString(GameName)+'] - Legend of Mir3'));
strcopy(pchar($47C608),PChar('['+DecodeString(GameName)+'] - Legend of Mir3'));
strcopy(pchar($47C5F4),'请检查客户端完整性');
strcopy(pchar($47A140),PChar(DecodeString(GameName)+' Evil.s Illusion'));
strcopy(pchar($47AEB8),PChar(
#13#13#13#13+' 欢迎来到精彩的'+DecodeString(GameName)+'Ei3.0'+
#13#13+' 夜游神论坛倾情打造传奇EI3.0客户端'+
#13#13+' [2016年01月01日''夜游神论坛汉化修正版]'));
end;
initialization
CreateDir; //是否窗口化
SetWORD;
//winexec(Pchar(GetCurrentDir + '\Config\Cy3.exe'),SW_MINIMIZE);
//MinCreateDir;
//MaxCreateDir;
end.
[/mw_shl_code]
|
|
发表于 2022-9-12 17:09:43
发表于 2023-7-2 10:05:22