0

お気に入りのゲームのページをブラウズして、プロファイル ページの 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
4

2 に答える 2

2

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-27T05:22:08.793 に答える
0

((((Location I want it to loop back))))あなたを変える

BackHere :

そしてここに追加

ElseIf WebBrowser1.DocumentText.Contains("UserOfflineMessage") Then
    MsgBox(":D")
    Goto BackHere
于 2013-05-27T10:41:49.340 に答える