sm

立即登录 | 账号注册

积分: 0 |用户组: 游客

搜索
服务器租用 传奇3一条龙 996 支付平台源码 无法下载点击此处反馈
查看: 1207|回复: 1

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

[复制链接]

826

主题

36

回帖

23万

积分

霸王教主

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

[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]
游客,如果您要查看本帖隐藏内容请回复





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

使用道具 举报

1

主题

20

回帖

289

积分

旋风流星刀

积分
289
发表于 2023-7-2 10:05:22 | 显示全部楼层
论坛有你而精这代码完整吗
回复 支持 反对

使用道具 举报

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

本版积分规则

手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系

GMT+8, 2024-3-28 19:28 , Processed in 0.330075 second(s), 58 queries .

Powered by Discuz! X3.5

Copyright © 2001-2024, Tencent Cloud.

快速回复 返回顶部 返回列表