乌鲁木齐至兰州动车票:在VB中怎样能模拟同时按住2个组合键不放?

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 13:38:29
同题

'用系统函数进行模拟按键,代码如下,多多尝试
'声明定义部分
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const KEYEVENTF_EXTENDEDKEY = &H1
Public Const KEYEVENTF_KEYUP = &H2

'应用部分
keybd_event vbKeyControl, 0, KEYEVENTF_EXTENDEDKEY Or 0, 0
keybd_event 67, 0, KEYEVENTF_EXTENDEDKEY Or 0, 0
keybd_event 67, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
keybd_event vbKeyControl, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0