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