Question

vb 全局模拟按键F12

用VB做一个程序,全局模拟按键F12
我现在用的一个软件快捷键是F12;我想用VB做一个程序.单击按钮.即可相当于按了F12
键. 这个要用到API才可完成.我不会.请各位大虾帮助.谢谢.
请好心的人;发到我邮箱.我真的对API一点都不懂.
邮箱地址.yadnfku@foxmail.com

Answer 1

'看看是不是这个效果

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2 '释放按键常数

Private Sub Command1_Click()
Call keybd_event(9, 0, 0, 0) '按下
Call keybd_event(9, 0, KEYEVENTF_KEYUP, 0) '释放
'9表示TAB，是ASCII
End Sub

Answer 2

Private Declare Function GetAsyncKeyState Lib "User32" (ByVal Vkey As Long) As Integer
Private Sub Timer1_Timer()
If MyHotKey(vbKeyF12) Then Call 要运行的模块名称
End Sub

Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function

追问

兄弟;谢谢你的回答;但这不是要的效果
可能是我说得不太清楚.呵呵
我的意思不是按了F12再执行其它模块命令
而是:按了VB里的的铵钮.就相当于按了F12键.
这个难实现吗?

Answer 3

sendmessage postmessage keybd_event这三个函数都可以做到

前面两个是像一个对像发送消息，具体用法百度上太多了，你可以搜下函数名就可以看到