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

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

[复制链接]

826

主题

36

回帖

23万

积分

霸王教主

积分
236844
发表于 2023-1-26 11:06:43 | 显示全部楼层 |阅读模式
登陆器源码.png
登陆器源码.png
登陆器源码.png
登陆器源码.png
登陆器源码.png

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


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

购买登录器请联系站长
  1. procedure TBoxFrm.N8Click(Sender: TObject);
  2. function SetMagicData(BoOpen: Boolean): Boolean;
  3. const
  4. {$IFDEF NEWCLIENT}
  5.   NameExt = '.Wil';
  6. {$ELSE}
  7.   NameExt = '.Wix';
  8. {$ENDIF}
  9. begin
  10. {$I VMProtectBegin.inc}
  11.   try
  12.    Result := True;
  13.    if BoOpen then
  14.    begin
  15.     RenameFile(GetCurrentDir + '\Data\Magic' + NameExt, GetCurrentDir + '\Data\_Magic' + NameExt);
  16.     RenameFile(GetCurrentDir + '\Data\MagicEx' + NameExt, GetCurrentDir + '\Data\_MagicEx' + NameExt);
  17.     RenameFile(GetCurrentDir + '\Data\MonMagic' + NameExt, GetCurrentDir + '\Data\_MonMagic' + NameExt);
  18.     RenameFile(GetCurrentDir + '\Data\MonMagicEx' + NameExt, GetCurrentDir + '\Data\_MonMagicEx' + NameExt);
  19.    end else
  20.    begin
  21.     RenameFile(GetCurrentDir + '\Data\_Magic' + NameExt, GetCurrentDir + '\Data\Magic' + NameExt);
  22.     RenameFile(GetCurrentDir + '\Data\_MagicEx' + NameExt, GetCurrentDir + '\Data\MagicEx' + NameExt);
  23.     RenameFile(GetCurrentDir + '\Data\_MonMagic' + NameExt, GetCurrentDir + '\Data\MonMagic' + NameExt);
  24.     RenameFile(GetCurrentDir + '\Data\_MonMagicEx' + NameExt, GetCurrentDir + '\Data\MonMagicEx' + NameExt);
  25.    end;
  26.   except
  27.    Result := False;
  28.   end;
  29. {$I VMProtectEnd.inc}
  30. end;
  31. begin
  32. {$I VMProtectBegin.inc}
  33. N8.Checked := not N8.Checked;
  34. if not SetMagicData(N8.Checked) then
  35. begin
  36.   Application.MessageBox(PChar('当前游戏文件处于占用状态,请退出游戏后再试!'), '温馨提示', MB_OK + MB_ICONERROR);
  37.   Exit;
  38. end;
  39. if N8.Checked then
  40.   Application.MessageBox('已关闭所有魔法显示效果!', '温馨提示', MB_ICONQUESTION)
  41. else Application.MessageBox('已开启所有魔法显示效果!', '温馨提示', MB_ICONQUESTION);
  42. {$I VMProtectEnd.inc}
  43. end;

  44. procedure TBoxFrm.N9Click(Sender: TObject);
  45. begin
  46. ShellExecute(0, nil, PChar('explorer.exe'), PChar('/e, ' + '/select, ' + Application.ExeName), nil, SW_NORMAL);
  47. end;

  48. procedure TBoxFrm.N10Click(Sender: TObject);
  49. begin
  50. {$I VMProtectBegin.inc}
  51. DelDirectory(ExtractFilePath(Application.ExeName) + 'SKIN');
  52. DelDirectory(ExtractFilePath(Application.ExeName) + 'DyxTools');
  53. DelDirectory(ExtractFilePath(Application.ExeName) + 'TEMP');
  54. DeletePath(ExtractFilePath(Application.ExeName) + 'King\Saved', 'itm');
  55. DeletePath(ExtractFilePath(Application.ExeName) + 'King\Saved', 'cfg');
  56. DeletePath(ExtractFilePath(Application.ExeName) + 'King\Saved', 'opt');
  57. DeletePath(ExtractFilePath(Application.ExeName) + 'King\Saved', 'TXT');
  58. DeleteFile('.\UpdateConfig.INI');
  59. Application.MessageBox('垃圾文件清理完毕!', '温馨提示', MB_ICONQUESTION);
  60. {$I VMProtectEnd.inc}
  61. end;

  62. procedure TBoxFrm.N7Click(Sender: TObject);
  63. begin
  64. {$I VMProtectBegin.inc}
  65. if (not Assigned(C_SelServer.Selected)) or (C_SelServer.Selected.Level <> 1) then
  66. begin
  67.   Application.MessageBox('请选择您所要卡号处理的分区', '温馨提示', MB_ICONQUESTION);
  68.   Exit;
  69. end;
  70. if not BoLoginCon then
  71. begin
  72.   Application.MessageBox('服务器维护中', '温馨提示', MB_ICONQUESTION);
  73.   Exit;
  74. end;
  75. if not Assigned(Frm_IDProc) then Application.CreateForm(TFrm_IDProc, Frm_IDProc);
  76. Frm_IDProc.SetSrvParam(NowSrv.sSrvHost, NowSrv.sSrvPort);
  77. Frm_IDProc.ShowModal;
  78. FreeAndNil(Frm_IDProc);
  79. {$I VMProtectEnd.inc}
  80. end;
复制代码

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






上一篇:AppleM2源码控件安装,编译教程视频
下一篇:EI3.0插件源码Tools2.0客户端品牌加密文件工具
回复

使用道具 举报

1

主题

20

回帖

289

积分

旋风流星刀

积分
289
发表于 2023-7-2 03:46:15 | 显示全部楼层
论坛有你而精彩
回复 支持 反对

使用道具 举报

0

主题

8

回帖

34

积分

旋风流星刀

积分
34
发表于 2023-7-8 17:21:28 | 显示全部楼层
太感谢楼主喽。
回复 支持 反对

使用道具 举报

3

主题

21

回帖

235

积分

旋风流星刀

积分
235
发表于 2023-9-16 15:09:15 | 显示全部楼层
模棱!!!!
回复

使用道具 举报

0

主题

5

回帖

215

积分

旋风流星刀

积分
215
发表于 2023-9-23 10:47:35 | 显示全部楼层
感谢分享
回复

使用道具 举报

0

主题

9

回帖

222

积分

旋风流星刀

积分
222
发表于 2023-12-15 18:47:36 | 显示全部楼层
如果对法国达飞很大方
回复 支持 反对

使用道具 举报

0

主题

17

回帖

147

积分

旋风流星刀

积分
147
发表于 2024-1-28 01:47:52 | 显示全部楼层
进来看看~~~~
回复

使用道具 举报

0

主题

17

回帖

58

积分

旋风流星刀

积分
58
发表于 2024-4-12 13:19:23 | 显示全部楼层
论坛有你而精彩,攒攒
回复 支持 反对

使用道具 举报

0

主题

5

回帖

202

积分

旋风流星刀

积分
202
发表于 2024-4-20 23:52:26 | 显示全部楼层
666666666666666
回复 支持 反对

使用道具 举报

0

主题

2

回帖

281

积分

旋风流星刀

积分
281
发表于 2024-5-4 00:44:43 | 显示全部楼层
非常好的东西
回复 支持 反对

使用道具 举报

© 2001-2024 Discuz! Team. Powered by Discuz! X3.5

GMT+8, 2024-7-24 14:47 , Processed in 0.342145 second(s), 90 queries 手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

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

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