按键模拟

Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Double, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

    Private Declare Function MapVirtualKey Lib "user32" _
       Alias "MapVirtualKeyA" _
      (ByVal wCode As Double, ByVal wMapType As Long) As Long 

 

keybd_event(Keys.A, MapVirtualKey(Keys.A, 0), 0, 0)
            keybd_event(Keys.A, MapVirtualKey(Keys.A, 0), 1, 0)