Web Browser

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


    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

        If My.Settings.HomePageOrBlankPage = 0 Then
            WebBrowser1.Navigate(My.Settings.homePage)
        Else
        End If

        Try
            History.Show()

            For Each link As String In File.ReadAllLines("F:\Vortex\history.txt")
                History.lstHistory.Items.Add(link.ToString)
            Next

            History.Visible = False
        Catch ex As Exception

        End Try
    End Sub

    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        WebBrowser1.GoBack()
    End Sub

    Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click
        WebBrowser1.GoForward()
    End Sub

    Private Sub btnReload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReload.Click
        WebBrowser1.Refresh()
    End Sub

    Private Sub txtUrl_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUrl.KeyUp
        If e.KeyCode = Keys.Enter Then
            WebBrowser1.Navigate(txtUrl.Text)
        End If
    End Sub

    Private Sub webIcons()
        Dim wc As New WebClient
        Dim memorystream As New MemoryStream(wc.DownloadData("http://" & New Uri(WebBrowser1.Url.ToString).Host & "/favicon.ico"))

        Try
            Dim icon As New Icon(memorystream)
        Catch ex As Exception
        End Try


        If ImageList1.Images.Count = -1 Then
            ImageList1.Images.Add(icon.ToBitmap)
            TabControl1.SelectedTab.ImageIndex = 0
        Else
            ImageList1.Images.Clear()
            ImageList1.Images.Add(icon.ToBitmap)
            TabControl1.SelectedTab.ImageIndex = 0
        End If
    End Sub

    Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        txtUrl.Text = WebBrowser1.Url.ToString
        webIcons()

        TabControl1.SelectedTab.Text = WebBrowser1.DocumentTitle.ToString

        History.lstHistory.Items.Add(txtUrl.Text)
    End Sub

    Private Sub txtUrlSearchEngines_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUrlSearchEngines.KeyUp
        Select Case (cmbSearchEngines.SelectedIndex)
            Case 0
                If e.KeyCode = Keys.Enter Then
                    WebBrowser1.Navigate("https://www.google.com/#q=" + txtUrlSearchEngines.Text)
                End If
            Case 1
                If e.KeyCode = Keys.Enter Then
                    WebBrowser1.Navigate("http://www.youtube.com/results?search_query=" + txtUrlSearchEngines.Text)
                End If
            Case 2
                If e.KeyCode = Keys.Enter Then
                    WebBrowser1.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
        WebBrowser1.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
End Class







frmProperties


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 form


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