Question

我已经在加载事件中打开了2即

    Dim Start As New ProcessStartInfo
    Dim Windows As New ShellWindows ' ShellWindowsClass
    Dim Count = Windows.Count
    Start.FileName = "iexplore.exe"
    Start.Arguments = "-private -nomerge  " & "https://www.yahoo.com"
    If WindowState = ProcessWindowStyle.Hidden Then
        Start.WindowStyle = ProcessWindowStyle.Minimized
    Else
        Start.WindowStyle = WindowState
    End If
    Dim nos As Integer

    nos = 2

    For i = 1 To nos
        Process.Start(Start)
    Next
    Application.DoEvents()
    Threading.Thread.Sleep(1000)
    For Each ie In New ShellWindows

        If ie.LocationURL.Length < 1 Or InStr(ie.LocationURL, "yahoo.com") > 1 Then 
            ie.ToolBar = False
            ie.StatusBar = True
           ie.AddressBar = False
            ie.MenuBar = False
        End If
        Application.DoEvents()
    Next

这段代码很好，将打开2个Ie窗口接下来我如何将两个窗口导航到google.com

我正在尝试此代码 Dim ie As InternetExplorer 对于每个即在新的ShellWindows中如果是InStr（即。LocationURL，＆＃34; yahoo.com＆＃34;）＆gt; 1然后 ie.Navigate（＆＃34; http://www.google.com）结束如果

我收到此错误

请求的资源正在使用中。（HRESULT异常：0x800700AA）下一步

Answer 1

ShellWindows 本身就是一个集合，所以你不需要在重复通过for循环的同时创建集合的新实例。

您的 Windows 对象变量将保存属于shell的打开窗口的集合

将代码更改为：

For Each ie In Windows

在shellwindows中导航所有打开的IE

1 个答案: