VB 怎么模拟模拟按住Alt

VB 怎么模拟模拟按住Alt,第1张

试试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键盘判断按键等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/web/9719455.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-05-01
下一篇2023-05-01

发表评论

登录后才能评论

评论列表(0条)

    保存