Imports System
Imports System.Net
Imports System.IO
Imports System.Environment
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 oHttpWebRequest As System.Net.HttpWebRequest
        Dim oStream As System.IO.Stream
        Dim sTemp As String
        Dim sarray As Array
        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 = System.Text.RegularExpressions.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
            overall.Text = sarray(2)
            attack.Text = sarray(7)
            strength.Text = sarray(17)
            Defence.Text = sarray(12)
            Hitpoints.Text = sarray(22)
            ranged.Text = sarray(27)
            prayer.Text = sarray(32)
            magic.Text = sarray(37)
            cooking.Text = sarray(42)
            woodcutting.Text = sarray(47)
            fletching.Text = sarray(52)
            fishing.Text = sarray(57)
            firemaking.Text = sarray(62)
            crafting.Text = sarray(67)
            smithing.Text = sarray(72)
            mining.Text = sarray(77)
            herblore.Text = sarray(82)
            agility.Text = sarray(87)
            thieving.Text = sarray(92)
            slayer.Text = sarray(97)
            farming.Text = sarray(102)
            runecrafting.Text = sarray(107)
            hunting.Text = sarray(112)
            construction.Text = sarray(117)
            construction.Text = construction.Text.Remove(0, 1)
            farming.Text = farming.Text.Remove(0, 1)
            hunting.Text = hunting.Text.Remove(0, 1)
            herblore.Text = herblore.Text.Remove(0, 1)
            mining.Text = mining.Text.Remove(0, 1)
            smithing.Text = smithing.Text.Remove(0, 1)
            slayer.Text = slayer.Text.Remove(0, 1)
            overall.Text = overall.Text.Remove(0, 1)
            attack.Text = attack.Text.Remove(0, 1)
            strength.Text = strength.Text.Remove(0, 1)
            Defence.Text = Defence.Text.Remove(0, 1)
            prayer.Text = prayer.Text.Remove(0, 1)
            ranged.Text = ranged.Text.Remove(0, 1)
            magic.Text = magic.Text.Remove(0, 1)
            runecrafting.Text = runecrafting.Text.Remove(0, 1)
            cooking.Text = cooking.Text.Remove(0, 1)
            agility.Text = agility.Text.Remove(0, 1)
            thieving.Text = thieving.Text.Remove(0, 1)
            crafting.Text = crafting.Text.Remove(0, 1)
            firemaking.Text = firemaking.Text.Remove(0, 1)
            fishing.Text = fishing.Text.Remove(0, 1)
            Hitpoints.Text = Hitpoints.Text.Remove(0, 1)
            woodcutting.Text = woodcutting.Text.Remove(0, 1)
            fletching.Text = fletching.Text.Remove(0, 1)
            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