如果elseif爲真，我該如何獲得循環？

我創建了一個應用程序，通過閱讀他們的個人資料頁面上的html代碼，可以瀏覽我最喜歡的遊戲頁面以查找在線人員。不過，如果找到「UserOfflineMessage」，我會遇到麻煩，以便它能夠循環回來。我插入（（（（位置我想它迴環））））我想要它迴環。有什麼建議麼？順便說一句：這不是出於惡意目的，這只是我們中一些人正在研究的項目。如果elseif爲真，我該如何獲得循環？

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    Dim Rlo As New IO.StreamReader(My.Resources.Preferences & "Preferences.txt") 

    Dim firstLine As String 
    'read first line 
    firstLine = Rlo.ReadLine() 
    'read secondline 
    TheText.Text = Rlo.ReadLine() 
    'read third line 
    Dim thirdLine As String = Rlo.ReadLine() 

    Dim Ro As New IO.StreamReader(My.Resources.Preferences & "sig.txt") 

    Dim first1Line As String 
    'read first line 
    first1Line = Ro.ReadLine() 
    'read secondline 
    The2Text.Text = Ro.ReadLine()

（（（（位置我也想回送））））

rndnumber = New Random 
    number = rndnumber.Next(firstLine, TheText.Text) 
    TextBox2.Text = ("http://www.roblox.com/User.aspx?ID=" & number.ToString) 
    WebBrowser2.Navigate(TextBox2.Text) 
    If WebBrowser2.DocumentText.Contains("[ Offline ]</span>") Then 
     check1 = 1 
     TextBox1.Text = ("http://www.roblox.com/My/NewMessage.aspx?recipientID=" & number.ToString) 
     WebBrowser1.Navigate(TextBox1.Text) 
     MsgBox(":R") 
    ElseIf WebBrowser1.DocumentText.Contains("UserOfflineMessage") Then 
     MsgBox(":D") 

    End If 
End Sub

來源

2013-05-27 user2422403

你可以使用一個do ... while循環：

Dim tryAgain as Boolean 
... 
Do 
    '...your stuff here... 
    tryAgain = False 
    if BlahBlah Then 
     ... 
    ElseIf CaseWhereYouWantToLoop Then 
     tryAgain = True 
    End If 
Loop While tryAgain

來源

2013-05-27 05:22:08

更改((((Location I want it to loop back))))與

BackHere :

並在此處添加

ElseIf WebBrowser1.DocumentText.Contains("UserOfflineMessage") Then 
    MsgBox(":D") 
    Goto BackHere

來源

2013-05-27 10:41:49 matzone

Goto？！必須有一種方法可以通過循環來完成 –

如果elseif爲真，我該如何獲得循環？

回答

相關問題