如何用VB把游戏中的人物移动,代码是什么?

Question

求大家了，VB代码，我是个初学者，如何将人物像CS一样可以W A S D ，移动，只要VB不要其他的。

Answer 1

这个可以用模拟按键来实现：
简单的方法你可以找一下叫做大漠的插件（是一个专门为按键精灵设计的模拟按键）
在VB 找到工程菜单最下面有一个引用，在浏览里找到dm.dll的位置选择确定
然后在VB通用部分加上一下代码；
Public Function 注册(Dm As Object) As Object
Shell "regsvr32 dm.dll /s " & App.Path & "\dm.dll " '注册大漠插件到系统(App.Path为获取VB程序的路径)
delay 500
Set Dm = CreateObject("dm.dmsoft") '创建大漠插件
End Function
然后要引用的地方加上一下代码：
Dim Dm As Object '声明DM为控件类型
Call
注册 dm
下面是dm的几个接口
dm.KeyPress 65 '这个的意思就是按A键
dm.KeyDown 65'这个的意思就是按住A键
dm.KeyUp 65'这个的意思就是弹起A键
下面是VB里按键对应的数值：
可在代码中的任何地方用下列VB键盘代码常数代替实际值：
VB键盘代码常量 值
(0x为16进制，其他为10进制) 键盘说明
vbKeyLButton 0x1 鼠标左键
vbKeyRButton 0x2 鼠标右键
vbKeyCancel 0x3 CANCEL键
vbKeyMButton 0x4 鼠标中键
vbKeyBack 0x8 退格键
vbKeyTab 0x9 TAB键
vbKeyClear 0xC CLEAR健
vbKeyReturn 0xD 回车键
vbKeyShift 0x10 SHIFT键
vbKeyControl 0x11 CTRL键
vbKeyMenu 0x12 MENU键
vbKeyPause 0x13 PAUSE键
vbKeyCapital 0x14 CAPS LOCK 键
vbKeyEscape 0x1B ESC键
vbKeySpace 0x20 空格键
vbKeyPageUp 0x21 Page Up 键
vbKeyPageDown 0x22 Page Down 键
vbKeyEnd 0x23 END键
vbKeyHome 0x24 HOME键
vbKeyLeft 0x25 光标左键
vbKeyUp 0x26 光标上键
vbKeyRight 0x27 光标右键
vbKeyDown 0x28 光标下键
vbKeySelect 0x29 SELECT键
vbKeyPrint 0x2A Print Screen 键
vbKeyExecute 0x2B EXECUTE键
vbKeySnapshot 0x2C SnapShot键
vbKeyInsert 0x2D INSERT键
vbKeyDelete 0x2E DELETE键
vbKeyHelp 0x2F HELP键
vbKeyNumlock 0x90 NUM LOCK 键
vbKeyA 65 字母A键
vbKeyB 66 字母B键
vbKeyC 67 字母C键
vbKeyD 68 字母D键
vbKeyE 69 字母E键
vbKeyF 70 字母F键
vbKeyG 71 字母G键
vbKeyH 72 字母H键
vbKeyI 73 字母I键
vbKeyJ 74 字母J键
vbKeyK 75 字母K键
vbKeyL 76 字母L键
vbKeyM 77 字母M键
vbKeyN 78 字母N键
vbKeyO 79 字母O键
vbKeyP 80 字母P键
vbKeyQ 81 字母Q键
vbKeyR 82 字母R键
vbKeyS 83 字母S键
vbKeyT 84 字母T键
vbKeyU 85 字母U键
vbKeyV 86 字母V键
vbKeyW 87 字母W键
vbKeyX 88 字母X键
vbKeyY 89 字母Y键
vbKeyZ 90 字母Z键
vbKey0 48 数字0键
vbKey1 49 数字1键
vbKey2 50 数字2键
vbKey3 51 数字3键
vbKey4 52 数字4键
vbKey5 53 数字5键
vbKey6 54 数字6键
vbKey7 55 数字7键
vbKey8 56 数字8键
vbKey9 57 数字9键
vbKeyF1 0x70 F1功能键
vbKeyF2 0x71 F2功能键
vbKeyF3 0x72 F3功能键
vbKeyF4 0x73 F4功能键
vbKeyF5 0x74 F5功能键
vbKeyF6 0x75 F6功能键
vbKeyF7 0x76 F7功能键
vbKeyF8 0x77 F8功能键
vbKeyF9 0x78 F9功能键
vbKeyF10 0x79 F10功能键
vbKeyF11 0x7A F11功能键
vbKeyF12 0x7B F12功能键
vbKeyF13 0x7C F13功能键
vbKeyF14 0x7D F14功能键
vbKeyF15 0x7E F15功能键
vbKeyF16 0x7F F16功能键
vbKeyNumpad0 0x60 小键盘0键
vbKeyNumpad1 0x61 小键盘1键
vbKeyNumpad2 0x62 小键盘2键
vbKeyNumpad3 0x63 小键盘3键
vbKeyNumpad4 0x64 小键盘4键
vbKeyNumpad5 0x65 小键盘5键
vbKeyNumpad6 0x66 小键盘6键
vbKeyNumpad7 0x67 小键盘7键
vbKeyNumpad8 0x68 小键盘8键
vbKeyNumpad9 0x69 小键盘9键
vbKeyMultiply 0x6A 小键盘*键
vbKeyAdd 0x6B 小键盘+键
vbKeySeparator 0x6C 小键盘回车键
vbKeySubtract 0x6D 小键盘-键
vbKeyDecimal 0x6E 小键盘.键
vbKeyDivide 0x6F 小键盘/键
下面是delay函数也就是延时函数（你可能会用的到）：
Public Function delay(haomiao As Double)
Dim t
t = timeGetTime
While (timeGetTime - t) < haomiao
DoEvents
Sleep 1
Wend
End Function

如果不想用插件的话也可以不过我觉得比较麻烦，希望对你有帮助。
有什么问题可以再问我。爱好学习是个好习惯，让我们互相学习，共同进步。

Answer 2

第一种方法：
API设置系统钩子，拦截键盘消息，通过判断消息参数区分用户按键操作

第二种方法：
设置窗体的KeyPreview属性为True，这会使窗体优先激活键盘代码，通过Keypress事件里的Keypress事件里的KeyAscii得到“W / A / S / D”按键的Ascii码，用select判断一下就行。

例如：

Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 87, 119
MsgBox "你按了W"
Case 65, 97
MsgBox "你按了A"
Case 83, 115
MsgBox "你按了S"
Case 68, 100
MsgBox "你按了D"
End Select
End Sub本回答被提问者采纳

Answer 3

你要移动几次0_0
怎么移动（比如按几次A几次D）
楼主没说清楚

Answer 4

很复杂的，不是初学者能理解的。