• Log in or sign up for an account here: https://www.sythe.org/login

Web Browser help. Could be hard :O

0h n035

0h n035

Active Member
Joined
Feb 1, 2007
Sythe Gold
0
Messages
163
Location
Australia
Web Browser help. Could be hard :O
Okay, here's some of my problems with my Web Browser.

If you click a link on a site, it goes into the cboURL box drop down list. How do I stop that?

Also, if you search for somethin in the Google Search box I added, it adds the link to the search page to the cboURL drop down list.

And when you click links in cboURL I want it to navigate there.

Yeah, and my friend downloaded the Browser but he has a screen resolution of 8?? x ??? and it cut off most of the browser. Is it possible to make the browser images and stuff resize for anything lower than the 1024x768 resolution?

Last but not least, I added a homepage thing. All the places you visit in cboURL go into the cboHome box so you can choose sites that you've visited to make your Homepage. Well if you go into that and then go into the Web browser and press enter, it resets everything in cboHome and nothing goes back in there.

OH THAT REMINDS ME!

I want the browser to remember everything entered in ALL comboboxes so when they load the browser up again, everything is still there. Sorta like cookies or something.

Oh and I just remembered ANOTHER COUPLE OF THINGS!

Is it possible to install security stuff to your Web Browser like IE and FF have?

And I'm making a Safe Browser that can only view pages within RuneScape.com, Ryanslair.com, Sythe.org and some others. Could someone give me a code for this?

Also... You know how in IE it shows the Pages Description up the top? How can I do that with mine?

Lastly, I have some Print Preview things plus others. Can someone please give me codes for these so if you click print it prints the page, etc. They are:

New Window (Want this to open a new Web Browser Window)
Print Setup
Print Preview
Print
Font Size > Smallest
Font Size > Smaller
Font Size > Medium
Font Size > Large
Font Size > Largest
Cut
Copy
Paste
Select All
Find

CODES:

Form1 (Webbrowser) - Quite messy but will fix later.
Code: 
Private Sub Form1_Close()
Close Me
Close Form1
Close Form2
End Sub

Private Sub Form_Close()
Close Me
Close Form1
Close Form2
End Sub

Private Sub Close_Click()
Close Me
Close Form1
Close Form2
End Sub

Private Sub Form_Load()
Wweb.Silent = True
Wweb.Navigate Form2.cboHome.Text
End Sub

Private Sub CmdHome_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdhomeoc.Visible = True
Wweb.Navigate Form2.cboHome.Text
Dim i As Integer
    cboURL.Text = Wweb.LocationURL
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
End Sub

Private Sub CmdHomeOC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdhome.Visible = True
cmdhomeoc.Visible = False
Wweb.Navigate Form2.cboHome.Text
Dim i As Integer
    cboURL.Text = Wweb.LocationURL
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
Form2.cboHome.AddItem Wweb.LocationURL
End Sub

Private Sub CmdHomeOC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdhomeoc.Visible = False
End Sub

Private Sub CmdHome_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdhomeoc.Visible = False
Wweb.Navigate Form2.cboHome.Text
Dim i As Integer
    cboURL.Text = Wweb.LocationURL
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
Form2.cboHome.AddItem Wweb.LocationURL
End Sub

Private Sub ForumsOC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Forums.Visible = True
ForumsOC.Visible = False
Wweb.Navigate ("http://www.ryanslair.com/BloodVulturesForums")
Dim i As Integer
    cboURL.Text = Wweb.LocationURL
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
Form2.cboHome.AddItem Wweb.LocationURL
End Sub

Private Sub ForumsOC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
ForumsOC.Visible = False
Forums.Visible = True
Wweb.Navigate ("http://www.ryanslair.com/BloodVulturesForums")
Dim i As Integer
    cboURL.Text = Wweb.LocationURL
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
Form2.cboHome.AddItem Wweb.LocationURL
End Sub

Private Sub Forums_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
ForumsOC.Visible = True
Forums.Visible = False
Wweb.Navigate ("http://www.ryanslair.com/BloodVulturesForums")
Dim i As Integer
    cboURL.Text = Wweb.LocationURL
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
Form2.cboHome.AddItem Wweb.LocationURL
End Sub

Private Sub Forums_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Forums.Visible = True
ForumsOC.Visible = False
Wweb.Navigate ("http://www.ryanslair.com/BloodVulturesForums")
Dim i As Integer
    cboURL.Text = Wweb.LocationURL
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
Form2.cboHome.AddItem Wweb.LocationURL
End Sub

Private Sub cmdBack_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdBackOC.Visible = True
Wweb.GoBack
End Sub

Private Sub cmdBackOC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdBack.Visible = True
cmdBackOC.Visible = False
Wweb.GoBack
End Sub

Private Sub cmdBackOC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdBackOC.Visible = False
End Sub

Private Sub cmdBack_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdBackOC.Visible = False
End Sub

Private Sub cmdForward_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdForwardOC.Visible = True
Wweb.GoForward
End Sub

Private Sub cmdForwardOC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdForward.Visible = True
cmdForwardOC.Visible = False
Wweb.GoForward
End Sub

Private Sub cmdForward_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdForwardOC.Visible = False
End Sub

Private Sub cmdForwardOC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdForwardOC.Visible = False
End Sub

Private Sub cmdStop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdStopOC.Visible = True
Wweb.Stop
End Sub

Private Sub cmdStopOC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdStop.Visible = True
cmdStopOC.Visible = False
Wweb.Stop
End Sub

Private Sub cmdStopOC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdStopOC.Visible = False
End Sub

Private Sub cmdStop_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdStopOC.Visible = False
End Sub

Private Sub cmdRefresh_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdRefreshOC.Visible = True
Wweb.Refresh
End Sub

Private Sub cmdRefreshOC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdRefresh.Visible = True
cmdRefreshOC.Visible = False
Wweb.Refresh
End Sub

Private Sub cmdRefresh_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdRefreshOC.Visible = False
End Sub

Private Sub cmdRefreshOC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdRefreshOC.Visible = False
End Sub

Private Sub cmdGo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdGoOC.Visible = True
Wweb.Navigate cboURL.Text
Dim i As Integer
    cboURL.Text = Wweb.LocationURL
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
Form2.cboHome.AddItem Wweb.LocationURL
End Sub

Private Sub cmdGoOC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdGo.Visible = True
cmdGoOC.Visible = False
Wweb.Navigate cboURL.Text
Dim i As Integer
    cboURL.Text = Wweb.LocationURL
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
Form2.cboHome.AddItem Wweb.LocationURL
End Sub

Private Sub cmdGo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdGoOC.Visible = False
End Sub

Private Sub cmdGoOC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
cmdGoOC.Visible = False
End Sub

Private Sub Search_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
search.Visible = False
searchOC.Visible = True
        Wweb.Navigate ("http://www.google.com/search?hl=en&q=" + Googlesearchbox.Text + "&btnG=Google+Search")
            Dim i As Integer
    For i = 0 To Googlesearchbox.ListCount - 1
        If Googlesearchbox.List(i) = Googlesearchbox.Text Then Exit Sub
    Next i
Googlesearchbox.AddItem Googlesearchbox.Text
End Sub

Private Sub SearchOC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
searchOC.Visible = False
search.Visible = True
        Wweb.Navigate ("http://www.google.com/search?hl=en&q=" + Googlesearchbox.Text + "&btnG=Google+Search")
            Dim i As Integer
    For i = 0 To Googlesearchbox.ListCount - 1
        If Googlesearchbox.List(i) = Googlesearchbox.Text Then Exit Sub
    Next i
Googlesearchbox.AddItem Googlesearchbox.Text
End Sub

Private Sub Search_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
searchOC.Visible = False
search.Visible = True
        Wweb.Navigate ("http://www.google.com/search?hl=en&q=" + Googlesearchbox.Text + "&btnG=Google+Search")
            Dim i As Integer
    For i = 0 To Googlesearchbox.ListCount - 1
        If Googlesearchbox.List(i) = Googlesearchbox.Text Then Exit Sub
    Next i
Googlesearchbox.AddItem Googlesearchbox.Text
End Sub

Private Sub SearchOC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
searchOC.Visible = False
search.Visible = True
        Wweb.Navigate ("http://www.google.com/search?hl=en&q=" + Googlesearchbox.Text + "&btnG=Google+Search")
            Dim i As Integer
    For i = 0 To Googlesearchbox.ListCount - 1
        If Googlesearchbox.List(i) = Googlesearchbox.Text Then Exit Sub
    Next i
Googlesearchbox.AddItem Googlesearchbox.Text
End Sub

Private Sub cboURL_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
    Wweb.Navigate cboURL.Text
 End If
 Dim i As Integer
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
Form2.cboHome.AddItem Wweb.LocationURL
End Sub

Private Sub Googlesearchbox_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Wweb.Navigate ("http://www.google.com/search?hl=en&q=" + Googlesearchbox.Text + "&btnG=Google+Search")
            Dim i As Integer
    For i = 0 To Googlesearchbox.ListCount - 1
        If Googlesearchbox.List(i) = Googlesearchbox.Text Then Exit Sub
    Next i
Googlesearchbox.AddItem Googlesearchbox.Text
    End If
End Sub

Private Sub Tools_Click()
Form2.Visible = True
End Sub

Private Sub Wweb_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim i As Integer
    cboURL.Text = Wweb.LocationURL
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
Form2.cboHome.AddItem Wweb.LocationURL
End Sub

Private Sub Search_Click()
                Wweb.Navigate ("http://www.google.com/search?hl=en&q=" + Googlesearchbox.Text + "&btnG=Google+Search")
            Dim i As Integer
    For i = 0 To Googlesearchbox.ListCount - 1
        If Googlesearchbox.List(i) = Googlesearchbox.Text Then Exit Sub
    Next i
Googlesearchbox.AddItem Googlesearchbox.Text
End Sub
    
    Private Sub SearchOC_Click()
        Wweb.Navigate ("http://www.google.com/search?hl=en&q=" + Googlesearchbox.Text + "&btnG=Google+Search")
            Dim i As Integer
    For i = 0 To Googlesearchbox.ListCount - 1
        If Googlesearchbox.List(i) = Googlesearchbox.Text Then Exit Sub
    Next i
Googlesearchbox.AddItem Googlesearchbox.Text
    End Sub

Private Sub Google_Click()
        Wweb.Navigate ("http://www.google.com/")
End Sub

Private Sub cmdBack_Click()
On Error Resume Next
Wweb.GoBack
End Sub

Private Sub cmdForward_Click()
On Error Resume Next
Wweb.GoForward
End Sub

Private Sub cmdStop_Click()
On Error Resume Next
Wweb.Stop
End Sub

Private Sub cmdRefresh_Click()
Wweb.Refresh
End Sub

Private Sub cmdGo_Click()
Wweb.Navigate cboURL.Text
Dim i As Integer
    cboURL.Text = Wweb.LocationURL
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
Form2.cboHome.AddItem Wweb.LocationURL
End Sub

Private Sub cmdBackCO_Click()
On Error Resume Next
Wweb.GoBack
End Sub

Private Sub cmdForwardCO_Click()
On Error Resume Next
Wweb.GoForward
End Sub

Private Sub cmdStopCO_Click()
On Error Resume Next
Wweb.Stop
End Sub

Private Sub cmdRefreshCO_Click()
Wweb.Refresh
End Sub

Private Sub cmdGoCO_click()
Wweb.Navigate cboURL.Text
Dim i As Integer
    cboURL.Text = Wweb.LocationURL
    For i = 0 To cboURL.ListCount - 1
        If cboURL.List(i) = Wweb.LocationURL Then Exit Sub
    Next i
cboURL.AddItem Wweb.LocationURL
Form2.cboHome.AddItem Wweb.LocationURL
End Sub
      
      Private Function IsPopupWindow() As Boolean
      On Error Resume Next
      If Wweb.Document.activeElement.tagName = "BODY" Or Wweb.Document.activeElement.tagName = "IFRAME" Then
      IsPopupWindow = True
      Else
      IsPopupWindow = False
      End If
      End Function
      
      Private Sub Wweb_NewWindow2(ppDisp As Object, Cancel As Boolean)
      Dim frm As Form1
      Cancel = IsPopupWindow
      If Cancel = False Then
      Set frm = New Form1
      Set ppDisp = frm.Wweb.object
      frm.Show
      End If
      End Sub

Form2 (Homepage Box)
Code: 
Private Sub Form1_Close()
Unload Me
Unload Form1
Unload Form2
End Sub

Private Sub OK_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
OKOC.Visible = True
End Sub
Private Sub OKOC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
OK.Visible = True
OKOC.Visible = False
End Sub
Private Sub OKOC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
OKOC.Visible = False
    Form2.Visible = False
    End Sub
    
    Private Sub OK_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
OKOC.Visible = False
    Form2.Visible = False
End Sub

I know the code is a little messy and I'm asking for ALOT of stuff, but please help me do this. I started making a Web Browser and it was very basic but now those who downloaded it want more.

Also, this doesn't HAVE to be done, but a small request of theirs was to make the Scrollbar's default colour different.

You know how in IE the scroll bar is just plain grey? They want it black. How do I do that?

Lol, sorry about the MASSIVE request but I want to make a damn good Internet Browser :)

That is all :P
 
Web Browser help. Could be hard :O
Here is my web browser I started on. Don't complain about any errors you get upon opening. It is because I use chameleon buttons on it and I am not including them.
 
Web Browser help. Could be hard :O
K, they only helped me with the Printing stuff.

They didn't all work properly.

Thanks anyway though.
 
You must log in or register to reply here.
Runescape Gamblingrunescape gambling
Back
Top