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;