[VB6] fast and easy highscore lookup...

tomanderson12 · Oct 23, 2008

Kariem said: ↑
1. I can't choose User.text only:
User.Item
User.UBound
User.LBound
User.Count

I don't know which to choose, I did all of them but all of them contains:"Page not found" that msgbox shizzle

my code is:
Code:
Private Sub Command1_Click()

On Error Resume Next
Dim strLines() As String
Dim strElements() As String
Dim textBoxIndex As Integer

textBoxIndex = 0

strLines = Split(Inet1.OpenURL("http://hiscore.runescape.com/index_lite.ws?player=" & Username.UBound), Chr(10))

If InStr(strLines(O), "Page not found") Then
MsgBox ("User not found!"), vbCritical, ("Error")
GoTo TheEnd:
End If

For i = 0 To UBound(strLines)

strElements = Split(strLines(i), ",")
For X = 0 To UBound(strElements)
If (strElements(X)) = "-1" Then strElements(X) = "N/A"
txtValue(textBoxIndex).Text = strElements(X)
textBoxIndex = textBoxIndex + 1
Next X

Next i
TheEnd:

End Sub
User = Username here, I changed it
Click to expand...
Because the "User" is a control array to refer to all of them it would be User(Index).Text

Kariem · Oct 23, 2008

lmao!
Thanks, very much, now it works.

PinBuyer_ · Oct 23, 2008

Instead of using GoTo TheEnd:

Use Exit sub

AlexOwnzl0l · Oct 25, 2008

i need help ill show u wat it says

http://www.youtube.com/watch?v=eGaQSHjMhtY

it says

run-time error '340':
control array element '81' doesnt exsist

my code is the same as the person who started the thread

some1 plz help

Craig Brian3 · Feb 19, 2009

this is hard to explain but il do my best

you have to have 82 TxtValue

for example TxtValue(0),TxtValue(1),TxtValue(2),TxtValue(3), ect

make 82 of those if you need some help id be glad to make you a video that shows you how