求助 怎么按下别的窗体的菜单或者按钮

Question

那位高手能够告诉我怎么通过APi产生别的进程窗体的菜单的事件（比如我想选择IE上的文件-〉新建，或者不时这种弹出式菜单），说详细点小弟很菜，万分感谢了

Answer 1

测试成功Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202Private Sub Form_Load()
    WebBrowser1.Navigate2 "http://popo.163.com/download.shtml"
End SubPrivate Sub Timer1_Timer()
    Dim lngFrmHwnd As Long
    Dim lngBtnHwnd As Long
    lngFrmHwnd = FindWindow(vbNullString, "文件下载 - 安全警告")  '修改窗口标题
    If lngFrmHwnd > 0 Then
        lngBtnHwnd = FindWindowEx(lngFrmHwnd, ByVal 0&, "BUTTON", vbNullString)
    End If
    If lngBtnHwnd > 0 Then
        SendMessage lngBtnHwnd, WM_LBUTTONDOWN, ByVal 0&, ByVal 0&
        SendMessage lngBtnHwnd, WM_LBUTTONUP, ByVal 0&, ByVal 0&
        Timer1.Enabled = False
    End If
End SubPrivate Sub WebBrowser1_FileDownload(Cancel As Boolean)
    Timer1.Enabled = True
    Timer1.Enabled = 100
End Sub