Imports System
Imports System.Net
Imports System.IO
Imports System.Environment
Imports System.Text.RegularExpressions
Public Class Form3
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Windows.Forms.Cursor.Current = Cursors.AppStarting
        Dim oStream As System.IO.Stream
        Dim sTemp As String
        Dim sarray As Array
        Dim oHttpWebRequest As HttpWebRequest
        Dim rsn As String = TextBox1.Text
        oHttpWebRequest = (System.Net.HttpWebRequest.Create("http://hiscore.runescape.com/lang/en/aff/runescape/hiscorepersonal.ws?user1=" & rsn))
        Dim oHttpWebResponse As System.Net.WebResponse = oHttpWebRequest.GetResponse()
        oStream = oHttpWebResponse.GetResponseStream
        sTemp = Regex.Replace(New System.IO.StreamReader(oStream).ReadToEnd(), "<[^>]*>", "")
        sTemp = sTemp.Substring(sTemp.IndexOf("Overall"))
        sTemp = sTemp.Substring(0, sTemp.IndexOf("Search"))
        sTemp = sTemp.Replace(sTemp.Substring(sTemp.Length - 1), vbCrLf)
        sTemp = sTemp.Replace(vbCrLf & vbCrLf & vbCrLf, vbCrLf)
        sTemp = sTemp.Replace("Not Ranked", "0" & vbCrLf & "0" & vbCrLf & "0")
        sTemp = sTemp.Replace(vbCrLf & vbCrLf, vbCrLf)
        sarray = sTemp.Split(vbCrLf)
        If TextBox1.Text = "" Or sarray.Length < 40 Then
        Else
            Dim j As Integer = 0
            Dim boxs() As TextBox = {overall, attack, Defence, strength, Hitpoints, ranged, prayer, magic, cooking, woodcutting, fletching, fishing, firemaking, crafting, smithing, mining, herblore, agility, thieving, slayer, farming, runecrafting, hunting, construction}
            Do While j <= 23
                boxs(j).Text = sarray(5 * j + 2)
                j = j + 1
            Loop
            Dim i As Integer = 0
            Do While i <= 23
                boxs(i).Text = boxs(i).Text.Remove(0, 1)
                i = i + 1
            Loop
            If Val(ranged.Text) > Val(strength.Text) And Val(Defence.Text) And Val(attack.Text) Then
                Combat.Text = (0.487 * Val(ranged.Text)) + (0.249 * Val(Defence.Text)) + (0.25 * Val(Hitpoints.Text)) + (0.124 * Val(prayer.Text))
            ElseIf Val(magic.Text) > Val(strength.Text) And Val(Defence.Text) And Val(attack.Text) Then
                Combat.Text = (0.487 * Val(magic.Text)) + (0.249 * Val(Defence.Text)) + (0.25 * Val(Hitpoints.Text)) + (0.124 * Val(prayer.Text))
            Else
                Combat.Text = (0.32707 * Val(attack.Text)) + (0.249 * Val(Defence.Text)) + (0.324 * Val(strength.Text)) + (0.25 * Val(Hitpoints.Text)) + (0.124 * Val(prayer.Text)) + 0.1
            End If
            Combat.Text = Format(Val(Combat.Text), "0")
        End If
        Windows.Forms.Cursor.Current = Cursors.Arrow
    End Sub
End Class