Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_ADD As Long = &H6B '加號鍵
Private Const VK_APPS As Long = &H5D 'Applications 鍵(相當於鼠標右鍵)
Private Const VK_BACK As Long = &H8 'BackSpace 鍵
Private Const VK_CAPITAL As Long = &H14 'Caps Lock 鍵(大小寫轉換鍵)
Private Const VK_CANCEL As Long = &H3 'Ctrl + Break 過程
Private Const VK_CONTROL As Long = &H11
Private Const VK_DECIMAL As Long = &H6E '小數點號鍵
Private Const VK_DELETE As Long = &H2E
Private Const VK_DIVIDE As Long = &H6F '除號鍵
Private Const VK_DOWN As Long = &H28
Private Const VK_END As Long = &H23
Private Const VK_ESCAPE As Long = &H1B
Private Const VK_F1 As Long = &H70
Private Const VK_F10 As Long = &H79
Private Const VK_F11 As Long = &H7A
Private Const VK_F12 As Long = &H7B
Private Const VK_F2 As Long = &H71
Private Const VK_F3 As Long = &H72
Private Const VK_F4 As Long = &H73
Private Const VK_F5 As Long = &H74
Private Const VK_F6 As Long = &H75
Private Const VK_F7 As Long = &H76
Private Const VK_F8 As Long = &H77
Private Const VK_F9 As Long = &H78
Private Const VK_HOME As Long = &H24
Private Const VK_INSERT As Long = &H2D
Private Const VK_LCONTROL As Long = &HA2
Private Const VK_LEFT As Long = &H25
Private Const VK_LMENU As Long = &HA4 '左 Alt 鍵
Private Const VK_LSHIFT As Long = &HA0
Private Const VK_LWIN As Long = &H5B
Private Const VK_MENU As Long = &H12 'Alt 鍵
Private Const VK_MULTIPLY As Long = &H6A '乘號鍵
Private Const VK_NEXT As Long = &H22 '下翻頁鍵
Private Const VK_NUMLOCK As Long = &H90
Private Const VK_NUMPAD0 As Long = &H60
Private Const VK_NUMPAD1 As Long = &H61
Private Const VK_NUMPAD2 As Long = &H62
Private Const VK_NUMPAD3 As Long = &H63
Private Const VK_NUMPAD4 As Long = &H64
Private Const VK_NUMPAD5 As Long = &H65
Private Const VK_NUMPAD6 As Long = &H66
Private Const VK_NUMPAD7 As Long = &H67
Private Const VK_NUMPAD8 As Long = &H68
Private Const VK_NUMPAD9 As Long = &H69
Private Const VK_PAUSE As Long = &H13
Private Const VK_PRINT As Long = &H2A
Private Const VK_PRIOR As Long = &H21 '上翻頁鍵
Private Const VK_RCONTROL As Long = &HA3
Private Const VK_RETURN As Long = &HD '回車鍵
Private Const VK_RIGHT As Long = &H27
Private Const VK_RMENU As Long = &HA5 '右 Alt 鍵
Private Const VK_RSHIFT As Long = &HA1
Private Const VK_RWIN As Long = &H5C
Private Const VK_SCROLL As Long = &H91 'Scroll Lock 鍵
Private Const VK_SEPARATOR As Long = &H6C '小鍵盤上的回車鍵
Private Const VK_SHIFT As Long = &H10
Private Const VK_SLEEP As Long = &H5F '休眠鍵
Private Const VK_SNAPSHOT As Long = &H2C 'Print Screen 鍵
Private Const VK_SPACE As Long = &H20
Private Const VK_SUBTRACT As Long = &H6D '減號鍵
Private Const VK_TAB As Long = &H9
Private Const VK_UP As Long = &H26
Private Const VK_OEM_1 As Long = &HBA 'Windows 2000:對於 US 標準鍵盤,是“;:”鍵
Private Const VK_OEM_2 As Long = &HBF 'Windows 2000:對於 US 標準鍵盤,是“/?”鍵
Private Const VK_OEM_3 As Long = &HC0 'Windows 2000:對於 US 標準鍵盤,是“`~”鍵
Private Const VK_OEM_4 As Long = &HDB 'Windows 2000:對於 US 標準鍵盤,是“[{”鍵
Private Const VK_OEM_5 As Long = &HDC 'Windows 2000:對於 US 標準鍵盤,是“\|”鍵
Private Const VK_OEM_6 As Long = &HDD 'Windows 2000:對於 US 標準鍵盤,是“]}”鍵
Private Const VK_OEM_7 As Long = &HDE 'Windows 2000:對於 US 標準鍵盤,是“單/雙引號”鍵
Private Const VK_OEM_COMMA As Long = &HBC 'Windows 2000:對於任何國家/地區,是“,”鍵
Private Const VK_OEM_MINUS As Long = &HBD 'Windows 2000:對於任何國家/地區,是“-”鍵
Private Const VK_OEM_PERIOD As Long = &HBE 'Windows 2000:對於任何國家/地區,是“.”鍵
Private Const VK_OEM_PLUS As Long = &HBB 'Windows 2000:對於任何國家/地區,是“+”鍵
Private Const KEYEVENTF_KEYUP = &H2
程序示例:
Option Explicit
'模擬鍵盤函數
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'根據指定的映射類型,執行不同的掃描碼和字符轉換,0—— wCode是個虛擬鍵碼。函數返回相應的掃描碼
Private Declare Function MapVirtualKey Lib "user32" _
Alias "MapVirtualKeyA" _
(ByVal wCode As Long, _
ByVal wMapType As Long) _
As Long
Private Const VK_CONTROL = &H11
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_RETURN = &HD
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_click()
If Clipboard.GetFormat(vbCFText) Then
keybd_event VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0 '起動ctrl
keybd_event Asc("V"), MapVirtualKey(Asc("V"), 0), 0, 0 '模擬按下"V"鍵,此處為ascll碼
keybd_event Asc("V"), MapVirtualKey(Asc("V"), 0), KEYEVENTF_KEYUP, 0 '撤消按下的V鍵
keybd_event VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0 '撤消ctrl
'以下兩句主要是為了換行看清楚,可以刪除
keybd_event VK_RETURN, MapVirtualKey(VK_RETURN, 0), 0, 0 '模擬回車
keybd_event VK_RETURN, MapVirtualKey(VK_RETURN, 0), KEYEVENTF_KEYUP, 0 '撤消回車
Else
MsgBox "剪切板內容不是文本格式"
End If
End Sub