Web Brower - vB.Net 2k3

WorldWarIII

[ Respected ]
Nov 7, 2006
3,358
6
38
United States
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
 

EriX920

Respected
Apr 12, 2007
885
3
18
I can't see it :(, the colors mess with me. Did you code this or did you borrow it from someone?
 

EriX920

Respected
Apr 12, 2007
885
3
18
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!