BasicBrowser.vb

Imports Skybound.Gecko

Public Class BasicBrowser
    ' Made by ░▒▓█│【Walkman】│█▓▒░

    'use `CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser)` to refer to the webbrowser on the active tab

    ' Copied from the designer, so i can get resources at RunTime
    Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(BasicBrowser))
    
    Public openWithURI As String
    Dim TabToClose As Integer

    Private Sub BasicBrowser_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each s As String In My.Application.CommandLineArgs
            If openWithURI = "" Then
                openWithURI = s
            Else
                openWithURI = openWithURI & s
            End If
        Next
        For i = 1 To My.Settings.Favourites.Count
            ToolStripURL.Items.Add(My.Settings.Favourites.Item(i - 1))
        Next

        NewTab(Nothing, Nothing)
    End Sub

    ' MenuStrip options

    'File
    Sub NewTab(sender As Object, e As EventArgs) Handles ToolStripNewTab.Click, MenuStripFileNew.Click
        Dim TabPage As New TabPage()
        Dim WebBrowser As New GeckoWebBrowser
        AddHandler WebBrowser.Navigating, New GeckoNavigatingEventHandler(AddressOf Navigate)
        AddHandler WebBrowser.Navigated, New GeckoNavigatedEventHandler(AddressOf Navigate)
        AddHandler WebBrowser.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf DocumentCompleted)
        AddHandler WebBrowser.ProgressChanged, New GeckoProgressEventHandler(AddressOf ProgressChanged)
        AddHandler WebBrowser.StatusTextChanged, AddressOf StatusTextChanged
        AddHandler WebBrowser.DocumentTitleChanged, AddressOf DocumentTitleChanged
        AddHandler WebBrowser.CanGoBackChanged, AddressOf PerformStuff
        AddHandler WebBrowser.CanGoForwardChanged, AddressOf PerformStuff
        'AddHandler WebBrowser.MouseClick, New MouseEventHandler(AddressOf WebBrowserMouseClick)
        'AddHandler WebBrowser.ShowContextMenu, New GeckoContextMenuEventHandler(AddressOf WebBrowserShowContextMenu)
        
        TabPage.Text = "Loading..."
        TabControl.TabPages.Add(TabPage)
        TabControl.SelectTab(TabControl.TabCount - 1)
        WebBrowser.Parent = TabPage
        WebBrowser.Dock = DockStyle.Fill
        WebBrowser.Visible = True
        WebBrowser.ContextMenuStrip = WBContextMenu

        If openWithURI = "" Then
            WebBrowser.Navigate("https://google.com")
        Else
            WebBrowser.Navigate(openWithURI)
            openWithURI = ""
        End If

        ToolStripReload.Enabled = True
        ToolStripHome.Enabled = True
        ToolStripCloseTab.Enabled = True
        ToolStripGo.Enabled = True
        ToolStripURL.Enabled = True
        ToolStripAdd.Enabled = True
        ToolStripRemove.Enabled = True
        MenuStripFileCloseTab.Enabled = True
        MenuStripFileOpen.Enabled = True
        MenuStripFileSave.Enabled = True
        MenuStripFilePrint.Enabled = True
        MenuStripFilePrintPreview.Enabled = True
        MenuStripViewSource.Enabled = True
        MenuStripToolsProperties.Enabled = True
    End Sub

    Private Sub CloseTab(sender As Object, e As EventArgs) Handles ToolStripCloseTab.Click, MenuStripFileCloseTab.Click
        CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Navigate("about:blank") ' To make sure it doesn't take up extra memory
        TabToClose = TabControl.SelectedIndex
        If TabControl.TabCount > 1 Then
            '     If you have selected the first tab, select the second tab
            If TabControl.SelectedIndex = 0 Then
                TabControl.SelectTab(1)
                ' If you have selected the last tab, select the second last tab
            ElseIf TabControl.TabCount = TabControl.SelectedIndex + 1 Then
                TabControl.SelectTab(TabControl.SelectedIndex - 1)
            Else 'Else select the next tab
                TabControl.SelectTab(TabControl.SelectedIndex + 1)
            End If
        End If
        TabControl.TabPages.RemoveAt(TabToClose)

        If TabControl.TabCount = 0 Then
            ToolStripBack.Enabled = False
            ToolStripForward.Enabled = False
            ToolStripReload.Enabled = False
            ToolStripStop.Enabled = False
            ToolStripHome.Enabled = False
            ToolStripCloseTab.Enabled = False
            ToolStripGo.Enabled = False
            ToolStripURL.Enabled = False
            ToolStripAdd.Enabled = False
            ToolStripRemove.Enabled = False
            MenuStripFileCloseTab.Enabled = False
            MenuStripFileOpen.Enabled = False
            MenuStripFileSave.Enabled = False
            MenuStripFilePrint.Enabled = False
            MenuStripFilePrintPreview.Enabled = False
            MenuStripViewSource.Enabled = False
            MenuStripToolsProperties.Enabled = False
        Else
            PerformStuff()
        End If
    End Sub

    Private Sub MenuStripFileNewWindow_Click(sender As Object, e As EventArgs) Handles MenuStripFileNewWindow.Click
        Dim NewWindow As BasicBrowser = New BasicBrowser
        NewWindow.Show()
    End Sub

    Private Sub MenuStripFileCloseWindow_Click(sender As Object, e As EventArgs) Handles MenuStripFileCloseWindow.Click
        For i = 1 To TabControl.TabCount
            CType(TabControl.TabPages.Item(0).Controls.Item(0), GeckoWebBrowser).Navigate("about:blank")
            TabControl.TabPages.RemoveAt(0)
        Next
        Me.Close()
    End Sub

    Private Sub MenuStripFileOpen_Click(sender As Object, e As EventArgs) Handles MenuStripFileOpen.Click
        Dim OpenFileDialog As New OpenFileDialog()
        OpenFileDialog.FileName = ""
        OpenFileDialog.Filter = "Webpages|*.html|All Files|*.*"
        OpenFileDialog.Title = "Open Webpage"
        If (OpenFileDialog.ShowDialog() = DialogResult.OK) Then
            'CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).DocumentText = System.IO.File.ReadAllText(OpenFileDialog.FileName)
            'CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Document = System.IO.File.ReadAllText(OpenFileDialog.FileName)
            'CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Document.Body = System.IO.File.ReadAllText(OpenFileDialog.FileName)
            ' Apparently these properties either don't exist (DocumentText) or are read-only, so they have been disabled so that the project is compileable.
            CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Navigate(OpenFileDialog.FileName)
        End If
    End Sub

    Private Sub MenuStripFileSave_Click(sender As Object, e As EventArgs) Handles MenuStripFileSave.Click
        'CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).ShowSaveAsDialog() ' Valid only for WinForms WebBrowser control
        Dim SaveFileDialog As New SaveFileDialog()
        SaveFileDialog.FileName = ""
        SaveFileDialog.Filter = "Webpages|*.html|All Files|*.*"
        SaveFileDialog.Title = "Open Webpage"
        If (SaveFileDialog.ShowDialog() = DialogResult.OK) Then
            CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).SaveDocument(SaveFileDialog.FileName)
        End If
    End Sub

    Private Sub MenuStripFilePrint_Click(sender As Object, e As EventArgs) Handles MenuStripFilePrint.Click
        Dim PrintDialog As New PrintDialog

        Dim PrintDocument As New System.Drawing.Printing.PrintDocument
        'PrintDocument = CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Document
        PrintDialog.Document = PrintDocument

        If (PrintDialog.ShowDialog() = DialogResult.OK) Then
            PrintDocument.PrinterSettings = PrintDialog.PrinterSettings
            PrintDocument.Print()
        End If
    End Sub

    Private Sub MenuStripFilePrintPreview_Click(sender As Object, e As EventArgs) Handles MenuStripFilePrintPreview.Click
        Dim PrintPreviewDialog As New PrintPreviewDialog
        'PrintPreviewDialog.Document = CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Document
        PrintPreviewDialog.Show()
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub ExitBasicBrowser(sender As Object, e As EventArgs) Handles MenuStripFileExit.Click
        MenuStripFileCloseWindow_Click(Nothing, Nothing)
        Application.Exit()
    End Sub

    'Edit
    Private Sub MenuStripEditUndo_Click(sender As Object, e As EventArgs) Handles MenuStripEditUndo.Click
        If ToolStripURL.Focused = True Then
            'ToolStripURL.Undo()
        ElseIf TabControl.TabCount <> 0 Then
            CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Undo()
        End If
    End Sub

    Private Sub MenuStripEditRedo_Click(sender As Object, e As EventArgs) Handles MenuStripEditRedo.Click
        If ToolStripURL.Focused = True Then
            'ToolStripURL.Redo()
        ElseIf TabControl.TabCount <> 0 Then
            CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Redo()
        End If
    End Sub

    Private Sub MenuStripEditCut_Click(sender As Object, e As EventArgs) Handles MenuStripEditCut.Click
        If ToolStripURL.Focused = True Then
            If ToolStripURL.SelectedText = "" Then
                Clipboard.SetText(ToolStripURL.Text)
                ToolStripURL.Text = ""
            Else
                Clipboard.SetText(ToolStripURL.SelectedText)
                ToolStripURL.Text = ToolStripURL.Text.Remove(ToolStripURL.SelectionStart, ToolStripURL.SelectionLength)
            End If
        ElseIf TabControl.TabCount <> 0 Then
            CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).CutSelection()
        End If
    End Sub

    Private Sub MenuStripEditCopy_Click(sender As Object, e As EventArgs) Handles MenuStripEditCopy.Click
        If ToolStripURL.Focused = True Then
            If ToolStripURL.SelectedText = "" Then
                Clipboard.SetText(ToolStripURL.Text)
            Else
                Clipboard.SetText(ToolStripURL.SelectedText)
            End If
        ElseIf TabControl.TabCount <> 0 Then
            CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).CopySelection()
        End If
    End Sub

    Private Sub MenuStripEditPaste_Click(sender As Object, e As EventArgs) Handles MenuStripEditPaste.Click
        If ToolStripURL.Focused = True Then
            ToolStripURL.Text = ToolStripURL.Text.Remove(ToolStripURL.SelectionStart) & Clipboard.GetText & ToolStripURL.Text.Substring(ToolStripURL.SelectionStart)
        ElseIf TabControl.TabCount <> 0 Then
            CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Paste()
        End If
    End Sub

    Private Sub MenuStripEditSelectAll_Click(sender As Object, e As EventArgs) Handles MenuStripEditSelectAll.Click
        If ToolStripURL.Focused = True Then
            ToolStripURL.SelectAll()
        ElseIf TabControl.TabCount <> 0 Then
            CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).SelectAll()
        End If
    End Sub

    'View
    Private Sub MenuStripViewKeepOnTop_CheckedChanged(sender As Object, e As EventArgs) Handles MenuStripViewKeepOnTop.CheckedChanged
        Me.TopMost = MenuStripViewKeepOnTop.Checked
    End Sub

    Private Sub MenuStripViewOpacityLbl_Click(sender As Object, e As EventArgs) Handles MenuStripViewOpacityLbl.Click
        MenuStripViewOpacityCbx.Focus()
    End Sub

    Private Sub MenuStripViewOpacityCbx_TextChanged(sender As Object, e As EventArgs) Handles MenuStripViewOpacityCbx.TextChanged
        Me.Opacity = MenuStripViewOpacityCbx.Text.Remove(MenuStripViewOpacityCbx.Text.LastIndexOf("%")) / 100
    End Sub

    Private Sub MenuStripViewSource_Click(sender As Object, e As EventArgs) Handles MenuStripViewSource.Click
        CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).ViewSource() ' Woah cool, one line instead of loads :D
    End Sub

    'Tools
    Private Sub MenuStripToolsSetup_Click(sender As Object, e As EventArgs) Handles MenuStripToolsSetup.Click
        'CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).ShowPageSetupDialog()
        openWithURI = "about:config"
        NewTab(Nothing, Nothing)
    End Sub

    Private Sub MenuStripToolsProperties_Click(sender As Object, e As EventArgs) Handles MenuStripToolsProperties.Click
        CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).ShowPageProperties()
    End Sub

    Private Sub MenuStripToolsInternetProperties_Click(sender As Object, e As EventArgs) Handles MenuStripToolsInternetProperties.Click
        Process.Start("inetcpl.cpl")
    End Sub

    Private Sub MenuStripToolsInternetProxy_Click(sender As Object, e As EventArgs) Handles MenuStripToolsInternetProxy.Click
        Process.Start("inetcpl.cpl", ",4")
    End Sub

    Private Sub MenuStripToolsNetworkDiagnostics_Click(sender As Object, e As EventArgs) Handles MenuStripToolsNetworkDiagnostics.Click
        Process.Start("rundll32.exe", "ndfapi,NdfRunDllDiagnoseIncident")
    End Sub

    'About
    Private Sub MenuStripHelpAbout_Click(sender As Object, e As EventArgs) Handles MenuStripHelpAbout.Click
        Dim AboutForm As New Form()
        AboutForm.Width = 450
        AboutForm.Height = 350
        AboutForm.StartPosition = FormStartPosition.CenterParent
        AboutForm.Icon = CType(resources.GetObject("SourceCodeIcon"), System.Drawing.Icon)
        AboutForm.ShowIcon = True
        AboutForm.ShowInTaskbar = True
        AboutForm.Text = "About BasicBrowser"
        Dim lblAboutText As New Label()
        'lblAboutText.Font = 
        lblAboutText.TextAlign = ContentAlignment.MiddleCenter
        AboutForm.Controls.Add(lblAboutText)
        lblAboutText.Dock = DockStyle.Fill
        lblAboutText.Text = _
            "Made by ░▒▓█│【Walkman】│█▓▒░ (Walkman100)" & vbNewLine & vbNewLine & _
            "Source code available at: https://github.com/Walkman100/BasicBrowser" & vbNewLine & vbNewLine & _
            "Go to https://github.com/Walkman100/BasicBrowser/issues/new to report bugs or suggest features" & vbNewLine & vbNewLine & _
            "Hold ALT to reorganise all the buttons/menus at the top" & vbNewLine & vbNewLine & _
            "Current Version: " & My.Application.Info.Version.ToString
        AboutForm.Show()
    End Sub

    ' ToolStrip options

    Private Sub ToolStripBack_ButtonClick(sender As Object, e As EventArgs) Handles ToolStripBack.ButtonClick
        CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).GoBack()
        ToolStripStop.Enabled = True
        PerformStuff()
    End Sub

    Private Sub ToolStripBack_DropDownOpening(sender As Object, e As EventArgs) Handles ToolStripBack.DropDownOpening
        ToolStripBack.DropDownItems.Clear()
        For i = 1 To CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).History.Count
            ToolStripBack.DropDownItems.Add(CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).History.Item(i - 1).ToString)
        Next
    End Sub

    Private Sub ToolStripForward_ButtonClick(sender As Object, e As EventArgs) Handles ToolStripForward.ButtonClick
        CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).GoForward()
        ToolStripStop.Enabled = True
        PerformStuff()
    End Sub

    Private Sub ToolStripForward_DropDownOpening(sender As Object, e As EventArgs) Handles ToolStripForward.DropDownOpening
        ToolStripForward.DropDownItems.Clear()
        For i = 1 To CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).History.Count
            ToolStripBack.DropDownItems.Add(CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).History.Item(i - 1).ToString)
        Next
    End Sub

    Private Sub ToolStripReload_Click(sender As Object, e As EventArgs) Handles ToolStripReload.Click
        CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Reload()
        ToolStripStop.Enabled = True
        PerformStuff()
    End Sub

    Private Sub ToolStripStop_Click(sender As Object, e As EventArgs) Handles ToolStripStop.Click
        CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Stop()
        ToolStripStop.Enabled = False
        PerformStuff()
    End Sub

    Private Sub ToolStripHome_Click(sender As Object, e As EventArgs) Handles ToolStripHome.Click
        'CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).GoHome()
        CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Navigate("https://google.com")
        ToolStripStop.Enabled = True
        PerformStuff()
    End Sub

    Private Sub ToolStripURL_KeyDown(sender As Object, e As KeyEventArgs) Handles ToolStripURL.KeyDown
        If e.KeyCode = Keys.Enter Then
            ToolStripGo_Click(Nothing, Nothing)
        End If
    End Sub

    Private Sub ToolStripURL_Focused(sender As Object, e As EventArgs) Handles ToolStripURL.GotFocus
        ToolStripURL.SelectAll()
    End Sub

    Private Sub ToolStripGo_Click(sender As Object, e As EventArgs) Handles ToolStripGo.Click
        If ToolStripURL.Text <> "" Then
            CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Navigate(ToolStripURL.Text)
            CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Focus()
        Else
            ToolStripURL.Focus()
        End If
    End Sub

    Private Sub TabControl_Click(sender As Object, e As EventArgs) Handles TabControl.Click, TabControl.KeyUp
        ToolStripStop.Enabled = CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).IsBusy
        PerformStuff()
    End Sub

    Private Sub BasicBrowser_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged, MyBase.Resize
        ToolStripURL.Size = New Size(Me.Width - 243, 25)
    End Sub

    'Favourites bar (Integrated into URL bar)
    Private Sub ToolStripAdd_Click(sender As Object, e As EventArgs) Handles ToolStripAdd.Click
        ToolStripURL.Items.Add(CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Url.ToString)
        My.Settings.Favourites.Add(CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Url.ToString)
        My.Settings.Save()
    End Sub

    Private Sub ToolStripRemove_Click(sender As Object, e As EventArgs) Handles ToolStripRemove.Click
        ToolStripURL.Items.RemoveAt(ToolStripURL.SelectedIndex)
        My.Settings.Favourites.Remove(ToolStripURL.SelectedItem)
        My.Settings.Save()
    End Sub

    Private Sub ToolStripURL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ToolStripURL.SelectedIndexChanged
        CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Navigate(ToolStripURL.Items.Item(ToolStripURL.SelectedIndex).ToString)
        CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Focus()
        ToolStripURL.Invalidate()
    End Sub

    ' browser stuff

    Sub Navigate()
        ToolStripStop.Enabled = True
        PerformStuff()
    End Sub

    Sub DocumentCompleted()
        ToolStripStop.Enabled = False
        PerformStuff()
    End Sub

    Sub ProgressChanged(ByVal sender As Object, ByVal e As Skybound.Gecko.GeckoProgressEventArgs)
        StatusStripProgressBar.Value = (e.CurrentProgress / e.MaximumProgress) * 100
        If ToolStripURL.Focused = False Then
            ToolStripURL.Text = CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Url.ToString
        End If
    End Sub

    Sub StatusTextChanged()
        StatusStripStatusText.Text = CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).StatusText
    End Sub

    Sub DocumentTitleChanged()
        If CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).DocumentTitle <> "" Then
            Me.Text = CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).DocumentTitle & " - BasicBrowser"
        End If
        For i = 1 To TabControl.TabCount
            TabControl.TabPages.Item(i - 1).Text = CType(TabControl.TabPages.Item(i - 1).Controls.Item(0), GeckoWebBrowser).DocumentTitle
        Next
    End Sub

    Sub PerformStuff()
        ToolStripBack.Enabled = CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).CanGoBack
        ToolStripForward.Enabled = CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).CanGoForward
        If ToolStripURL.Focused = False Then
            ToolStripURL.Text = CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).Url.ToString
        End If
    End Sub

    'Sub WebBrowserMouseClick(sender As Object, e As MouseEventArgs) Handles GeckoWebBrowser1.MouseClick, GeckoWebBrowser1.MouseUp, GeckoWebBrowser1.MouseDown
    '    MsgBox(e.Button.ToString)
    '    If e.Button = Windows.Forms.MouseButtons.Middle Then
    '        CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).CopyLinkLocation()
    '        openWithURI = Clipboard.GetText
    '        NewTab(Nothing, Nothing)
    '        'ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
    '        '    CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).ContextMenu.MenuItems.Add(LinkNT)
    '    End If
    'End Sub

    'Sub WebBrowserShowContextMenu(sender As Object, e As GeckoContextMenuEventArgs) Handles GeckoWebBrowser1.ShowContextMenu
    '    CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).ContextMenu.Show(WBContextMenu, MousePosition)
    '    'CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).ContextMenu.MergeMenu(WBContextMenu)
    '    CType(TabControl.SelectedTab.Controls.Item(0), GeckoWebBrowser).ContextMenuStrip = WBContextMenu
    'End Sub
End Class