Web Brower - vB.Net 2k3

Discussion in 'Source Codes & Snippets' started by WorldWarIII, July 9, 2007.

  1. WorldWarIII

    WorldWarIII [ Respected ]

    Code:
    Public Class frmSP
        Inherits System.Windows.Forms.Form
    
    #Region " Windows Form Designer generated code "
    
        Public Sub New()
            MyBase.New()
    
            'This call is required by the Windows Form Designer.
            InitializeComponent()
    
            'Add any initialization after the InitializeComponent() call
    
        End Sub
    
        'Form overrides dispose to clean up the component list.
        Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If Not (components Is Nothing) Then
                    components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub
    
        'Required by the Windows Form Designer
        Private components As System.ComponentModel.IContainer
    
        'NOTE: The following procedure is required by the Windows Form Designer
        'It can be modified using the Windows Form Designer.  
        'Do not modify it using the code editor.
        Friend WithEvents mnuMain As System.Windows.Forms.MainMenu
        Friend WithEvents mnu1File As System.Windows.Forms.MenuItem
        Friend WithEvents mnu1Obj As System.Windows.Forms.MenuItem
        Friend WithEvents mnu1Filt As System.Windows.Forms.MenuItem
        Friend WithEvents mnu1View As System.Windows.Forms.MenuItem
        Friend WithEvents mnu1Dat As System.Windows.Forms.MenuItem
        Friend WithEvents mnu1Chat As System.Windows.Forms.MenuItem
        Friend WithEvents mnu2Xml As System.Windows.Forms.MenuItem
        Friend WithEvents mnu2Css As System.Windows.Forms.MenuItem
        Friend WithEvents mnu2Html As System.Windows.Forms.MenuItem
        Friend WithEvents mnu2Js As System.Windows.Forms.MenuItem
        Friend WithEvents mnu2Flash As System.Windows.Forms.MenuItem
        Friend WithEvents mnu2Java As System.Windows.Forms.MenuItem
        Friend WithEvents mnu2Php As System.Windows.Forms.MenuItem
        Friend WithEvents btnClose As System.Windows.Forms.Button
        Friend WithEvents mnu2Open As System.Windows.Forms.MenuItem
        Friend WithEvents mnu2Save As System.Windows.Forms.MenuItem
        Friend WithEvents mnu2Saveas As System.Windows.Forms.MenuItem
        Friend WithEvents mnu2Close As System.Windows.Forms.MenuItem
        Friend WithEvents tabControls As System.Windows.Forms.TabControl
        Friend WithEvents btnCnt As System.Windows.Forms.Button
        Friend WithEvents btnGoogle As System.Windows.Forms.Button
        Friend WithEvents grpMain As System.Windows.Forms.GroupBox
        Friend WithEvents brsrCmmd As AxSHDocVw.AxWebBrowser
        Friend WithEvents PageSetupDialog1 As System.Windows.Forms.PageSetupDialog
        Friend WithEvents tab0 As System.Windows.Forms.TabPage
        Friend WithEvents tab1 As System.Windows.Forms.TabPage
        Friend WithEvents lstLogs As System.Windows.Forms.ListBox
        Friend WithEvents tab3 As System.Windows.Forms.TabPage
        Friend WithEvents txtLocation As System.Windows.Forms.TextBox
        Friend WithEvents btnLoc As System.Windows.Forms.Button
        Friend WithEvents btnBack As System.Windows.Forms.Button
        Friend WithEvents btnForward As System.Windows.Forms.Button
        Friend WithEvents btnRefresh As System.Windows.Forms.Button
        Friend WithEvents lbHist As System.Windows.Forms.Label
        Friend WithEvents lblLoc As System.Windows.Forms.Label
        Friend WithEvents btnDelHis As System.Windows.Forms.Button
        Friend WithEvents tab4 As System.Windows.Forms.TabPage
        Friend WithEvents btnSSGame1 As System.Windows.Forms.Button
        Friend WithEvents btnRTSGame2 As System.Windows.Forms.Button
        Friend WithEvents lblsde As System.Windows.Forms.Label
        Friend WithEvents lblRts As System.Windows.Forms.Label
        Friend WithEvents lblSimple As System.Windows.Forms.Label
        Friend WithEvents btnSGame1 As System.Windows.Forms.Button
        Friend WithEvents tab5 As System.Windows.Forms.TabPage
        Friend WithEvents tab6 As System.Windows.Forms.TabPage
        Friend WithEvents tabBr1 As System.Windows.Forms.TabPage
        Friend WithEvents tabBr2 As System.Windows.Forms.TabPage
        Friend WithEvents tabBr3 As System.Windows.Forms.TabPage
        Friend WithEvents tabBr4 As System.Windows.Forms.TabPage
        Friend WithEvents brsrHolder As System.Windows.Forms.TabControl
        Friend WithEvents brsrEmail As AxSHDocVw.AxWebBrowser
        Friend WithEvents lstSrc As System.Windows.Forms.ListBox
        Friend WithEvents tabBr5 As System.Windows.Forms.TabPage
        Friend WithEvents btnHome As System.Windows.Forms.Button
        Friend WithEvents btnPrint As System.Windows.Forms.Button
        Friend WithEvents brsrDrive As AxSHDocVw.AxWebBrowser
        Friend WithEvents btnBack2 As System.Windows.Forms.Button
        Friend WithEvents btnRefresh2 As System.Windows.Forms.Button
        Friend WithEvents btnForward2 As System.Windows.Forms.Button
        Friend WithEvents btnControl As System.Windows.Forms.Button
        Friend WithEvents btnCMD As System.Windows.Forms.Button
        Friend WithEvents brsrChat As AxSHDocVw.AxWebBrowser
        Friend WithEvents btnOpSrc As System.Windows.Forms.Button
        Friend WithEvents btnOpNtpad As System.Windows.Forms.Button
        Friend WithEvents btnFav As System.Windows.Forms.Button
        Friend WithEvents lstDriveChange As System.Windows.Forms.ListBox
        Friend WithEvents chkProx As System.Windows.Forms.CheckBox
        Friend WithEvents btnHideShow As System.Windows.Forms.Button
        Friend WithEvents btnCalc As System.Windows.Forms.Button
        Friend WithEvents btnPrcTsk As System.Windows.Forms.Button
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmSP))
            Me.mnuMain = New System.Windows.Forms.MainMenu
            Me.mnu1File = New System.Windows.Forms.MenuItem
            Me.mnu2Open = New System.Windows.Forms.MenuItem
            Me.mnu2Save = New System.Windows.Forms.MenuItem
            Me.mnu2Saveas = New System.Windows.Forms.MenuItem
            Me.mnu2Close = New System.Windows.Forms.MenuItem
            Me.mnu1Obj = New System.Windows.Forms.MenuItem
            Me.mnu1Filt = New System.Windows.Forms.MenuItem
            Me.mnu1View = New System.Windows.Forms.MenuItem
            Me.mnu1Dat = New System.Windows.Forms.MenuItem
            Me.mnu2Xml = New System.Windows.Forms.MenuItem
            Me.mnu2Css = New System.Windows.Forms.MenuItem
            Me.mnu2Html = New System.Windows.Forms.MenuItem
            Me.mnu2Js = New System.Windows.Forms.MenuItem
            Me.mnu2Flash = New System.Windows.Forms.MenuItem
            Me.mnu2Java = New System.Windows.Forms.MenuItem
            Me.mnu2Php = New System.Windows.Forms.MenuItem
            Me.mnu1Chat = New System.Windows.Forms.MenuItem
            Me.btnClose = New System.Windows.Forms.Button
            Me.tabControls = New System.Windows.Forms.TabControl
            Me.tab3 = New System.Windows.Forms.TabPage
            Me.chkProx = New System.Windows.Forms.CheckBox
            Me.btnFav = New System.Windows.Forms.Button
            Me.btnPrint = New System.Windows.Forms.Button
            Me.btnHome = New System.Windows.Forms.Button
            Me.btnRefresh = New System.Windows.Forms.Button
            Me.btnForward = New System.Windows.Forms.Button
            Me.btnBack = New System.Windows.Forms.Button
            Me.btnLoc = New System.Windows.Forms.Button
            Me.lblLoc = New System.Windows.Forms.Label
            Me.txtLocation = New System.Windows.Forms.TextBox
            Me.tab0 = New System.Windows.Forms.TabPage
            Me.tab1 = New System.Windows.Forms.TabPage
            Me.btnDelHis = New System.Windows.Forms.Button
            Me.lbHist = New System.Windows.Forms.Label
            Me.lstLogs = New System.Windows.Forms.ListBox
            Me.tab4 = New System.Windows.Forms.TabPage
            Me.btnSGame1 = New System.Windows.Forms.Button
            Me.lblSimple = New System.Windows.Forms.Label
            Me.lblRts = New System.Windows.Forms.Label
            Me.lblsde = New System.Windows.Forms.Label
            Me.btnRTSGame2 = New System.Windows.Forms.Button
            Me.btnSSGame1 = New System.Windows.Forms.Button
            Me.tab5 = New System.Windows.Forms.TabPage
            Me.tab6 = New System.Windows.Forms.TabPage
            Me.btnCnt = New System.Windows.Forms.Button
            Me.btnGoogle = New System.Windows.Forms.Button
            Me.grpMain = New System.Windows.Forms.GroupBox
            Me.brsrHolder = New System.Windows.Forms.TabControl
            Me.tabBr1 = New System.Windows.Forms.TabPage
            Me.brsrCmmd = New AxSHDocVw.AxWebBrowser
            Me.tabBr3 = New System.Windows.Forms.TabPage
            Me.brsrEmail = New AxSHDocVw.AxWebBrowser
            Me.tabBr2 = New System.Windows.Forms.TabPage
            Me.btnOpNtpad = New System.Windows.Forms.Button
            Me.btnOpSrc = New System.Windows.Forms.Button
            Me.lstSrc = New System.Windows.Forms.ListBox
            Me.tabBr4 = New System.Windows.Forms.TabPage
            Me.btnCalc = New System.Windows.Forms.Button
            Me.lstDriveChange = New System.Windows.Forms.ListBox
            Me.btnCMD = New System.Windows.Forms.Button
            Me.btnControl = New System.Windows.Forms.Button
            Me.btnForward2 = New System.Windows.Forms.Button
            Me.btnRefresh2 = New System.Windows.Forms.Button
            Me.btnBack2 = New System.Windows.Forms.Button
            Me.brsrDrive = New AxSHDocVw.AxWebBrowser
            Me.tabBr5 = New System.Windows.Forms.TabPage
            Me.brsrChat = New AxSHDocVw.AxWebBrowser
            Me.PageSetupDialog1 = New System.Windows.Forms.PageSetupDialog
            Me.btnHideShow = New System.Windows.Forms.Button
            Me.btnPrcTsk = New System.Windows.Forms.Button
            Me.tabControls.SuspendLayout()
            Me.tab3.SuspendLayout()
            Me.tab1.SuspendLayout()
            Me.tab4.SuspendLayout()
            Me.grpMain.SuspendLayout()
            Me.brsrHolder.SuspendLayout()
            Me.tabBr1.SuspendLayout()
            CType(Me.brsrCmmd, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.tabBr3.SuspendLayout()
            CType(Me.brsrEmail, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.tabBr2.SuspendLayout()
            Me.tabBr4.SuspendLayout()
            CType(Me.brsrDrive, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.tabBr5.SuspendLayout()
            CType(Me.brsrChat, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.SuspendLayout()
            '
            'mnuMain
            '
            Me.mnuMain.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnu1File, Me.mnu1Obj, Me.mnu1Filt, Me.mnu1View, Me.mnu1Dat, Me.mnu1Chat})
            '
            'mnu1File
            '
            Me.mnu1File.Index = 0
            Me.mnu1File.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnu2Open, Me.mnu2Save, Me.mnu2Saveas, Me.mnu2Close})
            Me.mnu1File.Text = "File"
            '
            'mnu2Open
            '
            Me.mnu2Open.Index = 0
            Me.mnu2Open.Text = "Open"
            '
            'mnu2Save
            '
            Me.mnu2Save.Index = 1
            Me.mnu2Save.Text = "Save"
            '
            'mnu2Saveas
            '
            Me.mnu2Saveas.Index = 2
            Me.mnu2Saveas.Text = "Save As"
            '
            'mnu2Close
            '
            Me.mnu2Close.Index = 3
            Me.mnu2Close.Text = "Close"
            '
            'mnu1Obj
            '
            Me.mnu1Obj.Index = 1
            Me.mnu1Obj.Text = "Objects"
            '
            'mnu1Filt
            '
            Me.mnu1Filt.Index = 2
            Me.mnu1Filt.Text = "Filters"
            '
            'mnu1View
            '
            Me.mnu1View.Index = 3
            Me.mnu1View.Text = "View"
            '
            'mnu1Dat
            '
            Me.mnu1Dat.Index = 4
            Me.mnu1Dat.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnu2Xml, Me.mnu2Css, Me.mnu2Html, Me.mnu2Js, Me.mnu2Flash, Me.mnu2Java, Me.mnu2Php})
            Me.mnu1Dat.Text = "Data"
            '
            'mnu2Xml
            '
            Me.mnu2Xml.Index = 0
            Me.mnu2Xml.Text = "Xml"
            '
            'mnu2Css
            '
            Me.mnu2Css.Index = 1
            Me.mnu2Css.Text = "Css"
            '
            'mnu2Html
            '
            Me.mnu2Html.Index = 2
            Me.mnu2Html.Text = "Html"
            '
            'mnu2Js
            '
            Me.mnu2Js.Index = 3
            Me.mnu2Js.Text = "Js"
            '
            'mnu2Flash
            '
            Me.mnu2Flash.Index = 4
            Me.mnu2Flash.Text = "Flash"
            '
            'mnu2Java
            '
            Me.mnu2Java.Index = 5
            Me.mnu2Java.Text = "Java"
            '
            'mnu2Php
            '
            Me.mnu2Php.Index = 6
            Me.mnu2Php.Text = "Php"
            '
            'mnu1Chat
            '
            Me.mnu1Chat.Index = 5
            Me.mnu1Chat.Text = "Chat"
            '
            'btnClose
            '
            Me.btnClose.BackColor = System.Drawing.Color.LightGray
            Me.btnClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
            Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnClose.Location = New System.Drawing.Point(672, 488)
            Me.btnClose.Name = "btnClose"
            Me.btnClose.Size = New System.Drawing.Size(112, 24)
            Me.btnClose.TabIndex = 0
            Me.btnClose.Text = "&Close"
            '
            'tabControls
            '
            Me.tabControls.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
            Me.tabControls.Controls.Add(Me.tab3)
            Me.tabControls.Controls.Add(Me.tab0)
            Me.tabControls.Controls.Add(Me.tab1)
            Me.tabControls.Controls.Add(Me.tab4)
            Me.tabControls.Controls.Add(Me.tab5)
            Me.tabControls.Controls.Add(Me.tab6)
            Me.tabControls.Location = New System.Drawing.Point(8, 424)
            Me.tabControls.Name = "tabControls"
            Me.tabControls.SelectedIndex = 0
            Me.tabControls.Size = New System.Drawing.Size(648, 120)
            Me.tabControls.TabIndex = 2
            '
            'tab3
            '
            Me.tab3.BackColor = System.Drawing.Color.DimGray
            Me.tab3.Controls.Add(Me.chkProx)
            Me.tab3.Controls.Add(Me.btnFav)
            Me.tab3.Controls.Add(Me.btnPrint)
            Me.tab3.Controls.Add(Me.btnHome)
            Me.tab3.Controls.Add(Me.btnRefresh)
            Me.tab3.Controls.Add(Me.btnForward)
            Me.tab3.Controls.Add(Me.btnBack)
            Me.tab3.Controls.Add(Me.btnLoc)
            Me.tab3.Controls.Add(Me.lblLoc)
            Me.tab3.Controls.Add(Me.txtLocation)
            Me.tab3.Location = New System.Drawing.Point(4, 25)
            Me.tab3.Name = "tab3"
            Me.tab3.Size = New System.Drawing.Size(640, 91)
            Me.tab3.TabIndex = 3
            Me.tab3.Text = "Browser"
            '
            'chkProx
            '
            Me.chkProx.Checked = True
            Me.chkProx.CheckState = System.Windows.Forms.CheckState.Checked
            Me.chkProx.ForeColor = System.Drawing.Color.White
            Me.chkProx.Location = New System.Drawing.Point(408, 32)
            Me.chkProx.Name = "chkProx"
            Me.chkProx.TabIndex = 9
            Me.chkProx.Text = "Use Proxy"
            '
            'btnFav
            '
            Me.btnFav.BackColor = System.Drawing.Color.LightGray
            Me.btnFav.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnFav.Location = New System.Drawing.Point(568, 64)
            Me.btnFav.Name = "btnFav"
            Me.btnFav.Size = New System.Drawing.Size(64, 20)
            Me.btnFav.TabIndex = 8
            Me.btnFav.Text = "Fa&vorites"
            '
            'btnPrint
            '
            Me.btnPrint.BackColor = System.Drawing.Color.LightGray
            Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnPrint.Location = New System.Drawing.Point(568, 40)
            Me.btnPrint.Name = "btnPrint"
            Me.btnPrint.Size = New System.Drawing.Size(64, 20)
            Me.btnPrint.TabIndex = 7
            Me.btnPrint.Text = "&Print"
            '
            'btnHome
            '
            Me.btnHome.BackColor = System.Drawing.Color.LightGray
            Me.btnHome.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnHome.Location = New System.Drawing.Point(568, 16)
            Me.btnHome.Name = "btnHome"
            Me.btnHome.Size = New System.Drawing.Size(64, 20)
            Me.btnHome.TabIndex = 6
            Me.btnHome.Text = "&Home"
            '
            'btnRefresh
            '
            Me.btnRefresh.BackColor = System.Drawing.Color.LightGray
            Me.btnRefresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnRefresh.Location = New System.Drawing.Point(120, 48)
            Me.btnRefresh.Name = "btnRefresh"
            Me.btnRefresh.Size = New System.Drawing.Size(112, 20)
            Me.btnRefresh.TabIndex = 5
            Me.btnRefresh.Text = "&Refresh"
            '
            'btnForward
            '
            Me.btnForward.BackColor = System.Drawing.Color.LightGray
            Me.btnForward.Enabled = False
            Me.btnForward.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnForward.Location = New System.Drawing.Point(232, 48)
            Me.btnForward.Name = "btnForward"
            Me.btnForward.Size = New System.Drawing.Size(104, 20)
            Me.btnForward.TabIndex = 4
            Me.btnForward.Text = "&Forward"
            '
            'btnBack
            '
            Me.btnBack.BackColor = System.Drawing.Color.LightGray
            Me.btnBack.Enabled = False
            Me.btnBack.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnBack.Location = New System.Drawing.Point(16, 48)
            Me.btnBack.Name = "btnBack"
            Me.btnBack.Size = New System.Drawing.Size(104, 20)
            Me.btnBack.TabIndex = 3
            Me.btnBack.Text = "&Back"
            '
            'btnLoc
            '
            Me.btnLoc.BackColor = System.Drawing.Color.LightGray
            Me.btnLoc.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnLoc.Location = New System.Drawing.Point(344, 24)
            Me.btnLoc.Name = "btnLoc"
            Me.btnLoc.Size = New System.Drawing.Size(48, 40)
            Me.btnLoc.TabIndex = 2
            Me.btnLoc.Text = "&Go"
            '
            'lblLoc
            '
            Me.lblLoc.ForeColor = System.Drawing.Color.White
            Me.lblLoc.Location = New System.Drawing.Point(24, 8)
            Me.lblLoc.Name = "lblLoc"
            Me.lblLoc.Size = New System.Drawing.Size(88, 16)
            Me.lblLoc.TabIndex = 0
            Me.lblLoc.Text = "&Location"
            Me.lblLoc.TextAlign = System.Drawing.ContentAlignment.BottomLeft
            '
            'txtLocation
            '
            Me.txtLocation.BackColor = System.Drawing.Color.LightGray
            Me.txtLocation.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtLocation.Location = New System.Drawing.Point(16, 24)
            Me.txtLocation.Name = "txtLocation"
            Me.txtLocation.Size = New System.Drawing.Size(320, 20)
            Me.txtLocation.TabIndex = 1
            Me.txtLocation.Text = ""
            '
            'tab0
            '
            Me.tab0.BackColor = System.Drawing.Color.DimGray
            Me.tab0.Location = New System.Drawing.Point(4, 25)
            Me.tab0.Name = "tab0"
            Me.tab0.Size = New System.Drawing.Size(640, 91)
            Me.tab0.TabIndex = 0
            Me.tab0.Text = "Edit"
            '
            'tab1
            '
            Me.tab1.BackColor = System.Drawing.Color.DimGray
            Me.tab1.Controls.Add(Me.btnDelHis)
            Me.tab1.Controls.Add(Me.lbHist)
            Me.tab1.Controls.Add(Me.lstLogs)
            Me.tab1.Location = New System.Drawing.Point(4, 25)
            Me.tab1.Name = "tab1"
            Me.tab1.Size = New System.Drawing.Size(640, 91)
            Me.tab1.TabIndex = 2
            Me.tab1.Text = "Logs"
            '
            'btnDelHis
            '
            Me.btnDelHis.BackColor = System.Drawing.Color.LightGray
            Me.btnDelHis.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnDelHis.Location = New System.Drawing.Point(320, 24)
            Me.btnDelHis.Name = "btnDelHis"
            Me.btnDelHis.Size = New System.Drawing.Size(48, 24)
            Me.btnDelHis.TabIndex = 6
            Me.btnDelHis.Text = "&Clear"
            '
            'lbHist
            '
            Me.lbHist.ForeColor = System.Drawing.Color.White
            Me.lbHist.Location = New System.Drawing.Point(24, 8)
            Me.lbHist.Name = "lbHist"
            Me.lbHist.Size = New System.Drawing.Size(88, 16)
            Me.lbHist.TabIndex = 2
            Me.lbHist.Text = "&History"
            Me.lbHist.TextAlign = System.Drawing.ContentAlignment.BottomLeft
            '
            'lstLogs
            '
            Me.lstLogs.BackColor = System.Drawing.Color.LightGray
            Me.lstLogs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.lstLogs.Location = New System.Drawing.Point(16, 24)
            Me.lstLogs.Name = "lstLogs"
            Me.lstLogs.Size = New System.Drawing.Size(296, 54)
            Me.lstLogs.TabIndex = 0
            '
            'tab4
            '
            Me.tab4.BackColor = System.Drawing.Color.DimGray
            Me.tab4.Controls.Add(Me.btnSGame1)
            Me.tab4.Controls.Add(Me.lblSimple)
            Me.tab4.Controls.Add(Me.lblRts)
            Me.tab4.Controls.Add(Me.lblsde)
            Me.tab4.Controls.Add(Me.btnRTSGame2)
            Me.tab4.Controls.Add(Me.btnSSGame1)
            Me.tab4.Location = New System.Drawing.Point(4, 25)
            Me.tab4.Name = "tab4"
            Me.tab4.Size = New System.Drawing.Size(640, 91)
            Me.tab4.TabIndex = 4
            Me.tab4.Text = "Games"
            '
            'btnSGame1
            '
            Me.btnSGame1.BackColor = System.Drawing.Color.LightGray
            Me.btnSGame1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnSGame1.Location = New System.Drawing.Point(344, 32)
            Me.btnSGame1.Name = "btnSGame1"
            Me.btnSGame1.Size = New System.Drawing.Size(120, 20)
            Me.btnSGame1.TabIndex = 9
            Me.btnSGame1.Text = "Pong"
            '
            'lblSimple
            '
            Me.lblSimple.ForeColor = System.Drawing.Color.White
            Me.lblSimple.Location = New System.Drawing.Point(352, 8)
            Me.lblSimple.Name = "lblSimple"
            Me.lblSimple.Size = New System.Drawing.Size(112, 16)
            Me.lblSimple.TabIndex = 8
            Me.lblSimple.Text = "Simple :"
            Me.lblSimple.TextAlign = System.Drawing.ContentAlignment.BottomLeft
            '
            'lblRts
            '
            Me.lblRts.ForeColor = System.Drawing.Color.White
            Me.lblRts.Location = New System.Drawing.Point(184, 8)
            Me.lblRts.Name = "lblRts"
            Me.lblRts.Size = New System.Drawing.Size(112, 16)
            Me.lblRts.TabIndex = 7
            Me.lblRts.Text = "Real Time Strategy :"
            Me.lblRts.TextAlign = System.Drawing.ContentAlignment.BottomLeft
            '
            'lblsde
            '
            Me.lblsde.ForeColor = System.Drawing.Color.White
            Me.lblsde.Location = New System.Drawing.Point(24, 8)
            Me.lblsde.Name = "lblsde"
            Me.lblsde.Size = New System.Drawing.Size(88, 16)
            Me.lblsde.TabIndex = 6
            Me.lblsde.Text = "Side Scrolling :"
            Me.lblsde.TextAlign = System.Drawing.ContentAlignment.BottomLeft
            '
            'btnRTSGame2
            '
            Me.btnRTSGame2.BackColor = System.Drawing.Color.LightGray
            Me.btnRTSGame2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnRTSGame2.Location = New System.Drawing.Point(176, 32)
            Me.btnRTSGame2.Name = "btnRTSGame2"
            Me.btnRTSGame2.Size = New System.Drawing.Size(120, 20)
            Me.btnRTSGame2.TabIndex = 5
            Me.btnRTSGame2.Text = "Starcraft"
            '
            'btnSSGame1
            '
            Me.btnSSGame1.BackColor = System.Drawing.Color.LightGray
            Me.btnSSGame1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnSSGame1.Location = New System.Drawing.Point(16, 32)
            Me.btnSSGame1.Name = "btnSSGame1"
            Me.btnSSGame1.Size = New System.Drawing.Size(120, 20)
            Me.btnSSGame1.TabIndex = 4
            Me.btnSSGame1.Text = "Gundam Wing"
            '
            'tab5
            '
            Me.tab5.BackColor = System.Drawing.Color.DimGray
            Me.tab5.Location = New System.Drawing.Point(4, 25)
            Me.tab5.Name = "tab5"
            Me.tab5.Size = New System.Drawing.Size(640, 91)
            Me.tab5.TabIndex = 5
            Me.tab5.Text = "Music"
            '
            'tab6
            '
            Me.tab6.BackColor = System.Drawing.Color.DimGray
            Me.tab6.Location = New System.Drawing.Point(4, 25)
            Me.tab6.Name = "tab6"
            Me.tab6.Size = New System.Drawing.Size(640, 91)
            Me.tab6.TabIndex = 6
            Me.tab6.Text = "Calender"
            '
            'btnCnt
            '
            Me.btnCnt.BackColor = System.Drawing.Color.LightGray
            Me.btnCnt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnCnt.Location = New System.Drawing.Point(672, 456)
            Me.btnCnt.Name = "btnCnt"
            Me.btnCnt.Size = New System.Drawing.Size(112, 24)
            Me.btnCnt.TabIndex = 3
            Me.btnCnt.Text = "C&onnect"
            '
            'btnGoogle
            '
            Me.btnGoogle.BackColor = System.Drawing.Color.LightGray
            Me.btnGoogle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnGoogle.Location = New System.Drawing.Point(672, 424)
            Me.btnGoogle.Name = "btnGoogle"
            Me.btnGoogle.Size = New System.Drawing.Size(112, 24)
            Me.btnGoogle.TabIndex = 5
            Me.btnGoogle.Text = "&Search"
            '
            'grpMain
            '
            Me.grpMain.BackColor = System.Drawing.Color.Transparent
            Me.grpMain.Controls.Add(Me.brsrHolder)
            Me.grpMain.Font = New System.Drawing.Font("Tahoma", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.grpMain.ForeColor = System.Drawing.Color.White
            Me.grpMain.ImeMode = System.Windows.Forms.ImeMode.NoControl
            Me.grpMain.Location = New System.Drawing.Point(8, 16)
            Me.grpMain.Name = "grpMain"
            Me.grpMain.Size = New System.Drawing.Size(776, 400)
            Me.grpMain.TabIndex = 6
            Me.grpMain.TabStop = False
            Me.grpMain.Text = "SingleParadox Command"
            '
            'brsrHolder
            '
            Me.brsrHolder.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
            Me.brsrHolder.Controls.Add(Me.tabBr1)
            Me.brsrHolder.Controls.Add(Me.tabBr3)
            Me.brsrHolder.Controls.Add(Me.tabBr2)
            Me.brsrHolder.Controls.Add(Me.tabBr4)
            Me.brsrHolder.Controls.Add(Me.tabBr5)
            Me.brsrHolder.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.brsrHolder.ImeMode = System.Windows.Forms.ImeMode.NoControl
            Me.brsrHolder.Location = New System.Drawing.Point(8, 24)
            Me.brsrHolder.Name = "brsrHolder"
            Me.brsrHolder.SelectedIndex = 0
            Me.brsrHolder.Size = New System.Drawing.Size(760, 368)
            Me.brsrHolder.TabIndex = 1
            '
            'tabBr1
            '
            Me.tabBr1.BackColor = System.Drawing.Color.Black
            Me.tabBr1.Controls.Add(Me.brsrCmmd)
            Me.tabBr1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.tabBr1.Location = New System.Drawing.Point(4, 25)
            Me.tabBr1.Name = "tabBr1"
            Me.tabBr1.Size = New System.Drawing.Size(752, 339)
            Me.tabBr1.TabIndex = 0
            Me.tabBr1.Text = "Browser"
            '
            'brsrCmmd
            '
            Me.brsrCmmd.ContainingControl = Me
            Me.brsrCmmd.Enabled = True
            Me.brsrCmmd.Location = New System.Drawing.Point(0, 0)
            Me.brsrCmmd.OcxState = CType(resources.GetObject("brsrCmmd.OcxState"), System.Windows.Forms.AxHost.State)
            Me.brsrCmmd.Size = New System.Drawing.Size(752, 340)
            Me.brsrCmmd.TabIndex = 0
            '
            'tabBr3
            '
            Me.tabBr3.Controls.Add(Me.brsrEmail)
            Me.tabBr3.Location = New System.Drawing.Point(4, 25)
            Me.tabBr3.Name = "tabBr3"
            Me.tabBr3.Size = New System.Drawing.Size(752, 339)
            Me.tabBr3.TabIndex = 2
            Me.tabBr3.Text = "Email"
            '
            'brsrEmail
            '
            Me.brsrEmail.ContainingControl = Me
            Me.brsrEmail.Enabled = True
            Me.brsrEmail.Location = New System.Drawing.Point(0, -1)
            Me.brsrEmail.OcxState = CType(resources.GetObject("brsrEmail.OcxState"), System.Windows.Forms.AxHost.State)
            Me.brsrEmail.Size = New System.Drawing.Size(752, 340)
            Me.brsrEmail.TabIndex = 1
            '
            'tabBr2
            '
            Me.tabBr2.Controls.Add(Me.btnOpNtpad)
            Me.tabBr2.Controls.Add(Me.btnOpSrc)
            Me.tabBr2.Controls.Add(Me.lstSrc)
            Me.tabBr2.Location = New System.Drawing.Point(4, 25)
            Me.tabBr2.Name = "tabBr2"
            Me.tabBr2.Size = New System.Drawing.Size(752, 339)
            Me.tabBr2.TabIndex = 1
            Me.tabBr2.Text = "Source"
            '
            'btnOpNtpad
            '
            Me.btnOpNtpad.BackColor = System.Drawing.Color.LightGray
            Me.btnOpNtpad.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnOpNtpad.ForeColor = System.Drawing.Color.Black
            Me.btnOpNtpad.Location = New System.Drawing.Point(144, 312)
            Me.btnOpNtpad.Name = "btnOpNtpad"
            Me.btnOpNtpad.Size = New System.Drawing.Size(120, 20)
            Me.btnOpNtpad.TabIndex = 7
            Me.btnOpNtpad.Text = "Open Notepad"
            '
            'btnOpSrc
            '
            Me.btnOpSrc.BackColor = System.Drawing.Color.LightGray
            Me.btnOpSrc.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnOpSrc.ForeColor = System.Drawing.Color.Black
            Me.btnOpSrc.Location = New System.Drawing.Point(8, 312)
            Me.btnOpSrc.Name = "btnOpSrc"
            Me.btnOpSrc.Size = New System.Drawing.Size(120, 20)
            Me.btnOpSrc.TabIndex = 6
            Me.btnOpSrc.Text = "Copy to Clipboard"
            '
            'lstSrc
            '
            Me.lstSrc.BackColor = System.Drawing.Color.LightGray
            Me.lstSrc.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.lstSrc.Location = New System.Drawing.Point(0, 0)
            Me.lstSrc.Name = "lstSrc"
            Me.lstSrc.Size = New System.Drawing.Size(752, 301)
            Me.lstSrc.TabIndex = 1
            '
            'tabBr4
            '
            Me.tabBr4.Controls.Add(Me.btnPrcTsk)
            Me.tabBr4.Controls.Add(Me.btnCalc)
            Me.tabBr4.Controls.Add(Me.lstDriveChange)
            Me.tabBr4.Controls.Add(Me.btnCMD)
            Me.tabBr4.Controls.Add(Me.btnControl)
            Me.tabBr4.Controls.Add(Me.btnForward2)
            Me.tabBr4.Controls.Add(Me.btnRefresh2)
            Me.tabBr4.Controls.Add(Me.btnBack2)
            Me.tabBr4.Controls.Add(Me.brsrDrive)
            Me.tabBr4.Location = New System.Drawing.Point(4, 25)
            Me.tabBr4.Name = "tabBr4"
            Me.tabBr4.Size = New System.Drawing.Size(752, 339)
            Me.tabBr4.TabIndex = 3
            Me.tabBr4.Text = "C:\ Drive"
            '
            'btnCalc
            '
            Me.btnCalc.BackColor = System.Drawing.Color.LightGray
            Me.btnCalc.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnCalc.ForeColor = System.Drawing.Color.Black
            Me.btnCalc.Location = New System.Drawing.Point(440, 312)
            Me.btnCalc.Name = "btnCalc"
            Me.btnCalc.Size = New System.Drawing.Size(64, 20)
            Me.btnCalc.TabIndex = 11
            Me.btnCalc.Text = "Calculator"
            '
            'lstDriveChange
            '
            Me.lstDriveChange.BackColor = System.Drawing.Color.LightGray
            Me.lstDriveChange.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.lstDriveChange.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.lstDriveChange.ItemHeight = 14
            Me.lstDriveChange.Items.AddRange(New Object() {"C:\", "F:\", "G:\"})
            Me.lstDriveChange.Location = New System.Drawing.Point(632, 312)
            Me.lstDriveChange.Name = "lstDriveChange"
            Me.lstDriveChange.Size = New System.Drawing.Size(104, 16)
            Me.lstDriveChange.TabIndex = 10
            '
            'btnCMD
            '
            Me.btnCMD.BackColor = System.Drawing.Color.LightGray
            Me.btnCMD.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnCMD.ForeColor = System.Drawing.Color.Black
            Me.btnCMD.Location = New System.Drawing.Point(328, 312)
            Me.btnCMD.Name = "btnCMD"
            Me.btnCMD.Size = New System.Drawing.Size(104, 20)
            Me.btnCMD.TabIndex = 9
            Me.btnCMD.Text = "Command Prompt"
            '
            'btnControl
            '
            Me.btnControl.BackColor = System.Drawing.Color.LightGray
            Me.btnControl.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnControl.ForeColor = System.Drawing.Color.Black
            Me.btnControl.Location = New System.Drawing.Point(240, 312)
            Me.btnControl.Name = "btnControl"
            Me.btnControl.Size = New System.Drawing.Size(80, 20)
            Me.btnControl.TabIndex = 8
            Me.btnControl.Text = "Control &Panel"
            '
            'btnForward2
            '
            Me.btnForward2.BackColor = System.Drawing.Color.LightGray
            Me.btnForward2.Enabled = False
            Me.btnForward2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnForward2.ForeColor = System.Drawing.Color.Black
            Me.btnForward2.Location = New System.Drawing.Point(168, 312)
            Me.btnForward2.Name = "btnForward2"
            Me.btnForward2.Size = New System.Drawing.Size(64, 20)
            Me.btnForward2.TabIndex = 7
            Me.btnForward2.Text = "&Forward"
            '
            'btnRefresh2
            '
            Me.btnRefresh2.BackColor = System.Drawing.Color.LightGray
            Me.btnRefresh2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnRefresh2.ForeColor = System.Drawing.Color.Black
            Me.btnRefresh2.Location = New System.Drawing.Point(96, 312)
            Me.btnRefresh2.Name = "btnRefresh2"
            Me.btnRefresh2.Size = New System.Drawing.Size(64, 20)
            Me.btnRefresh2.TabIndex = 6
            Me.btnRefresh2.Text = "&Refresh"
            '
            'btnBack2
            '
            Me.btnBack2.BackColor = System.Drawing.Color.LightGray
            Me.btnBack2.Enabled = False
            Me.btnBack2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnBack2.ForeColor = System.Drawing.Color.Black
            Me.btnBack2.Location = New System.Drawing.Point(16, 312)
            Me.btnBack2.Name = "btnBack2"
            Me.btnBack2.Size = New System.Drawing.Size(72, 20)
            Me.btnBack2.TabIndex = 4
            Me.btnBack2.Text = "&Back"
            '
            'brsrDrive
            '
            Me.brsrDrive.ContainingControl = Me
            Me.brsrDrive.Enabled = True
            Me.brsrDrive.Location = New System.Drawing.Point(0, 0)
            Me.brsrDrive.OcxState = CType(resources.GetObject("brsrDrive.OcxState"), System.Windows.Forms.AxHost.State)
            Me.brsrDrive.Size = New System.Drawing.Size(752, 304)
            Me.brsrDrive.TabIndex = 1
            '
            'tabBr5
            '
            Me.tabBr5.Controls.Add(Me.brsrChat)
            Me.tabBr5.Location = New System.Drawing.Point(4, 25)
            Me.tabBr5.Name = "tabBr5"
            Me.tabBr5.Size = New System.Drawing.Size(752, 339)
            Me.tabBr5.TabIndex = 4
            Me.tabBr5.Text = "Chat"
            '
            'brsrChat
            '
            Me.brsrChat.ContainingControl = Me
            Me.brsrChat.Enabled = True
            Me.brsrChat.Location = New System.Drawing.Point(0, -1)
            Me.brsrChat.OcxState = CType(resources.GetObject("brsrChat.OcxState"), System.Windows.Forms.AxHost.State)
            Me.brsrChat.Size = New System.Drawing.Size(752, 340)
            Me.brsrChat.TabIndex = 1
            '
            'btnHideShow
            '
            Me.btnHideShow.BackColor = System.Drawing.Color.LightGray
            Me.btnHideShow.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnHideShow.Location = New System.Drawing.Point(672, 520)
            Me.btnHideShow.Name = "btnHideShow"
            Me.btnHideShow.Size = New System.Drawing.Size(112, 24)
            Me.btnHideShow.TabIndex = 7
            Me.btnHideShow.Text = "&Hide"
            '
            'btnPrcTsk
            '
            Me.btnPrcTsk.BackColor = System.Drawing.Color.LightGray
            Me.btnPrcTsk.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnPrcTsk.ForeColor = System.Drawing.Color.Black
            Me.btnPrcTsk.Location = New System.Drawing.Point(512, 312)
            Me.btnPrcTsk.Name = "btnPrcTsk"
            Me.btnPrcTsk.Size = New System.Drawing.Size(72, 20)
            Me.btnPrcTsk.TabIndex = 12
            Me.btnPrcTsk.Text = "View Tasks"
            '
            'frmSP
            '
            Me.AcceptButton = Me.btnLoc
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            Me.BackColor = System.Drawing.Color.SlateGray
            Me.CancelButton = Me.btnClose
            Me.ClientSize = New System.Drawing.Size(794, 555)
            Me.Controls.Add(Me.btnHideShow)
            Me.Controls.Add(Me.grpMain)
            Me.Controls.Add(Me.btnGoogle)
            Me.Controls.Add(Me.btnCnt)
            Me.Controls.Add(Me.tabControls)
            Me.Controls.Add(Me.btnClose)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
            Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
            Me.Location = New System.Drawing.Point(100, 100)
            Me.MaximizeBox = False
            Me.Menu = Me.mnuMain
            Me.MinimizeBox = False
            Me.Name = "frmSP"
            Me.RightToLeft = System.Windows.Forms.RightToLeft.No
            Me.ShowInTaskbar = False
            Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
            Me.Text = ".: SingleParadox"
            Me.TopMost = True
            Me.TransparencyKey = System.Drawing.Color.LightPink
            Me.tabControls.ResumeLayout(False)
            Me.tab3.ResumeLayout(False)
            Me.tab1.ResumeLayout(False)
            Me.tab4.ResumeLayout(False)
            Me.grpMain.ResumeLayout(False)
            Me.brsrHolder.ResumeLayout(False)
            Me.tabBr1.ResumeLayout(False)
            CType(Me.brsrCmmd, System.ComponentModel.ISupportInitialize).EndInit()
            Me.tabBr3.ResumeLayout(False)
            CType(Me.brsrEmail, System.ComponentModel.ISupportInitialize).EndInit()
            Me.tabBr2.ResumeLayout(False)
            Me.tabBr4.ResumeLayout(False)
            CType(Me.brsrDrive, System.ComponentModel.ISupportInitialize).EndInit()
            Me.tabBr5.ResumeLayout(False)
            CType(Me.brsrChat, System.ComponentModel.ISupportInitialize).EndInit()
            Me.ResumeLayout(False)
    
        End Sub
    
    #End Region
    
    
        Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
            Me.Close()
        End Sub
    
        Private Sub mnu2Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu2Close.Click
            Me.Close()
        End Sub
    
        Private Sub btnCnt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCnt.Click
            Shell("SP_Login.exe", AppWinStyle.NormalFocus, True)
        End Sub
    
        Private Sub frmSP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.brsrCmmd.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/000100A/http://singleparadox.com")
            Me.brsrEmail.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/000100A/http://hotmail.com")
            Me.brsrDrive.Navigate("C:\")
            Me.brsrChat.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/000100A/http://singleparadox.com/brchat")
            Me.lstLogs.Items.Add("http://singleparadox.com")
        End Sub
    
        Private Sub btnLoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoc.Click
            Me.brsrHolder.SelectedTab = Me.tabBr1
            If Not Me.txtLocation.Text = "" Then
                If Me.chkProx.Checked Then
                    Me.brsrCmmd.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/000100A/" & Me.txtLocation.Text)
                Else
                    Me.brsrCmmd.Navigate(Me.txtLocation.Text)
                End If
                Me.lstLogs.Items.Add(Me.txtLocation.Text)
                Me.lstLogs.SelectedIndex = "0"
            Else
                MessageBox.Show("Please enter a valid URL.", "SP Command")
            End If
        End Sub
    
        Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
            Me.brsrCmmd.GoBack()
            Me.brsrCmmd.Focus()
        End Sub
    
        Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click
            Me.brsrCmmd.GoForward()
            Me.brsrCmmd.Focus()
        End Sub
    
        Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
            Me.brsrCmmd.Refresh()
            Me.brsrCmmd.Focus()
        End Sub
    
        Private Sub lstLogs_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstLogs.DoubleClick
            Me.brsrCmmd.Navigate(Me.lstLogs.SelectedItem)
        End Sub
    
        Private Sub btnDelHis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelHis.Click
            Me.lstLogs.Items.Clear()
        End Sub
    
        Private Sub btnGame1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSSGame1.Click
            Me.brsrCmmd.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/001100A/http://singleparadox.com/games/gundam")
            Me.lstLogs.Items.Add("http://singleparadox.com/games/gundam")
            Me.brsrCmmd.Focus()
        End Sub
    
        Private Sub btnGame2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRTSGame2.Click
            Me.brsrCmmd.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/001100A/http://singleparadox.com/games/starcraft")
            Me.lstLogs.Items.Add("http://singleparadox.com/games/starcraft")
            Me.brsrCmmd.Focus()
        End Sub
    
        Private Sub btnSGame1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSGame1.Click
            Me.brsrCmmd.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/001100A/http/dynamicdrive.com/dynamicindex12/pong/pong.htm")
            Me.lstLogs.Items.Add("http://dynamicdrive.com/dynamicindex12/pong/pong.htm")
            Me.brsrCmmd.Focus()
        End Sub
    
        Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
    
        End Sub
    
        Private Sub btnHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHome.Click
            Me.brsrCmmd.GoHome()
            Me.brsrCmmd.Focus()
        End Sub
    
        Private Sub btnBack2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack2.Click
            Me.brsrDrive.GoBack()
            Me.brsrDrive.Focus()
        End Sub
    
        Private Sub btnRefresh2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh2.Click
            Me.brsrDrive.Refresh()
            Me.brsrDrive.Focus()
        End Sub
    
        Private Sub btnForward2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward2.Click
            Me.brsrDrive.GoForward()
            Me.brsrDrive.Focus()
        End Sub
    
        Private Sub btnControl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnControl.Click
            HideShow()
            Shell("Control Panel", AppWinStyle.NormalFocus, True)
        End Sub
    
        Private Sub btnCMD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCMD.Click
            HideShow()
            Shell("CMD.exe", AppWinStyle.NormalFocus, True)
        End Sub
    
        Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
            HideShow()
            Shell("calc.exe", AppWinStyle.NormalFocus, True)
        End Sub
    
        Private Sub lstDriveChange_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstDriveChange.SelectedIndexChanged
            Me.brsrDrive.Navigate(Me.lstDriveChange.SelectedItem)
            Me.tabBr4.Text = Me.lstDriveChange.SelectedItem & " Drive"
        End Sub
    
        Private Sub btnHideShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHideShow.Click
            If Me.btnHideShow.Text = "&Hide" Then
                Me.btnHideShow.Text = "&Show"
                Me.Location = New System.Drawing.Point(-670, -560)
                Me.Opacity = 0.1
            Else
                Me.btnHideShow.Text = "&Hide"
                Me.Location = New System.Drawing.Point(100, 100)
                Me.Opacity = 1
            End If
        End Sub
    
        Private Sub btnOpNtpad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpNtpad.Click
            HideShow()
            Shell("notepad.exe", AppWinStyle.NormalFocus, True)
        End Sub
    
        Private Sub HideShow()
            Me.btnHideShow.Text = "&Show"
            Me.Location = New System.Drawing.Point(-670, -560)
            Me.Opacity = 0.1
        End Sub
    
        Private Sub btnPrcTsk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrcTsk.Click
            HideShow()
            Shell("SP_Process.exe", AppWinStyle.NormalFocus, True)
        End Sub
    End Class
    
     
  2. EriX920

    EriX920 FS Administrator

    I can't see it :(, the colors mess with me. Did you code this or did you borrow it from someone?
     
  3. WorldWarIII

    WorldWarIII [ Respected ]

    Changed colors :D

    I helped in development.
     
  4. EriX920

    EriX920 FS Administrator

    Why do you have me me me me me everywhere? You DON'T have to refer to yourself when your working on that form. Only use something before the control when using multiple forms such as:

    Form1:
    Code:
    Private Sub LoadSet()
         Text1.Text = "Var"
    End Sub
    Form2:
    Code:
    Private Sub GetValue()
         Textbox1.Text = Form1.Text1.Text
    End Sub
    I can see you were aiming for a secure browser, yes you can do it that way, however I suggestion doing something like this:

    Code:
    Private Sub Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Go.Click
         Navigate(txtLocation.Text)
    End Sub
    
    Private Sub Navigate(ByVal u As String)
         If SecureBrowsing.Checked Then
              brsrCmmd.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/001100A/" & u)
         Else
              brsrCmmd.Navigate(u)
         End If
         lstLogs.Items.Add(u)
    End Sub
    Then just do Navigate("http://www.google.com") and it should be good. The way I have it should only add the URL not the proxy thing as well.

    I'm trying to reduce your program size, it makes everything more efficent and makes people happy. I havn't put your code into a form yet but I can imagin what it looks like and what it does. You seem to have everything down, just do what I told you and it should be better.

    Also, if you want to call programs from the system32 dir you can do:
    Code:
    Imports System.Runtime.InteropServices
    Imports System.Text
    
    Public Class Test
      <DllImport("KERNEL32.DLL", EntryPoint:="GetSystemDirectoryW", _
           SetLastError:=True, CharSet:=CharSet.Unicode, _
           ExactSpelling:=True, _
           CallingConvention:=CallingConvention.StdCall)> _
           Public Shared Function GetSystemDirectory(ByVal Buffer _
             As StringBuilder, ByVal Size As Integer) As Long
        End Function
        Public Const MAX_PATH As Integer = 256
    
        Private Sub btnOpNtpad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpNtpad.Click
            Dim s As New StringBuilder(MAX_PATH)
            GetSystemDirectory(s, MAX_PATH)
            Shell(s.ToString() &"/notepad.exe", AppWinStyle.NormalFocus, True)
        End Sub
    End Class
    Ima crazy kid!
     
  5. WorldWarIII

    WorldWarIII [ Respected ]

    I only helped with this at times, otherwise the coding is all my buddies.
     
  6. Krzywy

    Krzywy Moderator

    Is't that was a "quest" for application dude ??
     

Share This Page

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice