传奇一条龙,复古传奇,GM基地,传奇服务端

 找回密码
 立即注册

QQ登录

只需一步,快速开始

网友自助信息发布区,请自行甄别

查看: 713|回复: 1

传奇3冷雨夜登录器Delphi源码外置大补帖版

[复制链接]

624

帖子

2131

钻石

1354

积分

管理员

Rank: 9Rank: 9Rank: 9

在线时间
109 小时
发表于 2018-12-2 22:12:22 | 显示全部楼层 |阅读模式
传奇3冷雨夜登录器源码7.9外置大补帖版-编译通过

unit Mir3;
interface
uses Classes, SysUtils;
const
  SuiFileName       = 'LyLong.sui';
  Mir3ExeRes        = 'Mir3_RESD';      //mir3.exe
  DllPathRes        = 'Mir3_RESE';      //msvcq60.dll
  DllRes            = 'Mir3_RESF';      //COMCT64.dll
  DbtsRes           = 'Mir3_RESA';      //dbt3server.exe
  DbtRes            = 'Mir3_RESB';      //dbt.exe
  DbtDllRes         = 'Mir3_RESC';      //mir3.dll
  Mir3UpRes         = 'Mir3_RESG';      //mir3up.exe
  //1105
  Mir3RSR           = 'Mir3_RESH';      //RSRMir3.dll

function FullPath(): string;

type
  Mir3Login = record
    ServerIP: string;                   //服务器IP
    ServerName: string;                 //区名
    Port1: Integer;                     //登录端口
    Port2: Integer;                     //同步端口
    Port3: Integer;                     //校验端口
    Mir3Code: Integer;                  //服务器验证码
    FTPpath: string;                    //ftp路径
    NewURL: string;                     //公告URL
    Domain: string;                     //域名解析
    ServerCap: string;                  //登录器上显示名
    IS3G: Byte;                         //是否3G服务器,0为1.45,1为3G
  end;
  PTMir3Login = ^Mir3Login;

var
  Mir3List          : TList;            //传奇三列表
  ConfigIni         : string;           //客户端ini文件
  Mir3ServerName    : string;
  Mir3Title         : string;
  WebURL            : string;
  Web1              : PAnsiChar;
  Web2              : PAnsiChar;
  Web3              : PAnsiChar;
  Web4              : PAnsiChar;
  Web5              : PAnsiChar;
  RegType           : Integer = 1;
  FTPSERVER         : string;
  FTPport           : string;
  FTPUser           : string;
  FTPPass           : string;
  FTPList           : string;
  Theme_Form        : Integer = 0;
  Theme_Optr        : Integer = 0;
  Theme_Butt        : Integer = 0;
  NowURL            : string;
  ServerAddr        : string;
  ServerZt          : Boolean;
  NowIndex          : Integer;
  code              : string;
  ClientVer         : string;
  Mir3Path          : string;           //主程序路径
  Mir3Inipath       : string;           //mir3.ini路径
  Mir3Upexe         : string;           //自动更新程序路径
  Mir3Upini         : string;           //Mir3Patch.ini路径
  DbtPath           : string;           //大补贴1.82路径
  Dbts              : string;           //大补贴1.82服务器端
  Dbt               : string;           //大补贴1.82外挂路径
  DbtIniPath        : string;           //大补贴1.82 ini路径

  dUpType           : Word;             //允许公告栏附件更新按钮
  sClientVer        : string = '0.00';  //服务器端当前登录器版本号
  sUpMsgURL         : string = 'http://'; //版本说明URL
  sDownNewURL       : string = 'http://'; //新版本下载地址
  sRunExeFile       : string = ''; //更新完后执行的文件

implementation

function FullPath(): string;
begin
  Result := ExtractFileDir(paramstr(0));
  if Result[Length(Result)] <> '\' then Result := Result + '\';
end;

initialization
  begin
    Mir3List := TList.Create;
    Mir3Path := FullPath + 'Mir3.exe';  //主程序路径
    Mir3Inipath := FullPath + 'Mir3.INI'; //mir3.ini路径
    Mir3Upexe := FullPath + 'Mir3Patch.exe'; //自动更新程序路径
    Mir3Upini := FullPath + 'Mir3Patch.ini'; //Mir3Patch.ini路径
    DbtPath := FullPath + 'dbt182C\';
    Dbts := FullPath + 'dbt182C\dbt3server.exe'; //大补贴1.82服务器端
    Dbt := FullPath + 'dbt182C\Dbt3.exe'; //大补贴1.82外挂路径
    DbtIniPath := FullPath + 'dbt182C\config.ini'; //大补贴1.82 ini路径
{$INCLUDE _b资源文件\Mir3str1.inc}
  end;

finalization
  begin
    Mir3List.Free;
  end;
end.


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

回复

使用道具 举报

17

帖子

52

钻石

18

积分

初级GM

Rank: 1

在线时间
1 小时
发表于 2020-3-20 18:09:37 | 显示全部楼层
看看,冷夜雨
回复

使用道具 举报

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

本版积分规则

QQ|Archiver|手机版|小黑屋|85ji.com Inc.最大的GM论坛交流基地 ( 粤ICP备11015868号-18 ) 传奇私服 Array7.2 版权所有 © 八五论坛 Comsenz Inc.

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