[Sifter]

I'm currently working on a newer, better version of SumoPrizeGrabber. I need to know how to make a status checker in Inet for one of the prizes.
Heres the URL for inet to connect to:

http://mycoke.com/sumo.do?screenname=" + Text1.Text + "&prize=1

The text1 is a textbox with your vegos name, for example, if your username was USER;

http://mycoke.com/sumo.do?screenname=USER&prize=1

If successful, it will return with something saying

<result code="0" />

If it says anything else, it's unsuccessful. How do i make a status checker that checks what is returned and says either Failed, or Success On a label named Label3?

[Heff]

Add this function:

Public Function GetStringBetween(ByVal InputText As String, _
                                 ByVal StartText As String, _
                                 ByVal EndText As String, _
                                 Optional ByVal StartPosition = 1) As String

    'Standard Function as supplied by Mumei - NOT case sensitive and uses mid, not mid$
    Dim lnTextStart As Long
    Dim lnTextEnd As Long

    lnTextStart = InStr(StartPosition, InputText, StartText, vbTextCompare) + Len(StartText)
    lnTextEnd = InStr(lnTextStart, InputText, EndText, vbTextCompare)
    If lnTextStart >= (StartPosition + Len(StartText)) And lnTextEnd > lnTextStart Then
        'we've found the entry
        GetStringBetween = Mid(InputText, lnTextStart, lnTextEnd - lnTextStart)
    Else
        GetStringBetween = ""
    End If
End Function

Here's how to make success/failed

Buffer = WebBrowser3.Navigate ("http://www.mycoke.com/sumo.do?screenname=" + Text1.Text + "&prize=3")

If code="0" = GetStringBetween(Buffer, "<result", "/>") Then
        lblStatus = "Success"
Else
       lblStatus = "Failed"
End If

UNTESTED

[Sifter]

Thanks, but uh... where do I put the second one in?
EDIT: Nevermind, i got it, by deleting the Buffer = part. But it comes up with Failed no matter what, and how do i make it work for all 3? Individually i mean.
EDIT2: It pretty much works, just now it instantly makes it say Failed.

[Heff]

Let me see your source.

[Sifter]

Public Function GetStringBetween(ByVal InputText As String, _
                                 ByVal StartText As String, _
                                 ByVal EndText As String, _
                                 Optional ByVal StartPosition = 1) As String

    'Standard Function as supplied by Mumei - NOT case sensitive and uses mid, not mid$
    Dim lnTextStart As Long
    Dim lnTextEnd As Long

    lnTextStart = InStr(StartPosition, InputText, StartText, vbTextCompare) + Len(StartText)
    lnTextEnd = InStr(lnTextStart, InputText, EndText, vbTextCompare)
    If lnTextStart >= (StartPosition + Len(StartText)) And lnTextEnd > lnTextStart Then
        'we've found the entry
        GetStringBetween = Mid(InputText, lnTextStart, lnTextEnd - lnTextStart)
    Else
        GetStringBetween = ""
    End If
End Function

Private Sub Command1_Click()
WebBrowser1.Navigate ("http://mycoke.com/sumo.do?screenname=" + Text1.Text + "&prize=1")
If code = "0" = GetStringBetween(Buffer, "<result code=", "/>") Then
        Label3.Caption = "Success!"
Else
       Label3.Caption = "Failed."
End If

WebBrowser2.Navigate ("http://mycoke.com/sumo.do?screenname=" + Text1.Text + "&prize=2")
If code = "0" = GetStringBetween(Buffer, "<result", "/>") Then
        Label4.Caption = "Success!"
Else
       Label4.Caption = "Failed."
End If

WebBrowser3.Navigate ("http://www.mycoke.com/sumo.do?screenname=" + Text1.Text + "&prize=3")
If code = "0" = GetStringBetween(Buffer, "<result code=", "/>") Then
        Label5.Caption = "Success!"
Else
       Label5.Caption = "Failed."
End If
End Sub