按键精灵怎么用键盘移动
参考贪吃蛇原理
先判断方向(上下左右),然后写个按键控制,例如:
Sub MoveXY()
Do
If IsMoveEnd(人物X坐标, 人物Y坐标, 目的X坐标, 目的Y坐标) Then
Exit Do
End If
If 人物X坐标 < 目的X坐标 Then
KeyPress 39, 1//如果能计算出每键偏移坐标就输入按几下,这是往右
ElseIf 人物X坐标 > 目的X坐标 Then
KeyPress 37, 1 //往左
ElseIf 人物Y坐标 < 目的Y坐标 Then
KeyPress 40, 1 //往下
ElseIf 人物Y坐标 > 目的Y坐标 Then
KeyPress 38,1 //往上
End If
Loop
End Sub
Function IsMoveEnd(人物X坐标, 人物Y坐标, 目的X坐标, 目的Y坐标)
If 人物X坐标 = 目的X坐标 AND 人物Y坐标 = 目的Y坐标 Then
IsMoveEnd = True
Else
IsMoveEnd=False
End If
End Function...
6223
