[HELP] How to use combo boxes

The page i was looking for was not found.. ehh

OMG IM SORRY!! i seriously forgot i double posted.. Cant explain.. SORRY

2ND EDIT: i made a combobox named quality but it doesnt do anything, its just their, and um i just downloaded the new fawg and did got all the worlds, and 404-error, page code not be found...!~

 

You are using the wrong link. Try using this one:

Code:

"http://" & GetPrefix(Combo1.Text) & ".runescape.com/l1,p0,j1"

 

MY GOD!!! still 404-error page could not be found, this my code now..

Code:

Private Sub WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
On Error Resume Next
If URL = "http://www.runescape.com/" Then Cancel = True
End Sub

Private Sub WebBrowser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
StealRS2 Me
End Sub

Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 159
        If IsAvailable(i) Then
            Combo1.AddItem i
        End If
    Next i
End Sub

Private Function IsAvailable(ByVal intNumber As Integer) As Boolean
    Select Case intNumber
        Case "49", "146", "140", "139", "73", "60", "120", "122", "147", "156", "150", "148", "135"
            IsAvailable = False
        Case Else
            IsAvailable = True
    End Select
End Function
Private Sub Combo1_Click()
WebBrowser.Navigate "http://" & GetPrefix(Combo1.Text) & ".runescape.com/l1,p0,j1" & quality.Text & "&plugin=0"
Form1.Caption = Combo1.Text & " - " & "DG Switch"
End Sub

 

not

Code:

WebBrowser.Navigate "http://" & GetPrefix(Combo1.Text) & ".runescape.com/l1,p0,j1" & quality.Text & "&plugin=0"

just

Code:

WebBrowser.Navigate "http://" & GetPrefix(Combo1.Text) & ".runescape.com/l1,p0,j1"

 

Lol now i get..WTF vb6 froze on me... but it said something like.. Run-time error -1 fffffffff or something when i clicked a world Oh and i deleted the combobox that said quality

 

That sounds like it happens to be the error you get when you are using internet explorer 7 and not using the correct dll.

Follow this tutorial: http://sythe.org/showthread.php?t=168872

Also do you want me to send you the source of my old client. It is pretty outdated, but for the most part it works.

 

Lol i did that before, that used to happen to me when i couldnt even get internet controls to even load up, then i browsed for the shdocvw.dll and now it lets me use webbrowser. So ya, ive dont that before

 

hmm could you possibly zip your client and send to me? It is rather odd seeing as that is the error usually associated with IE7.

 

Wait i think i got it..I used MozillaBrowser1 and now when i click a world it just gets blank... K so you want me to zip it? k wait And ill just make it webbrowser Real fast then send it to you

K i pmed it to you

 

I ran it and it ran flawlessly on my computer. So I believe I am correct, please, for the sake of checking, pull up your components and click on Microsoft Internet Controls. Tell me what the location says (located toward the bottom of the window).

 

Location: c:\windows\system32\shdocvw.dll

=/

 

hmm odd. Run again and what does it do?

 

My god it froze again.. just wait..

It says..

run-time error '-1 (ffffffff)'

OK HELP


but the weird thing is.. while its doing that, I can see rs loading up in the background

 

Could you try compiling it and running it, and see what happens?

 

Ight...Compiling... itsa loading...Not responding.. Exting.... Endnow-Cancel.... i chose EndNow.......Closing...."Dgameman1's frustration level rises"...closes...Opens up again...choses world....No shit happens...waits...HOLLY EFFING SHIT IT WORKS!!

 

Even when you fix the IE7 glitch in vb6, it still occassionally and randomly closes your program when you run it in debug mode.