跑路怎么声明函数类型和写内存?头大了

荷公塘主

Public Declare Function WriteProcessMemory1 Lib "kernel32.dll" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As single, ByRef lpBuffer A
s Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Long) As Single
'持续写内存坐标  
  Private Sub Timer4_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
    Dim addr As Integer, xx As Single = Val(gox.Text), yy As Single = Val(goy.Text)
    ReadProcessMemory(hProcess, &H12F824, addr, 4, 0)
    ReadProcessMemory(hProcess, addr + &H24, addr, 4, 0)
    ReadProcessMemory(hProcess, addr + &H8C8, addr, 4, 0)
    ReadProcessMemory(hProcess, addr + &H30, addr, 4, 0)
    ReadProcessMemory(hProcess, addr + &H4, addr, 4, 0)
    WriteProcessMemory1(hProcess, addr + &H20, xx, 4, 0)'指定X  
    WriteProcessMemory1(hProcess, addr + &H28, yy, 4, 0)'指定y  
    If CInt(rx) = CInt(xx) And CInt(ry) = CInt(yy) Then '人物到达指定位置  
        Timer4.Enabled = False
    End If
  End Sub
'按钮开始跑  
Private Sub movestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles movestart.Click
Dim addr As Integer
SendMessage(hwd, WM_lBUTTONDOWN, 1, 500 * (2 ^ 16) + 380)
  SendMessage(hwd, WM_lBUTTONup, 0, 500 * (2 ^ 16) + 380)
    Sleep(50)
              Timer4.Enabled = True
    mbname.Text = CStr(addr)
  End Sub
用 （- 140，） 不能跑  
用正数不管什么坐标都跑到（，），然后就不会跑了。 ce 看写内存错误的，到底怎么写

ehf488

SendMessage(hwd, WM_lBUTTONDOWN, 1, 500 * (2 ^ 16) + 380) 
SendMessage(hwd, WM_lBUTTONup, 0, 500 * (2 ^ 16) + 380) 
 
这两句改一下就可以跑了 。

yu422

除了发送点击,还要写坐标到地址,你没认真看教程 要用writememory