礼品盒丝带蝴蝶结系法:如何用VB编一个自定义组合键粘贴的程序
来源:百度文库 编辑:杭州交通信息网 时间:2024/06/18 12:43:13
我用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