- 注册时间
- 2011-3-10
- 最后登录
- 1970-1-1
该用户从未签到
|
[求助]如何解决后台起路时点住NPC,人物,怪时不能正常走路?delphi组合键的使用?老是出现不走!求助
procedure gotoPoXPoY(x:single;y:single);
var base : DWord;
x1,y1 :Single;
tmpWriteData,vNumberOfBytesRead,NoGuai :DWord;
begin
x1 := x;
y1 := y;
If nOK<>0 Then
begin
ReadProcessMemory (nOK,Pointer($008D64B4),@base,4,lpNumberOfBytesRead);
ReadProcessMemory (nOK,Pointer(base+$24),@base,4,lpNumberOfBytesRead);
ReadProcessMemory (nOK,Pointer(base+$8CC),@base,4,lpNumberOfBytesRead);
ReadProcessMemory (nOK,Pointer(base+$30),@base,4,lpNumberOfBytesRead);
ReadProcessMemory (nOK,Pointer(base+$4),@base,4,lpNumberOfBytesRead);
SendMessage(currentlyFormHwnd,WM_LBUTTONDOWN,1,200 * $10000 + 300);
SendMessage(currentlyFormHwnd,WM_LBUTTONUP,0,200 * $10000 + 300);
Sleep(500);
WriteProcessMemory(nOK, pointer(base + $20), @x1, 4, lpNumberOfBytesRead);
WriteProcessMemory(nOK, pointer(base + $28), @y1, 4, lpNumberOfBytesRead);
end;
end; |
|