请问有什么办法将一个IE窗口转向到指定地址?
我的程序:
SendMessage hwnd, WM_SETTEXT, 0, ByVal "www.163.com"
SendMessage lhwnd, WM_KEYDOWN, VK_RETURN, 0
第一句将地址发到地址栏了,第二句想回车,但没反应
请高手指点
我的程序:
SendMessage hwnd, WM_SETTEXT, 0, ByVal "www.163.com"
SendMessage lhwnd, WM_KEYDOWN, VK_RETURN, 0
第一句将地址发到地址栏了,第二句想回车,但没反应
请高手指点
SendMessage lhwnd, WM_KEYDOWN, VK_RETURN, 0你发送消息为什么对两个窗口发?lhwnd是不是写错了?
'需要引用 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
SendMessage lhwnd, WM_CHAR, 13, 0
也没用
接分了!
SendMessage hwnd, WM_SETTEXT, 0, ByVal "www.163.com"
SetFocusApi hwnd
SendKeys "{enter}"