環路與的Webbrowser VB.Net

dim web1 as string 
dim web2 as string 
dim i as int32 

web1 = "www.webaddress1.com" 
web2 = "www.webaddress2.com" 
web3 = "www.webaddress3.com" 

i = 1 

while i < 100 

webbrowser1.navagate(web1) 

i = i + 1 

end while

我不得不通過web1的web2上WEB3等一些網站不知道如何讓網站在每個循環的開始發生變化，所以它會去環路與的Webbrowser VB.Net

來源

2016-08-11 deephect

爲了循環，你必須有一些可以重複......喜歡收藏，列表，數組。 – Plutonix

眼下，你所有的代碼正在做同樣的網站99次。你沒有通過任何新的網站變量。就像Plutonix說，你需要通過收集迭代，這將是這個樣子：

Dim lstWebsites As New List(Of String) From {"www.webaddress1.com", _ 
               "www.webaddress2.com", _ 
               "www.webaddress3.com"} 
    For Each website As String In lstWebsites 
     webbrowser1.navigate(New Uri(website)) 
    Next

不過要小心，像這樣的循環會很快執行，所以這取決於你打這些鏈接是什麼對，你可能想空間，他們與一個計時器，或DocumentCompleted事件

EDIT反應發表評論後，執行每一個：如果我在我自己的項目做這個，我寧願使用DocumentCompleted事件，而不是定時器，這樣的過程需要儘可能少的時間來完成運行，並訪問每個地址是所有的ti我需要完成加載。這就是說，在原則上，這將是這個樣子：

Public Class Form1 
    Private Property lstWebsites As List(Of String) 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     lstWebsites = New List(Of String) From {"www.webaddress1.com", _ 
               "www.webaddress2.com", _ 
               "www.webaddress3.com"} 
     NavigateNext() 
    End Sub 

    Private Sub NavigateNext() 
     If lstWebsites IsNot Nothing AndAlso lstWebsites.Count > 0 Then 
      WebBrowser1.Navigate(New Uri(Me.lstWebsites(0))) 
      lstWebsites.RemoveAt(0) 
     Else 
      Me.Close() 
     End If 
    End Sub 

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted 
     NavigateNext() 
    End Sub 
End Class

來源

2016-08-11 19:28:48 soohoonigan

昏暗我作爲的Int32 昏暗lstWebsites作爲新的列表（字符串）從{ 「www.site1.com」，「www.site2.com」} I = 0 雖然I <2 WebBrowser1.Navigate時（lstWebsites .Item（i）） i = i + 1 End雖然我如何使用計時器將它們分隔開來 – deephect

我對代碼採取了不同的方式，但你讓我在那裏，謝謝 – deephect

-1

如果你堅持不使用列表（如soohoonigan建議），因爲你還沒有學會他們的是，你永遠可以調用導航功能三次。請注意，清單解決方案是更正確的解決方案，我只是提供一個替代方案。

dim web1 as string 
dim web2 as string 
dim i as int32 

web1 = "www.webaddress1.com" 
web2 = "www.webaddress2.com" 
web3 = "www.webaddress3.com" 

i = 1 

while i < 100 

    webbrowser1.navigate(web1) 
    webbrowser1.navigate(web2) 
    webbrowser1.navigate(web3) 

    i = i + 3 

end while

免責聲明：未經測試的代碼

來源

2016-08-11 20:10:28

環路與的Webbrowser VB.Net

回答

相關問題