不需任何控件,只有一个Command1Option ExplicitPrivate Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Sub Command1_Click()keybd_event vbKeyF1, 0, 0, 0keybd_event vbKeyF1, 0, 2, 0keybd_event vbKeyReturn, 0, 0, 0keybd_event vbKeyReturn...
|