回合制网游鼠标偏移解决

Public Function 移动鼠标(x, y) As Boolean
    dm.moveto x, y
    dm.delay 50
    gx = dm.ReadInt(mhwnd, 鼠标X, 0)  
    gy = dm.ReadInt(mhwnd, 鼠标Y, 0)   
    dm.getcursorpos mx, my          
    dm.delay 50
    dx = x - gx                      
    dy = y - gy             
    dm.delay 50
    Do While (dx ^ 2 + dy ^ 2) > 2
        dm.moveto mx + dx, my + dy
        dm.delay 50
        gx = dm.ReadInt(mhwnd, 鼠标X, 0)   
        gy = dm.ReadInt(mhwnd, 鼠标Y, 0)   
        dm.getcursorpos mx, my               
        dm.delay 50
        dx = x - gx                           
        dy = y - gy                        
    Loop
End Function

内存只读不写