Well, i want to create an application that can load peoples stats from Runescape, when you typed in the username in a textbox, and pressed a button.. How is this possible?
If it is possible ofcourse.. :confused:
Can anyone help with this?
Printable View
Well, i want to create an application that can load peoples stats from Runescape, when you typed in the username in a textbox, and pressed a button.. How is this possible?
If it is possible ofcourse.. :confused:
Can anyone help with this?
im not sure if it can be done easily.
the game runs by flash or java. unless they made it differently now.
I have no idea, but i think it could be pretty cool... (:
Dont they have some web site that you can pull stats from or something though? I've never played the game but I'm sure I've seen several other people on here asking questions about how to do a similar thing. Have you tried searching these forums for "runescape" and seeing what other people have done?
It has to pull data from http://hiscore.runescape.com/hiscores.ws
From the link that FreeBullets posted, it looks like there is a Search By Name search box. You can probably use a WebBrowser control and send the name of the user to that search and then pull the results.
Though that does seem a little unreliable.
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
As you can see by ball's code, there is actually a shortcut in the website for people who want quick hiscore access in a program.
And that is to use the URL "http://hiscore.runescape.com/index_lite.ws?player=USERNAME" which will return a blank page with just the raw data. It works faster and is easier to parse.
I would suggest against making such a program though unless it was simply for experience because it has been done so many times and in so many different ways I'm afraid that it would be a useless program.