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

        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


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


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
End Class