
试试keybd_event这个API吧,可以模拟按键的。然后你说了按住,这个API就能够实现,设置参数dwFlags为 0(按下)、KEYEVENTF_KEYUP(放开)就可以了。。。
SendKeys "%{TAB}"
语法
SendKeys
string[,
wait]
为了指定那些与
SHIFT、CTRL
及
ALT
等按键结合的组合键,可在这些按键码的前面放置一个或多个代码,这些代码列举如下:
如果是在自己的程序中,可以利用自身的按键事件,如果是全局键盘,那就要用到键盘hook技术了,比较复杂。
Private Sub Form_Load()
Label1Caption = ""
Text1 = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '回车键
Label1Caption = 1
ElseIf KeyAscii = 8 Then '退格键
Label1Caption = 2
Else '其他按键
Label1Caption = 3
End If
MeCls
Print KeyAscii
End Sub
ClipboardClear '清除剪贴板内容
keybd_event 18, 0, 0, 0 '按下AIT
keybd_event 44, 0, 0, 0 '按下PrintScreen
keybd_event 44, 0, 2, 0 '释放AIT
keybd_event 18, 0, 2, 0 '释放PrintScreen
Public Sub DoubleKey(ByVal key1 As Byte, ByVal key2 As Byte)
Call keybd_event(key1, 0, 0, 0)
DoEvents
Call keybd_event(key2, 0, 0, 0)
DoEvents
Call keybd_event(key2, 0, 2, 0)
DoEvents
Call keybd_event(key1, 0, 2, 0)
DoEvents
End Sub
'用法
Private Sub Timer1_Timer()
DoubleKey vbKeyAlt, vbKeyC
End Sub
以上就是关于VB 怎么模拟模拟按住Alt全部的内容,包括:VB 怎么模拟模拟按住Alt、Vb中,如何用sendkeys按出alt+tab、VB键盘判断按键等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)