Here is a sample program which I made awhile back. THe code is longer then what it could be but here ya go.
Here is parse information you can use in the parenthesis:Code:Imports System.Net Public Class Class1 Dim wc As WebClient Dim rawdata As String Dim parsedData() As String Dim Strength, Attack, Defence, Prayer, HitPoints, Magic, Range, Summoning As Integer Dim Cooking, Woodcutting, Fletching, Fishing, Firemaking, Crafting, Smithing, Mining, Herblore, Agility, Theving, Slayer, Farming, Runecrafting, Hunter, Construction As Integer Public Function downloadStats(ByVal username As String) parsedData = Nothing 'http://hiscore.runescape.com/index_lite.ws?player= Dim rawdata As String 'Gets the data of the stats Dim wc As New System.Net.WebClient Try rawdata = wc.DownloadString("http://hiscore.runescape.com/index_lite.ws?player=" & username) Catch ex As Exception End Try 'parse the data Try parsedData = rawdata.Split(",") Catch ex As Exception End Try Try 'Levels Strength = parsedData(7) Attack = parsedData(3) Defence = parsedData(5) Prayer = parsedData(13) HitPoints = parsedData(9) Magic = parsedData(15) Range = parsedData(11) Summoning = parsedData(49) Cooking = parsedData(17) Woodcutting = parsedData(19) Fletching = parsedData(21) Fishing = parsedData(23) Firemaking = parsedData(25) Crafting = parsedData(27) Smithing = parsedData(29) Mining = parsedData(31) Herblore = parsedData(33) Agility = parsedData(35) Theving = parsedData(37) Slayer = parsedData(39) Farming = parsedData(41) Runecrafting = parsedData(43) Hunter = parsedData(45) Construction = parsedData(47) '___________________________________ If Strength < 0 Then Strength = 1 If Attack < 0 Then Attack = 1 If Defence < 0 Then Defence = 1 If Prayer < 0 Then Prayer = 1 If HitPoints < 0 Then HitPoints = 1 If Magic < 0 Then Magic = 1 If Range < 0 Then Range = 1 If Summoning < 0 Then Summoning = 1 If Cooking < 0 Then Cooking = 1 If Woodcutting < 0 Then Woodcutting = 1 If Fletching < 0 Then Fletching = 1 If Fishing < 0 Then Fishing = 1 If Firemaking < 0 Then Firemaking = 1 If Crafting < 0 Then Crafting = 1 If Smithing < 0 Then Smithing = 1 If Mining < 0 Then Mining = 1 If Herblore < 0 Then Herblore = 1 If Agility < 0 Then Agility = 1 If Theving < 0 Then Theving = 1 If Slayer < 0 Then Slayer = 1 If Farming < 0 Then Farming = 1 If Runecrafting < 0 Then Runecrafting = 1 If Hunter < 0 Then Hunter = 1 If Construction < 0 Then Construction = 1 Catch ex As Exception End Try '_____________________________________ Return Nothing End Function Public Function getStat(ByVal stat_name As String) Select Case stat_name.ToLower Case "strength" : Return Strength Case "attack" : Return Attack Case "defence" : Return Defence Case "prayer" : Return Prayer Case "hitPoints" : Return HitPoints Case "magic" : Return Magic Case "range" : Return Range Case "summoning" : Return Summoning Case "cooking" : Return Cooking Case "woodcutting" : Return Woodcutting Case "fletching" : Return Fletching Case "fishing" : Return Fishing Case "firemaking" : Return Firemaking Case "crafting" : Return Crafting Case "smithing" : Return Smithing Case "mining" : Return Mining Case "herblore" : Return Herblore Case "agility" : Return Agility Case "theving" : Return Theving Case "slayer" : Return Slayer Case "farming" : Return Farming Case "runecrafting" : Return Runecrafting Case "hunter" : Return Hunter Case "construction" : Return Construction End Select Return Nothing End Function End Class
If I was to use:Code:0 = Overall Rank 1 = Overall Level 2 = Overall Expereince 3 = Attack Level 4 = Attack Experience and Rank 5 = Defence Level 6 = Defence Experience and Rank 7 = Strength Level 8 = Strength Experience and Rank 9 = Hitpoints Level 10 = Hitpoints Experience and Rank 11 = Ranged Level 12 = Ranged Experience and Rank 13 = Prayer Level 14 = Prayer Experience and Rank 15 = Magic Level 16 = Magic Experience and Rank 17 = Cooking Level 18 = Cooking Experience and Rank 19 = Woodcutting Level 20 = Woodcutting Experience and Rank 21 = Fletching Level 22 = Fletching Experience and Rank 23 = Fishing Level 24 = Fishing Experience and Rank 25 = Firemaking Level 26 = Firemaking Experience and Rank 27 = Crafting Level 28 = Crafting Experience and Rank 29 = Smithing Level 30 = Smithing Experience and Rank 31 = Mining Level 32 = Mining Experience and Rank 33 = Herblore Level 34 = Herblore Experience and Rank 35 = Agility Level 36 = Agility Experience and Rank 37 = Theving Level 38 = Theiving Experience and Rank 39 = Slayer Level 40 = Slayer Experience and Rank 41 = Farming Level 42 = Farming Experience and Rank 43 = Runecrafting Level 44 = Runecrafting Experience and Rank 45 = Hunter Level 46 = Hunter Experience and Rank 47 = Construction Level 48 = Construction Experience and Rank 49 = Summoning Level 50 = Summoning Rank
Code:Dim wc As WebClient Dim rawdata As String Dim parsedData() As String sub downloadStats() parsedData = Nothing Dim rawdata As String 'Gets the data of the stats Dim wc As New System.Net.WebClient Try rawdata = wc.DownloadString("http://hiscore.runescape.com/index_lite.ws?player=" & username) Catch ex As Exception End Try 'parse the data Try parsedData = rawdata.Split(",") Catch ex As Exception End Try dim summoning as integer summoning = parsedData(49) end sub
It would give what ever level you had in the summoning skill
Reply With Quote
