[TUT]Highscores Grabber[TUT]

this is for vb express 2010,

well ive seen a lot of people requesting on how to get a high-scores grabber. this is done through praising, most people do not know what that is so im just gonna skip to the chase.

This is a brief tutorial and will only cover 1 stat dont want to make it to easy for people


1)Add 2 labels and a button to your program,


2)double click the button so that you have the code brought up.


3)anywhere add this chuck of code,

Code:

    Public Function parseHtml(ByVal Name As String) As String()
        Dim Html As String
        Dim word As Integer = 0
        Html = GetPageHTML("http://hiscore.runescape.com/index_lite.ws?player=" + TextBoxX1.Text)
        Dim result(Html.Length) As String
        Dim length As Integer = Html.Length
        If (Html = "") Then
            Dim nil(1) As String
            Return nil
        End If
        For i As Integer = 0 To length - 1
            If (IsNumeric(Html.Chars(i)) = False) Then
                If (Html.Chars(i) = "-") Then
                    result(word) = "N/a"
                    word = word + 1
                    i = i + 2
                Else
                    word = word + 1
                End If
            Else
                result(word) = result(word) & Html.Chars(i)
            End If
        Next
        Return result
    End Function

then for your button code use this,

Code:

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        scores = parseHtml(TextBoxX1.Text)
        Try
            Label1.Text = "Level:" + scores(4)
            Label2.Text = "Xp:" + scores(5)
        Catch ex As Exception
            Label1.Text = "Xp:N\A"
            Label2.Text = "Level:N\A"
            ProgressBar1.Value = 0
        End Try

ok so the part that is like

Code:

            Label1.Text = "Level:" + scores(4)
            Label2.Text = "Xp:" + scores(5)

the scores(4) is attack level 5 is the xp i think im doing this from my head. so mess around with it till u get it right, so just add more labels and code to your program to get all the stats,

 

Heh, I think normally a tutorial would explain how the code works
Also, is GetPageHTML even a default VB function?

 

Code:

Dim WC as New WebClient
Dim STR as String = WC.DownloadString("website")

EDIT: Before I forget OP, please post in the right section next time.

 

Hmmm interesting, nice

 

Confused on what it does

 

I don't get it :s.

 

It's a highscores grabber (as the OP clearly states), but I'm sure you guys were just posting to get your post count up.