如何用VB编一个自定义组合键粘贴的程序
来源:百度知道 编辑:UC知道 时间:2024/05/16 01:19:35
我用sendkey试了,效果不太好,有时候不好用。
请高手指点,给出代码。
'定义部分
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
'程序部分
'模拟 CTRL+C
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
'模拟 CTRL+V
keybd_event vbKeyControl, 0, KEYEVENTF_EXTENDEDKEY Or 0, 0
keybd_event 86, 0, KEYEVENTF_EXTENDEDKEY Or 0, 0
keybd_event 86, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
keybd_event vbKeyControl, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0