postmessage 这个哪里有错误啊 怎么没反应的
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Command1_Click()
PostMessage 3148296, WM_KEYDOWN, VK_A, 0& '按下F1键
End Sub