谁有 Delphi 写的内存修改器源代码共享下

爱琴琴ZL

谁有 Delphi 写的内在修改器源代码共享下，偶想学学怎么写修改器谢谢。{:7_168:}

巨炮叔叔

用CE的源码``可以看学到``

s0512

1. unit wl_main;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7. Dialogs, bsSkinData, BusinessSkinForm, ComCtrls, bsSkinTabs, ExtCtrls,
   
8. bsSkinCtrls, StdCtrls,getgamepro, Gauges;
   
9. 
   
10. procedure sitcall;
    
11. type
    
12. TForm1 = class(TForm)
    
13. bsBusinessSkinForm1: TbsBusinessSkinForm;
    
14. bskndt1: TbsSkinData;
    
15. bscmprsdstrdsknskin: TbsCompressedStoredSkin;
    
16. bsSkinPageControl1: TbsSkinPageControl;
    
17. bsSkinTabSheet1: TbsSkinTabSheet;
    
18. bsSkinTabSheet2: TbsSkinTabSheet;
    
19. bsSkinBevel1: TbsSkinBevel;
    
20. bsSkinPanel1: TbsSkinPanel;
    
21. bskng1: TbsSkinGauge;
    
22. bskng2: TbsSkinGauge;
    
23. bskng3: TbsSkinGauge;
    
24. bskng4: TbsSkinGauge;
    
25. tmr1: TTimer;
    
26. btn1: TButton;
    
27. procedure btn1Click(Sender: TObject);
    
28. procedure tmr1Timer(Sender: TObject);
    
29. private
    
30. { Private declarations }
    
31. public
    
32. { Public declarations }
    
33. end;
    
34. 
    
35. var
    
36. Form1: TForm1;
    
37. 
    
38. implementation
    
39. 
    
40. {$R *.dfm}
    
41. 
    
42. procedure sitcall;
    
43. begin
    
44. asm
    
45. mov eax,006a5e10h
    
46. call eax
    
47. end;
    
48. end;
    
49. procedure TForm1.btn1Click(Sender: TObject);
    
50. var
    
51. gh:HWND;
    
52. gid,gpro:THandle;
    
53. calladdr:Pointer;
    
54. tt:DWORD;
    
55. begin
    
56. gh:=FindWindow(nil,'Element Client');
    
57. if gh > 0 then
    
58. begin
    
59. GetWindowThreadProcessId(gh,@gid);
    
60. gpro:=OpenProcess(PROCESS_ALL_ACCESS,False,gid);
    
61. calladdr:=VirtualAllocEx(gpro,nil,windows.MAX_PATH,windows.MEM_COMMIT OR windows.MEM_RESERVE,windows.PAGE_EXECUTE_READWRITE);
    
62. //写入代码
    
63. WriteProcessMemory(gpro,calladdr,@sitcall,MAX_PATH,tt);
    
64. CreateRemoteThread(gpro,nil,0,calladdr,nil,0,tt);
    
65. end;
    
66. end;
    
67. 
    
68. procedure TForm1.tmr1Timer(Sender: TObject);
    
69. var
    
70. gameh:HWND;
    
71. gameprocesspid,gameprocess:THandle;
    
72. Hp,MaxHp,Mp,MaxMp:DWORD;
    
73. i:DWORD;
    
74. tt,i1:DWord;
    
75. begin
    
76. hp:=0;
    
77. Mp:=0;
    
78. maxhp:=0;
    
79. MaxMp:=0;
    
80. gameprocess:=gamepro;
    
81. ReadProcessMemory(gameprocess,Pointer($B9F64C ),@i1,4,tt);
    
82. ReadProcessMemory(gameprocess,Pointer(i1 + $28),@i,4,tt);
    
83. ReadProcessMemory(gameprocess,Pointer(i + $264),@hp,2,tt);
    
84. ReadProcessMemory(gameprocess,Pointer(i + $268),@mp,2,tt);
    
85. ReadProcessMemory(gameprocess,Pointer(i + $280),@maxhp,2,tt);
    
86. ReadProcessMemory(gameprocess,Pointer(i + $284),@MaxMp,2,tt);
    
87. //ShowMessage(IntToStr(tt));
    
88. Self.bskng3.MaxValue:=MaxHp; //体力
    
89. Self.bskng3.Value:=hp ; //体力
    
90. Self.bskng3.ProgressTransparentColor:=clRed;
    
91. self.bskng4.MaxValue:=MaxMp;
    
92. Self.bskng4.Value:=Mp;
    
93. 
    
94. /////////
    
95. 
    
96. 
    
97. 
    
98. end;
    
99. 
    
100. end.

复制代码

之前乱写的！