vb keybd_event api

' 定义Ctrl键，必须定义改键值，否则Ctrl键不能使用。
Public Const VK_CONTROL = &H11
' 定义KeyUp键
Public Const KEYEVENTF_KEYUP = &H2
' 参数bVk表示要模拟的按键的虚拟码，
' bScan表示该按键的扫描码(一般可以传0)，
' dwFlags表示是按下键还是释放键(按下键为0，释放键为2)，
' dwExtraInfo是扩展标志，一般没有用
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte,ByVal bScan As Byte,_
 ByVal dwFlags As Long,ByVal dwExtraInfo As Long)

'根据指定的映射类型，执行不同的扫描码和字符转换，0—— wCode是个虚拟键码。函数返回相应的扫描码
Public Declare Function MapVirtualKey Lib "user32" _
                         Alias "MapVirtualKeyA" _
                         (ByVal wCode As Long,_
                         ByVal wMapType As Long) _
                         As Long
                         
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)





模拟Ctrl+C：
' 清空剪贴板
                Clipboard.Clear
                ' 模拟Ctrl+C
                keybd_event VK_CONTROL,0   '按下Ctrl键
                keybd_event vbKeyC,0 'Asc("C"),0      '按下C键
                Sleep 500            '延时500毫秒

                keybd_event vbKeyC,KEYEVENTF_KEYUP,0   '释放C键
                keybd_event VK_CONTROL,0   '释放Ctrl键
                Sleep 500            '需要一个延时毫秒





模拟Ctrl+V：
 ' 模拟Ctrl+V
                    keybd_event VK_CONTROL,0   '按下Ctrl键
                    keybd_event vbKeyV,0      '按下V键
                    Sleep 500            '延时500毫秒

                    keybd_event vbKeyV,0  '释放V键
                    keybd_event VK_CONTROL,0   '释放Ctrl键
                    Sleep 100            '需要一个延时500毫秒

    
        
   

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!