传奇单机版,GM论坛,传奇版本库,GM基地

冷雨夜Ei3.0登录器源码Delphi全套+网关+反外挂插件

[复制链接]
查看: 241   回复: 0     # 登录器源码

197

主题

199

帖子

7614

积分

霸王教主

Rank: 9Rank: 9Rank: 9

积分
7614
2022-9-12 17:09:43   显示全部楼层   阅读模式  
EI3.0登录器全套源码,lyy冷雨夜登录器源码,适配EI3.0老插件传奇学院第一版,第二版,以及微笑全系版本,客户端反外挂插件支持weapon-255 不区分男女,通用补丁,支持窗口化以及自适应屏幕色彩。干货收藏,二次开发利用价值高!
EI3lgoin.png Gate.png

[Delphi] 纯文本查看 复制代码
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.


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





上一篇:华立3.56登录器源码lyy冷雨夜登录器Delphi源码
下一篇:DD145登录器源码Delphi冷雨夜lyy源代码
回复 关闭延时

使用道具 举报

您需要登录后才可以回帖   登录 立即注册

高级模式

Powered by Discuz! X3.4 © Comsenz Inc.

Archiver|手机版|小黑屋|美林传奇GM论坛 ( 蜀ICP备2020030293号-2 )