猿问

在VB中怎么用keybd_event函数模拟按下并弹起F1 ?

在VB中怎么用keybd_event函数模拟按下并弹起F1 ?


白猪掌柜的
浏览 1748回答 2
2回答

犯罪嫌疑人X

keybd_event(112, 0, 0, 0) '模拟按下"F1"键Sleep 200 '延时200毫秒keybd_event(112, 0, KEYEVENTF_KEYUP, 0) '模拟弹起F1键----------------------------------------------------------------------------------------模拟键盘或鼠标的响应我们一般使用:UINT SendInput(UINT nInputs, // count of input events?PINPUT pInputs, // array of input eventsint cbSize // size of structure);API函数。第一个参数是说明第二个参数的矩阵的维数的,第二个参数包含了响应事件,这个自己填充就可以,最后是这个结构的大小,非常简单,这是最简单的方法模拟键盘鼠标了,呵呵。注意,这个函数还有个替代函数:VOID keybd_event(BYTE bVk, // 虚拟键码BYTE bScan, // 扫描码DWORD dwFlags,ULONG_PTR dwExtraInfo // 附加键状态);与VOID mouse_event(DWORD dwFlags, // motion and click optionsDWORD dx, // horizontal position or changeDWORD dy, // vertical position or changeDWORD dwData, // wheel movementULONG_PTR dwExtraInfo // application-defined information);这两个函数非常简单了,我想那些按键精灵就是用的这个吧。上面的是模拟键盘,下面的是模拟鼠标的。这个仅仅是模拟部分,要和游戏联系起来我们还需要找到游戏的窗口才行,或者包含快捷键,就象按键精灵的那个激活键一样,我们可以用GetWindow函数来枚举窗口,也可以用Findwindow函数来查找制定的窗口(注意,还有一个FindWindowEx),FindwindowEx可以找到窗口的子窗口,比如按钮,等什么东西。当游戏切换场景的时候我们可以用FindWindowEx来确定一些当前窗口的特征,从而判断是否还在这个场景,方法很多了,比如可以GetWindowInfo来确定一些东西,比如当查找不到某个按钮的时候就说明游戏场景已经切换了,等等办法。有的游戏没有控件在里面,这是对图像做坐标变换的话,这种方法就要受到限制了。这就需要我们用别的办法来辅助分析了。附:常用模拟键的键值对照表。键盘键与虚拟键码对照表字母和数字键 数字小键盘的键 功能键 其它键键 键码 键 键码 键 键码 键 键码A 65 0 96 F1 112 Backspace 8B 66 1 97 F2 113 Tab 9C 67 2 98 F3 114 Clear 12D 68 3 99 F4 115 Enter 13E 69 4 100 F5 116 Shift 16F 70 5 101 F6 117 Control 17G 71 6 102 F7 118 Alt 18H 72 7 103 F8 119 Caps Lock 20I 73 8 104 F9 120 Esc 27J 74 9 105 F10 121 Spacebar 32K 75 * 106 F11 122 Page Up 33L 76 + 107 F12 123 Page Down 34M 77 Enter 108 -- -- End 35N 78 - 109 -- -- Home 36O 79 . 110 -- -- Left Arrow 37P 80 / 111 -- -- Up Arrow 38Q 81 -- -- -- -- Right Arrow 39R 82 -- -- -- -- Down Arrow 40S 83 -- -- -- -- Insert 45T 84 -- -- -- -- Delete 46U 85 -- -- -- -- Help 47V 86 -- -- -- -- Num Lock 144W 87X 88Y 89Z 900 481 492 503 514 525 536 547 558 569 57

守候你守候我

Public Class Form1Declare Sub keybd_event Lib "user32" _(ByVal bVk As Byte, _ByVal bScan As Byte, _ByVal dwFlags As ULong, _ByVal dwExtraInfo As ULong)Const KEYEVENTF_KEYUP = &H2Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox1.Focus()keybd_event(Keys.B, 0, 0, 0)keybd_event(Keys.B, 0, KEYEVENTF_KEYUP, 0)End SubEnd Class只要把keys.B改成keys.f1就可以了,keybd_event(Keys.f1, 0, 0, 0) '这是键按下keybd_event(Keys.f1, 0, KEYEVENTF_KEYUP, 0) '这是弹起因为我用一个textbox来显示按键结果,按f1的话可能没效果所以我就改用B键了。
随时随地看视频慕课网APP
我要回答