请问有什么办法将一个IE窗口转向到指定地址?
我的程序:
SendMessage hwnd, WM_SETTEXT, 0, ByVal "www.163.com"
SendMessage lhwnd, WM_KEYDOWN, VK_RETURN, 0
第一句将地址发到地址栏了,第二句想回车,但没反应
请高手指点

解决方案 »

  1.   

    //SendMessage hwnd, WM_SETTEXT, 0, ByVal "www.163.com"
    SendMessage lhwnd, WM_KEYDOWN, VK_RETURN, 0你发送消息为什么对两个窗口发?lhwnd是不是写错了?
      

  2.   

    这样应该更方便一些:一个按钮,一个listbox:
    '需要引用 Microsoft Internet Controls
    Option Explicit
    Dim IEarray() As InternetExplorer
    Private Sub Command1_Click()
        Dim mShellWindows As New SHDocVw.ShellWindows
        Dim IE As InternetExplorer
        Dim i As Long
        '获取所有的IE实例
        For Each IE In mShellWindows
            ReDim Preserve IEarray(i)
            Set IEarray(i) = IE
            List1.AddItem IE.LocationURL
            i = i + 1
        Next
        Set IE = Nothing
        Set mShellWindows = Nothing
    End Sub
    Private Sub List1_Click()
        IEarray(List1.ListIndex).Navigate "www.163.com"
    End Sub
      

  3.   

    是下面这样吗
    SendMessage lhwnd, WM_CHAR, 13, 0
    也没用
      

  4.   

    回复:rainstormmaster(暴风雨 v2.0) 你真厉害,我还想那些查找窗体,发送信息的API,你几行就行了,谢谢!!!
    接分了!
      

  5.   

    想发送按键的话用sendkey就行了(当然发送WM_Char消息也行,或者先发送WM_KEYDOWN消息再发送WM_KEYUP消息也行,不过发送消息的话,你要构造好lparam参数,具体的lparam参数每一位的含义你看看MSDN):Private Declare Function SetFocusApi Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
    SendMessage hwnd, WM_SETTEXT, 0, ByVal "www.163.com"
    SetFocusApi hwnd
    SendKeys "{enter}"