Question

我创建了一个应用程序，通过阅读个人资料页面上的html代码，浏览我喜爱的游戏页面，找到在线人物。但是，如果找到“UserOfflineMessage”，我很难找到一种循环方式。我插入（（（（我希望它循环回来的位置））））我希望它循环回来的地方。有什么建议？顺便说一句：这不是出于恶意目的，这只是我们当中几个人正在研究的项目。

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

Answer 1

您可以使用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

Answer 2

使用

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

BackHere :

并在此处添加

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

如果elseif为true，我如何获得循环？

2 个答案: