求VB WinIo 的按键代码 及 实例追加100分

如题 我想做个Vb的按键精灵 用在游戏上 经测试 只有模拟驱动 才可以成功

现在我想用WinIo 做 请各位大师提供个代码 或实例

有实例者 追加100分

我的qq 282666868

自编写自动按键盘数字放技能程序，目前对RO2有效，不喜勿入
http://bbs.766.com/viewthread.php?tid=1118255&extra=page%3D1


运行前，请确认下载解压后的几个文件都在同一个目录下并且没有缺少（一共4个，readme.txt无所谓）

使用说明：
该软件运作后会自动且循环模拟按大键盘 6 7 8 9 0 数字键.
按组合键 Alt + Ctrl + F1 开始运作。
按组合键 Alt + Ctrl + F2 终止运作。
驱动级别模拟按键，利用自行修改过的WinIO驱动，垃圾HackCheck防外挂程序“无视”。
完。

6月8日修正

增加了保持键按下状态的时间为0.2秒（原先无时间等待直接弹起），并调整为每个按键按两次再切换下一个按键，切换时间为0.1秒。所以整个循环一次的时间为2.5秒。经本人测试在网络连接较卡的时候也能比较好的按出技能。

用keybd_event实现。一直重复按1~2~ 3 ，延时200毫秒

这个怎么实现？有代码最好

两个command （C1是开始 C2是结束） 一个timer（设成Interval = 200，Enabled =False ）不设也可以试试 点开始后点到你要的窗口上去就会动了

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click() Timer1.Enabled = True End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Form_Load() Timer1.Interval = 200 Timer1.Enabled = False End Sub

Private Sub Timer1_Timer() keybd_event 49, 0, 0, 0 keybd_event 49, 0, 2, 0 Sleep 200 keybd_event 50, 0, 0, 0 keybd_event 50, 0, 2, 0 Sleep 200 keybd_event 51, 0, 0, 0 keybd_event 51, 0, 2, 0 End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息