[HELP] How to use combo boxes

[dgameman1]

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...!~

 

[jdsfighter]

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

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

 

[dgameman1]

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

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

 

[jdsfighter]

not

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

just

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

 

[dgameman1]

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

 

[jdsfighter]

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.

 

[dgameman1]

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

 

[jdsfighter]

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.

 

[dgameman1]

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

 

[jdsfighter]

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).

 

[dgameman1]

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

=/

 

[jdsfighter]

hmm odd. Run again and what does it do?

 

[dgameman1]

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

 

[jdsfighter]

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

 

[dgameman1]

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!!

 

[Covey]

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