- 注册时间
- 2011-3-10
- 最后登录
- 1970-1-1
该用户从未签到
|
var
i,j: cardinal;
a1,a2,a3,a4,My0,wun:integer;
WuName:array[0..60] of widechar;
basewu,base1:integer;
begin
ReadProcessMemory(hProcess,pointer($8F04D4),@base, 4, Num);
ReadProcessMemory(hProcess,pointer(base + $8), @basewu, 4, Num);
ReadProcessMemory(hProcess,pointer(basewu + $24), @basewu, 4, Num);
begin
for i:=0 to 768 do
ReadProcessMemory(hProcess,pointer(basewu + $18), @base1, 4, Num);
ReadProcessMemory(hProcess, Pointer(base1+i*4), @a2, 4, Num);
if a2>0 then
begin
ReadProcessMemory(hProcess, Pointer(a2+$4), @a3, 4, Num);
ReadProcessMemory(hProcess, Pointer(a3+$164), @a4, 4, Num);
ReadProcessMemory(hProcess, Pointer(a4), @WuName,40, Num);
label1.Caption:=wuname;
if listbox1.Count>0 then
for j:=0 to listbox1.Count -1 do
if pos(listbox1.Items[j],wuname )>0 then
begin
WriteProcessMemory(hProcess,pointer(Base1+i*4), 0, 4,Num);
ReadProcessMemory(hProcess,Pointer(BaseWu+$14),@WuN,4,Num);
WuN:=WuN-1;
WriteProcessMemory(hProcess,pointer(BaseWu+$14), @WuN, 4, Num);
end;
end;
end;
end; |
|