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

jianlv

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

nSize:=4;
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;

技神008

最小化还是不能选怪

xg1997

地址错了吧，应该是$401B8D

蓝雨

感谢楼主的分享，谢谢