?? module3.bas
字號:
Attribute VB_Name = "Module3"
Public Const KBC_KEY_CMD = &H64 '鍵盤命令端口
Public Const KBC_KEY_DATA = &H60 '鍵盤數據端口
Sub MyKeyDown(ByVal vKeyCoad As Long)
'這個用來模擬按下鍵,參數vKeyCoad傳入按鍵的虛擬碼
Dim btScancode As Long
btScancode = MapVirtualKey(vKeyCoad, 0)
KBCWait4IBE '發送數據前應該先等待鍵盤緩沖區為空
SetPortVal KBC_KEY_CMD, &HD2, 1 '發送鍵盤寫入命令
'SetPortVal函數用于向端口寫入數據,它的用法是SetPortVal 端口號,欲寫入的數據,寫入數據的長度
KBCWait4IBE
SetPortVal KBC_KEY_DATA, btScancode, 1 '寫入按鍵信息,按下鍵
End Sub
Sub MyKeyUp(ByVal vKeyCoad As Long)
'這個用來模擬釋放鍵,參數vKeyCoad傳入按鍵的虛擬碼
Dim btScancode As Long
btScancode = MapVirtualKey(vKeyCoad, 0)
KBCWait4IBE '等待鍵盤緩沖區為空
SetPortVal KBC_KEY_CMD, &HD2, 1 '發送鍵盤寫入命令
KBCWait4IBE
SetPortVal KBC_KEY_DATA, (btScancode Or &H80), 1 '寫入按鍵信息,釋放鍵
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -