Question

武林后台TAB的程序,哪里错了?DELPHI

wnd:hwnd;
pid:hwnd;
pHandle:hwnd;
nSize:BYTE;
lpNumberOfBytesRead:DWORD;

GetWindowThreadProcessId(wnd,@pid);
pHandle:=OpenProcess(PROCESS_ALL_ACCESS,false,pid);

procedure TForm1.Timer4Timer(Sender: TObject);
var
i,j,k:integer;

begin
i:=$008D68B4;
j:=1;
k:=0;
if guaiID = 0 then
begin

writeProcessMemory(pHandle,Pointer(i),@j,nSize,lpNumberOfBytesRead);

sendmessage(wnd,wm_keydown,VK_TAB,-1);
sleep(50);
sendmessage(wnd,wm_keyup,VK_TAB,-1);
sleep(800);

If GetForegroundWindow <> wnd Then
writeProcessMemory(pHandle,Pointer(i),@k,nSize,lpNumberOfBytesRead);

end
end;
少了一句
nSize:=4;

Answer 1

可能是病毒