SLK传奇3登录器源码,地狱星,冷雨夜登陆器源代码V15.1

夜游神 · 发表于 2023-1-26 11:06:43

SLK登录器就不过多介绍了,可以查看置顶帖子的体验版登录器进行体验,全套代码含网关,登录器主程序,控件.

https://www.yyssoft.com/form/28.html

购买登录器请联系站长

procedure TBoxFrm.N8Click(Sender: TObject);
function SetMagicData(BoOpen: Boolean): Boolean;
const
{$IFDEF NEWCLIENT}
NameExt = '.Wil';
{$ELSE}
NameExt = '.Wix';
{$ENDIF}
begin
{$I VMProtectBegin.inc}
try
Result := True;
if BoOpen then
begin
RenameFile(GetCurrentDir + '\Data\Magic' + NameExt, GetCurrentDir + '\Data\_Magic' + NameExt);
RenameFile(GetCurrentDir + '\Data\MagicEx' + NameExt, GetCurrentDir + '\Data\_MagicEx' + NameExt);
RenameFile(GetCurrentDir + '\Data\MonMagic' + NameExt, GetCurrentDir + '\Data\_MonMagic' + NameExt);
RenameFile(GetCurrentDir + '\Data\MonMagicEx' + NameExt, GetCurrentDir + '\Data\_MonMagicEx' + NameExt);
end else
begin
RenameFile(GetCurrentDir + '\Data\_Magic' + NameExt, GetCurrentDir + '\Data\Magic' + NameExt);
RenameFile(GetCurrentDir + '\Data\_MagicEx' + NameExt, GetCurrentDir + '\Data\MagicEx' + NameExt);
RenameFile(GetCurrentDir + '\Data\_MonMagic' + NameExt, GetCurrentDir + '\Data\MonMagic' + NameExt);
RenameFile(GetCurrentDir + '\Data\_MonMagicEx' + NameExt, GetCurrentDir + '\Data\MonMagicEx' + NameExt);
end;
except
Result := False;
end;
{$I VMProtectEnd.inc}
end;
begin
{$I VMProtectBegin.inc}
N8.Checked := not N8.Checked;
if not SetMagicData(N8.Checked) then
begin
Application.MessageBox(PChar('当前游戏文件处于占用状态,请退出游戏后再试!'), '温馨提示', MB_OK + MB_ICONERROR);
Exit;
end;
if N8.Checked then
Application.MessageBox('已关闭所有魔法显示效果!', '温馨提示', MB_ICONQUESTION)
else Application.MessageBox('已开启所有魔法显示效果!', '温馨提示', MB_ICONQUESTION);
{$I VMProtectEnd.inc}
end;
procedure TBoxFrm.N9Click(Sender: TObject);
begin
ShellExecute(0, nil, PChar('explorer.exe'), PChar('/e, ' + '/select, ' + Application.ExeName), nil, SW_NORMAL);
end;
procedure TBoxFrm.N10Click(Sender: TObject);
begin
{$I VMProtectBegin.inc}
DelDirectory(ExtractFilePath(Application.ExeName) + 'SKIN');
DelDirectory(ExtractFilePath(Application.ExeName) + 'DyxTools');
DelDirectory(ExtractFilePath(Application.ExeName) + 'TEMP');
DeletePath(ExtractFilePath(Application.ExeName) + 'King\Saved', 'itm');
DeletePath(ExtractFilePath(Application.ExeName) + 'King\Saved', 'cfg');
DeletePath(ExtractFilePath(Application.ExeName) + 'King\Saved', 'opt');
DeletePath(ExtractFilePath(Application.ExeName) + 'King\Saved', 'TXT');
DeleteFile('.\UpdateConfig.INI');
Application.MessageBox('垃圾文件清理完毕!', '温馨提示', MB_ICONQUESTION);
{$I VMProtectEnd.inc}
end;
procedure TBoxFrm.N7Click(Sender: TObject);
begin
{$I VMProtectBegin.inc}
if (not Assigned(C_SelServer.Selected)) or (C_SelServer.Selected.Level <> 1) then
begin
Application.MessageBox('请选择您所要卡号处理的分区', '温馨提示', MB_ICONQUESTION);
Exit;
end;
if not BoLoginCon then
begin
Application.MessageBox('服务器维护中', '温馨提示', MB_ICONQUESTION);
Exit;
end;
if not Assigned(Frm_IDProc) then Application.CreateForm(TFrm_IDProc, Frm_IDProc);
Frm_IDProc.SetSrvParam(NowSrv.sSrvHost, NowSrv.sSrvPort);
Frm_IDProc.ShowModal;
FreeAndNil(Frm_IDProc);
{$I VMProtectEnd.inc}
end;

复制代码

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

MooCa · 发表于 2023-7-2 03:46:15

论坛有你而精彩

hbzh1001 · 发表于 2023-7-8 17:21:28

太感谢楼主喽。

hahaq · 发表于 2023-9-16 15:09:15

模棱！！！！

jinxinsx · 发表于 2023-9-23 10:47:35

感谢分享

qzjingbiao · 发表于 2023-12-15 18:47:36

如果对法国达飞很大方

小熊熊 · 发表于 2024-1-28 01:47:52

进来看看~~~~

test39857 · 发表于 2024-4-12 13:19:23

论坛有你而精彩，攒攒

getmet · 发表于 2024-4-20 23:52:26

666666666666666

huxiyule · 发表于 2024-5-4 00:44:43

非常好的东西

SLK传奇3登录器源码,地狱星,冷雨夜登陆器源代码V15.1 [传奇3源码]

相关帖子