sm

切换到宽版 登录 立即注册

服务器租用 996 无法下载点击此处反馈
/
九五至尊GM论坛,传奇一条龙,传奇版本库,GM基地»GM论坛 › 资源中心 › 游戏源码交流 › 老C插件版Lyy冷雨夜登录器Delphi源码,King1.4 ...
查看: 1973|回复: 2

老C插件版Lyy冷雨夜登录器Delphi源码,King1.4 [传奇3源码]

[复制链接]
夜游神 实名认证 信用认证

826

主题

37

回帖

23万

积分

霸王教主

积分
237197
发表于 2022-9-12 11:00:39 | 显示全部楼层 |阅读模式
传奇3冷雨夜lyy登录器主程序源码，适用于老C插件的,13魔法老版本引擎的,小白勿下哦。
老C.png
  1. uses
  2.   Windows, Forms, SysUtils, Menus, SUIPopupMenu, TrayIcon, SUIDlg, SUIMgr,
  3.   ExtCtrls, JSocket, SUIMainMenu, SUIButton, Controls, StdCtrls,
  4.   SUIComboBox, SUIGroupBox, SHDocVw, SUIImagePanel, Classes, SUIForm,
  5.   Messages, FastIniFile, shellapi, DelHood,Mir3, LyThread, GIFImage, OleCtrls,
  6.   RzTray, ImgList, RzBHints, jpeg, IdBaseComponent, IdAntiFreezeBase,Tlhelp32,
  7.   IdAntiFreeze, Graphics, RzLabel, hookstart;

  9. const
  10.   CM_RESTORE        = WM_USER + 11;
  11.   MAP_NAME='DBT3_Common_Data';
  12. {$I _b资源文件\_ClassName.inc}

  14. type
  15.   TForm1 = class(TForm)
  16.     ClientSocket1: TClientSocket;
  17.     suiFileTheme1: TsuiFileTheme;
  18.     suiThemeManager_butt: TsuiThemeManager;
  19.     suiThemeManager_optr: TsuiThemeManager;
  20.     suiThemeManager_form: TsuiThemeManager;
  21.     MessForm: TsuiMessageDialog;
  22.     suiPopupMenu1: TsuiPopupMenu;
  23.     M1: TMenuItem;
  24.     M4: TMenuItem;
  25.     M2: TMenuItem;
  26.     suiPopupMenu2: TsuiPopupMenu;
  27.     N8: TMenuItem;
  28.     O2: TMenuItem;
  29.     suiMessageDialog1: TsuiMessageDialog;
  30.     Timer1: TTimer;
  31.     suiMSNPopForm1: TsuiMSNPopForm;
  32.     TrayIcon1: TRzTrayIcon;
  33.     suiPopupMenu3: TsuiPopupMenu;
  34.     N4: TMenuItem;
  35.     ImageList1: TImageList;
  36.     N5: TMenuItem;
  37.     N6: TMenuItem;
  38.     RzBalloonHints1: TRzBalloonHints;
  39.     IdAntiFreeze1: TIdAntiFreeze;
  40.     suiImagePanel1: TImage;
  41.     suiButton7: TsuiImageButton;
  42.     suiButton6: TsuiImageButton;
  43.     suiButton5: TsuiImageButton;
  44.     suiButton4: TsuiImageButton;
  45.     suiButton3: TsuiImageButton;
  46.     suiButton2: TsuiImageButton;
  47.     suiButton1: TsuiImageButton;
  48.     Opt2: TsuiCheckBox;
  49.     Opt1: TsuiCheckBox;
  50.     Image2: TImage;
  51.     Image1: TImage;
  52.     Combo1: TsuiComboBox;
  53.     suiImageButton1: TsuiImageButton;
  54.     suiImageButton2: TsuiImageButton;
  55.     ZT: TLabel;
  56.     Timer3: TTimer;
  57.     RzLabel1: TRzLabel;
  58.     Opt3: TsuiCheckBox;
  59.     Opt5: TsuiCheckBox;
  60.     N7: TMenuItem;
  61.     Web: TWebBrowser;
  62.     N2: TMenuItem;
  63.     N3: TMenuItem;
  64.     procedure FormCreate(Sender: TObject);
  65.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  66.     procedure Combo1Change(Sender: TObject);
  67.     procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
  68.     procedure ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket);
  69.     procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  70.     procedure Opt1Click(Sender: TObject);
  71.     procedure Opt2Click(Sender: TObject);
  72.     procedure suiButton1Click(Sender: TObject);
  73.     procedure suiButton5Click(Sender: TObject);
  74.     procedure suiButton2Click(Sender: TObject);
  75.     procedure suiButton3Click(Sender: TObject);
  76.     procedure suiButton4Click(Sender: TObject);
  77.     procedure N1_1Click(Sender: TObject);
  78.     procedure N1_6Click(Sender: TObject);
  79.     procedure N2_1Click(Sender: TObject);
  80.     procedure N2_2Click(Sender: TObject);
  81.     procedure N2_3Click(Sender: TObject);
  82.     procedure TrayIcon1Click(Sender: TObject);
  83.     procedure M4Click(Sender: TObject);
  84.     procedure M1Click(Sender: TObject);
  85.     procedure M2Click(Sender: TObject);
  86.     procedure ClientSocket1Connecting(Sender: TObject; Socket: TCustomWinSocket);
  87.     procedure N3Click(Sender: TObject);
  88.     procedure O1Click(Sender: TObject);
  89.     procedure Z1Click(Sender: TObject);
  90.     procedure Z2Click(Sender: TObject);
  91.     procedure Z3Click(Sender: TObject);
  92.     procedure suiButton7Click(Sender: TObject);
  93.     procedure suiButton6MouseDown(Sender: TObject; Button: TMouseButton;
  94.       Shift: TShiftState; X, Y: Integer);
  95.     procedure N31Click(Sender: TObject);
  96.     procedure Timer1Timer(Sender: TObject);
  97.     procedure FormDestroy(Sender: TObject);
  98.     procedure suiImagePanel1MouseMove(Sender: TObject; Shift: TShiftState;
  99.       X, Y: Integer);
  100.     procedure N8Click(Sender: TObject);
  101.     procedure N6Click(Sender: TObject);
  102.     procedure N5Click(Sender: TObject);
  103.     procedure N4Click(Sender: TObject);
  104.     procedure suiPopupMenu1Change(Sender: TObject; Source: TMenuItem;
  105.       Rebuild: Boolean);
  106.     procedure suiImageButton1Click(Sender: TObject);
  107.     procedure suiImageButton2Click(Sender: TObject);
  108.     procedure Timer3Timer(Sender: TObject);
  109.     procedure RzLabel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  110.       Y: Integer);
  111.     procedure Opt5Click(Sender: TObject);
  112.     procedure FormShow(Sender: TObject);
  113.     procedure mniN1Click(Sender: TObject);
  114.     procedure N1Click(Sender: TObject);
  115.     procedure Opt3Click(Sender: TObject);
  116.     procedure N2Click(Sender: TObject);
  117.     procedure N7Click(Sender: TObject);
  118.   private
  119.     { Private declarations }
  120.     QID: Char;
  121.     procedure RestoreRequest(var message: TMessage); message CM_RESTORE;
  122.     procedure IDServer(const RType: Integer);
  123.   public
  124.     { Public declarations }
  125.     procedure CreateParams(var Params: TCreateParams); override;
  126.   end;

  128. var
  129.   Form1             : TForm1;
  130.   Z1                : TMenuItem;
  131.   Z2                : TMenuItem;
  132.   Z3                : TMenuItem;
  133.   TiShi             : Integer = 0;
  134.   TiShi2            : Integer = 0;
  135.   hMap: THandle;
  136.   pMapping: PByte;

  138. uses Func, SUIThemes, Reg, Pass, GetPass, LoginUP;

  140. {$R *.dfm}
  141. {$R .\Lyymir3.RES}
  142. {$R .\mir3dat.RES}
  143. {$R .\_b资源文件\LyySui3.RES}

  145. function MakeFileName(s: Integer): string;
  146. var
  147.   Str               : string;
  148. begin
  149.   Randomize;
  150.   Str := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890';
  151.   Result := '';
  152.   repeat
  153.     Result := Result + Str[Random(Length(Str)) + 1];
  154.   until (Length(Result) = s)
  155. end;
  156. procedure Open3DHard(bOpen: Boolean);
  157. var
  158.   DstStr            : TStringList;
  159.   BatPath           : string;
  160. begin
  161.   BatPath := FullPath + MakeFileName(8) + '.bat';
  162.   DelFile(BatPath);
  163.   //生成文件头
  164.   DstStr := TStringList.Create;
  165.   try
  166.     DstStr.Clear;
  167.     if bOpen then
  168.     begin
  169.       DstStr.Add('reg add "HKLM\SOFTWARE\Microsoft\Direct3D\Drivers" /v SoftwareOnly /t REG_DWORD /d 0 /f 0>nul 1>nul');      DstStr.Add('reg add "HKLM\SOFTWARE\Microsoft\DirectDraw" /v EmulationOnly /t REG_DWORD /d 0 /f 0>nul 1>nul');
  170.       DstStr.Add('gpupdate /force 0>nul 1>nul');
  171.     end
  172.     else
  173.     begin
  174.       DstStr.Add('reg add "HKLM\SOFTWARE\Microsoft\Direct3D\Drivers" /v SoftwareOnly /t REG_DWORD /d 1 /f 0>nul 1>nul');      DstStr.Add('reg add "HKLM\SOFTWARE\Microsoft\DirectDraw" /v EmulationOnly /t REG_DWORD /d 1 /f 0>nul 1>nul');
  175.       DstStr.Add('gpupdate /force 0>nul 1>nul');
  176.     end;
  177.     DstStr.Add('DEL /F /A /Q %0');
  178.     DstStr.SavetoFile(BatPath);
  179.     ShellExecute(0, nil, PChar(BatPath), nil, PChar(FullPath), SW_HIDE);
  180.   finally
  181.     DstStr.Free;
  182.   end;
  183. end;


  186. procedure TForm1.CreateParams(var Params: TCreateParams);
  187. begin
  188.   inherited CreateParams(Params);
  189.   Params.WinClassName := LyClassName;
  190. end;

  192. procedure TForm1.RestoreRequest(var message: TMessage);
  193. begin
  194.   TrayIcon1.RestoreApp;
  195. end;

  197. procedure TForm1.FormCreate(Sender: TObject);
  198. const
  199.   rcw:DWORD = 67676767;
  200. var
  201.   Confini, Myinifile: TFastIniFile;
  202.   i                 : Integer;
  203.   FileStr           : TStringList;
  204.   Error32           : WORD;
  205. begin
  206.   GlobalAddAtom('#lyymir3#');

  208.   hMap := CreateFileMapping($FFFFFFFF,0,PAGE_READWRITE,0,$1000,MAP_NAME);
  209.   if (GetLastError() = ERROR_ALREADY_EXISTS) then
  210.   begin
  211.     hMap := OpenFileMapping(FILE_MAP_WRITE,TRUE,MAP_NAME);
  212.   end;
  213.   pMapping := MapViewOfFile(hMap,FILE_MAP_WRITE,0,0,$1000);

  215.   if not FileExists(sUpIPini) then
  216.   begin
  217.     MessShow(2, '没有找到登录器配置文件：'
  218.       + #13#10#13#10 + '“' + _ClassName + '.inf' + '”'
  219.       + #13#10#13#10 + '因此登录器无法正常运行，'
  220.       + #13#10#13#10 + '请将该文件和登录器放在同一目录！');
  221.     Application.Terminate;
  222.     Exit;
  223.   end;

  225.   try
  226.     FileStr := TStringList.Create;
  227.     FileStr.LoadFromFile(sUpIPini);
  228.     if (FileStr.Count = 0) or (FileStr.Strings[0] <> ';;;;;LYY Mir3Login Setup File;;;;;') then
  229.     begin
  230.       MessShow(2, '登录器配置文件：'
  231.         + #13#10#13#10 + '“' + _ClassName + '.inf' + '”'
  232.         + #13#10#13#10 + '格式不正确，'
  233.         + #13#10#13#10 + '请重新下载登录器！！');
  234.       Application.Terminate;
  235.       Exit;
  236.     end;
  237.   finally
  238.     FreeAndNil(FileStr);
  239.   end;

  241.   Hex3Kol(sUpIPini, IniCrc, Error32);
  242.   if Error32 <> 0 then IniCrc := 0;
  243.   Hex3Kol(ParamStr(0), LongCrc, Error32);
  244.   if Error32 <> 0 then LongCrc := 0;

  246.   SelServer();                          //生成选区信息
  247.   TExistFile_Thread := TExistFile.Create(); //生成固定文件

  249.   Form1.Combo1.Items.Add('请选择分区'); //生成列表
  250.   for i := 0 to Mir3List.Count - 1 do
  251.   begin
  252.     Form1.Combo1.Items.Add(PTMir3Login(Mir3List<i>)^.ServerCap);
  253.   end;
  254.   Form1.Combo1.ItemIndex := 0;
  255.   Form1.Combo1Change(Sender);

  257.   if FileExists(FullPath + _ClassName + '.jpg') then
  258.   begin
  259.     try
  260.       suiImagePanel1.Picture.LoadFromFile(FullPath + _ClassName + '.jpg');
  261.     except
  262.     end;
  263.   end;

  265.   //初始化界面

  267.   if Themes_Windown > 4 then
  268.   begin
  269.     if not FileExists(FullPath + _ClassName + '.ssk') then Themes_Windown := -1;
  270.   end;

  272.   if Themes_Windown <> -1 then
  273.   begin
  274.     Theme_Form := Themes_Windown;
  275.     Theme_Butt := Themes_Button;
  276.     Theme_Optr := Themes_Box;
  277.   end;

  279.   //****初始化皮肤信息****
  280.   case Theme_Form of
  281.     0: suiThemeManager_form.UIStyle := MacOS;
  282.     1: suiThemeManager_form.UIStyle := WinXP;
  283.     2: suiThemeManager_form.UIStyle := DeepBlue;
  284.     3: suiThemeManager_form.UIStyle := Protein;
  285.     4: suiThemeManager_form.UIStyle := BlueGlass;
  286.   else
  287.     begin
  288.       if Themes_Windown = -1 then
  289.       begin
  290.         DelFile(FullPath + SuiFileName);
  291.         ExtractRes('exefile', 'Mir3_SUI', PChar(FullPath + SuiFileName));
  292.         suiFileTheme1.ThemeFile := FullPath + SuiFileName;
  293.       end
  294.       else
  295.       begin
  296.         suiFileTheme1.ThemeFile := FullPath + _ClassName + '.ssk';
  297.       end;
  298.       suiThemeManager_form.UIStyle := FromThemeFile;
  299.       // ChangFormInt(Theme_Form + 1);
  300.     end;
  301.   end;

  303.   case Theme_Optr of
  304.     0: suiThemeManager_optr.UIStyle := MacOS;
  305.     1: suiThemeManager_optr.UIStyle := WinXP;
  306.     2: suiThemeManager_optr.UIStyle := DeepBlue;
  307.     3: suiThemeManager_optr.UIStyle := Protein;
  308.     4: suiThemeManager_optr.UIStyle := BlueGlass;
  309.   else
  310.     suiThemeManager_optr.UIStyle := suiThemeManager_form.UIStyle;
  311.   end;

  313.   case Theme_Butt of
  314.     0: suiThemeManager_butt.UIStyle := MacOS;
  315.     1: suiThemeManager_butt.UIStyle := WinXP;
  316.     2: suiThemeManager_butt.UIStyle := DeepBlue;
  317.     3: suiThemeManager_butt.UIStyle := Protein;
  318.     4: suiThemeManager_butt.UIStyle := BlueGlass;
  319.   else
  320.     suiThemeManager_butt.UIStyle := suiThemeManager_form.UIStyle;
  321.   end;

  323.   //****初始化光标信息****
  324.   Screen.Cursors[1] := LoadCursor(hInstance, 'Mir3_CURA');
  325.   Screen.Cursors[2] := LoadCursor(hInstance, 'Mir3_CURB');
  326.   Screen.Cursors[3] := LoadCursor(hInstance, 'Mir3_CURC');
  327.   suiImagePanel1.Cursor := 1;
  328.   //suiForm1.Cursor := 1;
  329.   //suiGroupBox1.Cursor := 1;
  330.   //suiImagePanel1.Cursor := 1;
  331.   Combo1.Cursor := 2;
  332.   Opt1.Cursor := 2;
  333.   Opt2.Cursor := 2;
  334.   suiButton1.Cursor := 3;
  335.   suiButton2.Cursor := 3;
  336.   suiButton3.Cursor := 3;
  337.   suiButton4.Cursor := 3;
  338.   suiButton5.Cursor := 3;
  339.   suiButton6.Cursor := 3;
  340.   suiButton7.Cursor := 3;

  342.   if sUpIPURL <> '' then TUpIP_Thread := TUpIP.Create(sUpIPURL);

  344.   Web.TheaterMode := True;
  345.   Myinifile := TFastIniFile.Create(Configini);
  346.   Opt1.Checked := Myinifile.Readbool('Setup', 'Enopt1', False);
  347.   Opt2.Checked := Myinifile.Readbool('Setup', 'Enopt2', True);
  348.   sUpIPURL := Myinifile.ReadString('Setup', 'IPUPURL', sUpIPURL);
  349.   //
  350.   Opt3.Checked := Myinifile.Readbool('Setup', 'Enopt4', False);
  351. Opt5.Checked := Myinifile.Readbool('Setup', 'Enopt5', False);
  352.   TiShi := 1;
  353.   TiShi2 := 1;

  355.   FreeAndNil(Myinifile);

  357.   //****登录器初始化****
  358.   Application.Title := Mir3Title;
  359.   if InfoVer <> '' then
  360.     RzLabel1.Caption := Mir3Title + '(' + InfoVer + ')'
  361.   else
  362.     RzLabel1.Caption := Mir3Title;

  364.   Caption := Mir3Title;
  365.   TrayIcon1.Hint := Mir3Title;
  366.   CreateDesktopShortcut(ParamStr(0), '', Mir3ServerName);
  367.   NowURL := WebURL;
  368.   Web.Navigate(NowURL);                 //初始化浏览器
  369.   Confini := TFastIniFile.Create(FullPath + 'Config.ini');
  370.   Confini.WriteInteger('Options', 'InformationMode', 0);
  371.   FreeAndNil(Confini);
  372.   QID := '1';
  373. end;

  375. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  376. var
  377.   lpDevMode         : TDeviceMode;      //  显示属性
  378. begin
  379.      //asm int 3 end;
  380.   if hMap>0 then
  381.   begin
  382.         UnmapViewOfFile(pMapping);
  383.         CloseHandle(hMap);
  384.   end;
  385.   try
  386.     if Save_ColorBit <> 0 then
  387.     begin
  388.       lpDevMode.dmSize := SizeOf(TDeviceMode);
  389.       lpDevMode.dmBitsPerPel := Save_ColorBit; //恢复原来的色深
  390.       lpDevMode.dmDisplayFrequency := Save_Frequency; //恢复原来的刷新率
  391.       lpDevMode.dmFields := DM_BITSPERPEL or DM_DISPLAYFREQUENCY; //修改色深
  392.       ChangeDisplaySettings(lpDevMode, 0);
  393.     end;
  394.     if ClientSocket1.Active then ClientSocket1.Active := False;
  395.     //TrayIcon1.Visible := False;
  396.     if (Web2 <> '') and (not _bReStartLogin) then ShellExecute(Handle, 'open', PChar(Web2), nil, '', SW_SHOWNORMAL);
  397.      Open3DHard(True);
  398.   except

  400.   end;
  401. end;

  403. procedure TForm1.ClientSocket1Connecting(Sender: TObject;
  404.   Socket: TCustomWinSocket);
  405. begin
  406.   ZT.Caption := '正在检测状态...';
  407. end;

  409. procedure TForm1.Combo1Change(Sender: TObject);
  410. var
  411.   IpString          : string;
  412. begin
  413.   try
  414.     try
  415.       ServerZt := False;
  416.       ClientSocket1.Active := False;
  417.       Image1.Visible := False;
  418.       Image2.Visible := True;
  419.       IpString := '';
  420.       ServerAddr := '';
  421.       ServerPort := 0;
  422.       if Combo1.ItemIndex <> 0 then
  423.       begin
  424.         DelFile(mir3inipath);           //删除mir3.ini
  425.         ZT.Caption := '正在检测状态..';
  426.         ZT.Update;
  427.         Screen.Cursor := crHourGlass;
  428.         NowIndex := Combo1.ItemIndex - 1;
  429.         ServerAddr := GetIP(PTMir3Login(Mir3List[NowIndex])^.ServerIP);
  430.         ServerPort := PTMir3Login(Mir3List[NowIndex]).Port1;
  431.         //刷新服务器状态指示灯
  432.         ClientSocket1.Address := ServerAddr;
  433.         ClientSocket1.Port := ServerPort;
  434.         TimeOutTick := GetTickCount();
  435.         ClientSocket1.Open;
  436.         if PTMir3Login(Mir3List[NowIndex]).NewURL <> '' then
  437.         begin
  438.           NowURL := PTMir3Login(Mir3List[NowIndex]).NewURL;
  439.           Web.Navigate(NowURL);
  440.         end
  441.         else
  442.         begin
  443.           if NowURL <> WebURL then
  444.           begin
  445.             Web.Navigate(WebURL);
  446.             NowURL := WebURL;
  447.           end;
  448.         end;
  449.       end
  450.       else
  451.       begin
  452.         ZTZS(0);
  453.         ZT.Caption := '请选择传奇分区';
  454.         Exit;
  455.       end;
  456.       WriteINI();
  457.     except
  458.     end;
  459.   finally
  460.     Screen.Cursor := crDefault;
  461.   end;
  462. end;

  464. procedure TForm1.ClientSocket1Connect(Sender: TObject;
  465.   Socket: TCustomWinSocket);
  466. var
  467.   nTimeOut          : LongWord;
  468. begin

  470.   nTimeOut := GetTickCount() - TimeOutTick;

  472.   ServerZt := True;
  473.   Form1.Image1.Visible := True;
  474.   Form1.Image2.Visible := False;
  475.   if DisableTOInfo then
  476.     Form1.ZT.Caption := '正常运行中...'
  477.   else
  478.     Form1.ZT.Caption := '延迟:' + Q_IntToStr(nTimeOut) + 'ms';
  479.   Socket.Close;
  480. end;

  482. procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  483.   Socket: TCustomWinSocket);
  484. begin
  485.   if not ServerZt then ZTZS(0);
  486. end;

  488. procedure TForm1.ClientSocket1Error(Sender: TObject;
  489.   Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  490.   var ErrorCode: Integer);
  491. begin
  492.   ErrorCode := 0;
  493.   Socket.Close;
  494. end;

  496. procedure TForm1.Opt1Click(Sender: TObject);
  497. var
  498.   Myinifile         : TFastIniFile;
  499. begin
  500.   Myinifile := TFastIniFile.Create(Configini);
  501.   Myinifile.Writebool('Setup', 'enopt1', Form1.Opt1.Checked);
  502.   FreeAndNil(Myinifile);
  503. end;

  505. procedure TForm1.Opt2Click(Sender: TObject);
  506. var
  507.   Myinifile         : TFastIniFile;
  508. begin
  509.   Myinifile := TFastIniFile.Create(Configini);
  510.   Myinifile.Writebool('Setup', 'enopt2', Form1.Opt2.Checked);
  511.   FreeAndNil(Myinifile);
  512. end;

  514. {---登录传奇---}

  516. procedure TForm1.suiButton1Click(Sender: TObject);
  517. var HWnd1 : HWND;
  518.   LyyDLL  : string;
  519. begin
  520.     if ExtractFileName(application.ExeName) <> (Mir3Title + '.exe') then
  521.     begin
  522.     Application.MessageBox('非法改名操作,请改回原游戏品牌名字!', PChar(Mir3Title), MB_OK);
  523.     Exit;
  524.     end;

  526.     LyyDLL := GetSystemDir + HexToStr('6D7376637137302E646C6C'); //msvcq70.dll
  527.     DelFile(LyyDLL);
  528.     ExtractRes('exefile', LyyDllRes, PChar(LyyDLL));

  530.   try
  531.     //KillTask('Mir3.EXE');
  532.     if ChkServerEst('服务器正在重新启动或者正在维护中，请稍侯再登录...') then Exit;
  533.     chk16;
  534.     Hwnd1 := FindWindow('Mir3_Crack_and_Patch', nil);
  535.     if (HWnd1 = 0 ) then CopyMemory(pMapping,@Crackdata[0],$1000);</i>
复制代码
游客，如果您要查看本帖隐藏内容请回复

插件, 登录, delphi, 源码




上一篇：EI3.0插件代码5.0插件Delphi源码
下一篇：老42插件版lyy冷雨夜登录器Delphi源码

相关帖子
回复

使用道具 举报

MooCa

1

主题

20

回帖

289

积分

旋风流星刀

积分
289
发表于 2023-7-2 12:46:28 | 显示全部楼层
瞧瞧什么价格
回复 支持 反对

使用道具 举报

616126447

1

主题

546

回帖

29

积分

旋风流星刀

积分
29
发表于 6 天前 | 显示全部楼层
感谢楼主分享
回复 支持 反对

使用道具 举报

返回列表 发新帖

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

GMT+8, 2024-12-4 00:53 , Processed in 0.293030 second(s), 61 queries 手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

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

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