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

这可以通过模拟按钮来实现:

简单的办法就是找一个叫Desert的插件(专门为按键向导设计的模拟按键)。

在VB中的项目菜单底部找到引用,在浏览中找到dm.dll的位置。

然后在VB的通用部分添加代码;

公共函数注册(Dm作为对象)作为对象

壳牌“dm.dll regsvr 32”公司。App。路径与路径。" \dm.dll " '将desert插件注册到系统(App。Path是获取VB程序的路径)。

延迟500

Set Dm = CreateObject("dm.dmsoft ")'创建沙漠插件。

结束功能

然后在要引用的地方添加代码:

“Dim Dm As Object”将Dm声明为控件类型。

打电话

注册dm

以下是dm的几个接口

Dm。这意味着按下A键。

Dm。这意味着按住A键。

Dm。KeyUp 65 '这意味着弹奏A键。

以下是与VB中的键相对应的值:

下列VB键盘代码常量可以在代码中的任何地方使用,而不是实际值:

VB键盘代码常量值

(0x为16,其他为10)键盘描述

VbKeyButton 0x1鼠标左键

VbKeyRButton 0x2鼠标右键

VbKeyCancel 0x3取消键

VbKeyMButton 0x4鼠标中键

VbKeyBack 0x8退格键

VbKeyTab 0x9 TAB键

Vbceyclear 0xcclear键

VbKeyReturn 0xD回车键

VbKeyShift 0x10 SHIFT键

vbkey control 0x 11 ctrl键

VbKeyMenu 0x12菜单键

VbKeyPause 0x13暂停键

VbKeyCapital 0x14大写锁定键

VbKeyEscape 0x1B ESC键

VbKeySpace 0x20空格键

VbKeyPageUp 0x21 Page Up键

VbKeyPageDown 0x22 Page Down键

VbKeyEnd 0x23结束密钥

VbKeyHome 0x24 HOME键

VbKeyLeft 0x25左光标键

VbKeyUp 0x26光标键

VbKeyRight 0x27右光标

VbKeyDown 0x28光标向下键

VbKeySelect 0x29选择键

VbKeyPrint 0x2A打印屏幕键

VbKeyExecute 0x2B执行键

VbKeySnapshot 0x2C快照密钥

VbKeyInsert 0x2D插入密钥

VbKeyDelete 0x2E删除密钥

VbKeyHelp 0x2F帮助键

VbKeyNumlock 0x90数字锁定密钥

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功能键

vbkeyf 110x7af 11功能键

VbKeyF12 0x7B F12功能键

VbKeyF13 0x7C F13功能键

VbKeyF14 0x7D F14功能键

VbKeyF15 0x7E F15功能键

VbKeyF160x7F16功能键

VbKeyNumpad0 0x60键盘0键

vbkeynumbad 1 0x 61键盘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键盘/键

下面是延时函数,就是延时函数(你可能需要):

公共函数延迟(郝淼为Double)

Dim t

t = timeGetTime

while(time gettime-t)& lt;浩淼

多项活动

睡眠1

结束功能

如果你不想用插件也可以,但是我觉得比较麻烦。希望对你有帮助。

有问题可以再问我。爱学习是个好习惯。让我们互相学习,共同进步。