RS-2007 Highscore lookup Source not finished VB.NET

Hello MPGH, I have seen some post of users that wanted to know how to make an highscore lookup so here is mine Source. Its not finished

Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search.Click
'// Created by maikel233, Created in VB.net, INFO: This is not the fasted lookup but working perfectly.
'// Used imports
'// Imports System.Net
'//Imports System****
,
If Username.Text = ("") Then
MsgBox("Error, Username is missing.", MsgBoxStyle.Exclamation)
Else
Dim aanvang As HttpWebRequest = DirectCast(WebRequest.Create(("http://services.runescape.com/m=hiscore_oldschool/index_lite.ws?player=" & Me.Username.Text)), HttpWebRequest)
Try
Dim antwoord As HttpWebResponse = DirectCast(aanvang.GetResponse, HttpWebResponse)
Dim lezer As New StreamReader(antwoord.GetResponseStream)
Dim ATR As String() = lezer.ReadToEnd.Split(New Char() {","})
Me.Label24.Text = ATR(0)
Me.Label9.Text = ATR(1)
Me.Label12.Text = ATR(5)
Me.Label26.Text = ATR(3)
Me.Label13.Text = ATR(7)
Me.Label14.Text = ATR(9)
Me.Label15.Text = ATR(11)
Me.Label16.Text = ATR(13)
Me.Label17.Text = ATR(15)
Me.Label18.Text = ATR(&H11)
Me.Label19.Text = ATR(&H13)
Me.Label20.Text = ATR(&H15)
Me.Label21.Text = ATR(&H17)
Me.Label22.Text = ATR(&H19)
Me.Label23.Text = ATR(&H1B)
Me.Label24.Text = ATR(&H1D)
Me.Label25.Text = ATR(&H1F)
Me.Label26.Text = ATR(&H21)
Me.Label27.Text = ATR(&H23)
Me.Label28.Text = ATR(&H25)
Me.Label29.Text = ATR(&H27)
Me.Label30.Text = ATR(&H29)
Me.Label31.Text = ATR(&H2B)
Me.Label32.Text = ATR(&H2D)
Me.Label33.Text = ATR(&H2F)
Catch uitzondering As WebException
Dim exception As WebException = uitzondering
If (DirectCast(exception.Response, HttpWebResponse).StatusCode = HttpStatusCode.NotFound) Then
End If
End Try
End If
End Sub

Not bad! I would recommand string split as antwoord

Originally Posted by Paul

Me.Label24.Text = ATR(0)
Me.Label24.Text = ATR(&H1D)

A little mistake?
ar
looks pretty decent though

Thanks, for noticing that.

But i am currently remaking the Highscore Lookup because this method is very slow.... And its takes 10 seconds before The STATS (Skills) Are filled in into form.

it didn't for me, but they all didn't fill in. when i do it in visual basic 2008 i get a couple errors already from the private sub

Originally Posted by lucasheer715

it didn't for me, but they all didn't fill in. when i do it in visual basic 2008 i get a couple errors already from the private sub

create a button and rename it to search.