VB web browser part 7

Form 1



Imports System.Net
Imports System.IO

Public Class frmVortex

    Private Declare Sub keybd_event Lib "user32" (ByVal volumeUpOrDown As Byte, ByVal v1 As Byte, ByVal v2 As Integer, ByVal v3 As Integer)

    Private Sub frmVortex_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        For Each link As String In History.lstHistory.Items
            File.AppendAllText("F:\Vortex\history.txt", link & vbNewLine)
        Next


        For Each favouriteName As String In lstName.Items
            File.AppendAllText("F:\Vortex\favouriteName.txt", favouriteName & vbNewLine)
        Next

        For Each favouriteURL As String In lstUrl.Items
            File.AppendAllText("F:\Vortex\favouriteURL.txt", favouriteURL & vbNewLine)
        Next
    End Sub

    Private Sub frmVortex_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbSearchEngines.Items.Add("Google")
        cmbSearchEngines.Items.Add("YouTube")
        cmbSearchEngines.Items.Add("Wikipedia")

        cmbSearchEngines.SelectedIndex = 0

        addTab(TabControl1)

        If My.Settings.HomePageOrBlankPage = 0 Then
            Dim browser As webBrowserFunction = Me.TabControl1.SelectedTab.Tag
            browser.Navigate(My.Settings.homePage)
        Else
        End If

        Try
            History.Show()
            History.Visible = False
            For Each link As String In File.ReadAllLines("F:\Vortex\history.txt")
                History.lstHistory.Items.Add(link.ToString)
            Next
        Catch ex As Exception
        End Try




        Try
            For Each url As String In File.ReadAllLines("F:\Vortex\favouriteURL.txt")
                ListBox3.Items.Add(url)
            Next
        Catch ex As Exception
        End Try


        Try
            ListBox3.SelectedIndex = 0
        Catch ex As Exception
        End Try


        Try
            For Each Name As String In File.ReadAllLines("F:\Vortex\favouriteName.txt")
                Dim newBookmark As New ToolStripButton
                newBookmark.Text = Name

                newBookmark.Tag = ListBox3.SelectedItem.ToString
                ToolStrip1.Items.Add(newBookmark)
                ListBox3.SelectedIndex = ListBox3.SelectedIndex + 1
            Next
        Catch ex As Exception
        End Try


        createdBookClic()

    End Sub

    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        Dim browser As webBrowserFunction = Me.TabControl1.SelectedTab.Tag
        browser.GoBack()
    End Sub

    Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click
        Dim browser As webBrowserFunction = Me.TabControl1.SelectedTab.Tag
        browser.GoForward()
    End Sub

    Private Sub btnReload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReload.Click
        Dim browser As webBrowserFunction = Me.TabControl1.SelectedTab.Tag
        browser.Refresh()
    End Sub

    Private Sub txtUrl_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUrl.KeyUp
        Dim browser As webBrowserFunction = Me.TabControl1.SelectedTab.Tag
        If e.KeyCode = Keys.Enter Then
            browser.Navigate(txtUrl.Text)
        End If
    End Sub

    Private Sub txtUrlSearchEngines_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUrlSearchEngines.KeyUp

        Dim browser As webBrowserFunction = Me.TabControl1.SelectedTab.Tag

        Select Case (cmbSearchEngines.SelectedIndex)
            Case 0
                If e.KeyCode = Keys.Enter Then
                    browser.Navigate("https://www.google.com/#q=" + txtUrlSearchEngines.Text)
                End If
            Case 1
                If e.KeyCode = Keys.Enter Then
                    browser.Navigate("http://www.youtube.com/results?search_query=" + txtUrlSearchEngines.Text)
                End If
            Case 2
                If e.KeyCode = Keys.Enter Then
                    browser.Navigate("http://en.wikipedia.org/wiki/" + txtUrlSearchEngines.Text)
                End If
        End Select
    End Sub

    Private Sub btnHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHome.Click
        Dim browser As webBrowserFunction = Me.TabControl1.SelectedTab.Tag
        browser.Navigate(My.Settings.homePage)
    End Sub

    Private Sub btnVolumUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVolumUp.Click
        Call keybd_event(System.Windows.Forms.Keys.VolumeUp, 0, 0, 0)
    End Sub

    Private Sub btnVolumeDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVolumeDown.Click
        Call keybd_event(System.Windows.Forms.Keys.VolumeDown, 0, 0, 0)
    End Sub

    Private Sub OptionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsToolStripMenuItem.Click
        frmProperties.Show()
    End Sub

    Private Sub tmrDate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrDate.Tick
        lblDate.Text = Now
    End Sub

    Private Sub HistoryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HistoryToolStripMenuItem.Click
        History.Visible = True
    End Sub


    Private Sub txtUrl_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUrl.TextChanged
        txtUrl.AutoCompleteCustomSource.Clear()
        For i As Integer = 0 To History.lstHistory.Items.Count - 1
            txtUrl.AutoCompleteCustomSource.Add(History.lstHistory.Items(i))
        Next
    End Sub

    Private Sub NewTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewTabToolStripMenuItem.Click
        addTab(TabControl1)
    End Sub

    Private Sub CloseTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseTabToolStripMenuItem.Click
        removeTab()
    End Sub

    Public Sub addTab(ByRef tabControl As TabControl)
        Dim browser As New webBrowserFunction
        Dim tab As New TabPage
        browser.Tag = tab
        tab.Tag = browser
        TabControl1.TabPages.Add(tab)
        tab.Controls.Add(browser)
        browser.Dock = DockStyle.Fill
        browser.Navigate("www.google.com")

        TabControl1.SelectedTab = tab
    End Sub

    Public Sub removeTab()
        If TabControl1.TabPages.Count <> 0 Then
            TabControl1.TabPages.Remove(TabControl1.SelectedTab)
        End If
    End Sub

    Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
        Dim browser As webBrowserFunction = TabControl1.SelectedTab.Tag

        Try
            txtUrl.Text = browser.Url.ToString
        Catch ex As Exception

        End Try
    End Sub

    Private Sub NewWindowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewWindowToolStripMenuItem.Click
        Dim newWindow As New frmVortex
        newWindow.Show()
    End Sub

    Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
        txtUrl.Undo()
    End Sub

    Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click
        txtUrl.ClearUndo()
    End Sub

    Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
        txtUrl.Cut()
    End Sub

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
        txtUrl.Copy()
    End Sub

    Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
        txtUrl.Paste()
    End Sub

    Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click
        txtUrl.SelectAll()
    End Sub

    Private Sub SaveHTMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveHTMLToolStripMenuItem.Click
        Dim browser As webBrowserFunction = TabControl1.SelectedTab.Tag

        Dim fileName As String = InputBox("Enter filename:", "Save HTML", ".txt")
        Dim path As String = "F:\Vortex\" & fileName

        Try
            If File.Exists(path) Then
                Dim allText As String
                allText = browser.DocumentText
                File.WriteAllText(path, allText)
            Else
                File.Create(path).Dispose()
                Dim allText As String
                allText = browser.DocumentText
                File.WriteAllText(path, allText)
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click
        MsgBox("There is no help, you are fucked!")
    End Sub

    Private Sub BookmarksToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BookmarksToolStripMenuItem.Click
        addBookmarks()
    End Sub

    Private Sub addBookmarks()
        Dim browser As webBrowserFunction = TabControl1.SelectedTab.Tag

        Dim newBookmark As New ToolStripButton
        newBookmark.Text = TabControl1.SelectedTab.Text
        newBookmark.Tag = browser.Url
        ToolStrip1.Items.Add(newBookmark)
        lstName.Items.Add(TabControl1.SelectedTab.Text)
        lstUrl.Items.Add(browser.Url.ToString)

        AddHandler newBookmark.Click, AddressOf newBookmarkClick
    End Sub

    Private Sub newBookmarkClick(ByVal sender As Object, ByVal e As EventArgs)
        Dim browser As webBrowserFunction = TabControl1.SelectedTab.Tag

        If TypeOf sender Is ToolStripButton Then
            browser.Navigate(CType(sender, ToolStripButton).Tag)
        End If
    End Sub

    Private Sub createdBookClic()
        For Each item As ToolStripButton In ToolStrip1.Items
            AddHandler item.Click, AddressOf bookclick
        Next
    End Sub

    Private Sub bookclick(ByVal sender As Object, ByVal e As EventArgs)
        txtUrl.Text = CType(sender, ToolStripButton).Tag
        bookNav()
    End Sub

    Private Sub bookNav()
        Dim browser As webBrowserFunction = TabControl1.SelectedTab.Tag
        browser.Navigate(txtUrl.Text)
    End Sub

End Class



Frm Properties


Public Class frmProperties

    Private Sub frmProperties_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtHomePage.Text = My.Settings.homePage

        If My.Settings.HomePageOrBlankPage = 0 Then
            cmbStartUp.SelectedIndex = 0
        ElseIf My.Settings.HomePageOrBlankPage = 1 Then
            cmbStartUp.SelectedIndex = 1
        End If


    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        My.Settings.homePage = txtHomePage.Text
        My.Settings.Save()
        My.Settings.Reload()

        My.Settings.HomePageOrBlankPage = cmbStartUp.SelectedIndex.ToString
        My.Settings.Save()
        My.Settings.Reload()
    End Sub
End Class



History



Imports System.IO

Public Class History



    Private Sub History_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
        Me.Visible = False
    End Sub

    Private Sub btnDeleteAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteAll.Click
        lstHistory.Items.Clear()
        File.Delete("F:\vortex\history.txt")
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Visible = False
    End Sub
End Class






webbrowserfunction



Public Class webBrowserFunction
    Inherits WebBrowser

    Private Sub webBrowserDocCompl() Handles Me.DocumentCompleted
        Dim tabPage As TabPage = Me.Tag

        If Me.DocumentTitle.Length > 25 Then
            tabPage.Text = Me.DocumentTitle.Substring(0, 25)
        Else
            tabPage.Text = Me.DocumentTitle
        End If
        frmVortex.txtUrl.Text = Me.Url.ToString
    End Sub

    Public Sub New()
        Me.ScriptErrorsSuppressed = True
    End Sub
End Class