#112731 - 2004-01-29 08:47 AM
Post Prep size posting limitations
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11634
Loc: Space
Glenn - just an FYI, I took the code that you modified and it has 2 limitations. 1. It will not allow me to paste a 120K KiX file into the top portion. It cuts it off long before that. 2. Even using only the portion that was pasted into the top and clicking on the convert button gives me an out of bounds error and quits. Using the "semi oem" code from Lonkero (I've modified mine to use tables for borders and remove the invalid characters) but otherwise is still the code from Lonkero. I also added the 2 lines that I mentioned herehttp://www.kixtart.org/ubbthreads/showflat.php?Cat=&Board=UBB2&Number=111485 $txtSource.MaxLength = 0 $txtTarget.MaxLength = 0 The conversion works fine, but it will give a STACK OVERFLOW exception and quit if I try to Preview it. If I just copy the converted code and post it to KORG it works fine. One LONG post that does not need to be broken into multiple posts.
Top
#112732 - 2004-01-29 09:12 AM
Re: Post Prep size posting limitations
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11634
Loc: Space
Okay, here is Radimus' Inquisitor2 code that I copy/pasted 3 times into the PostPrep editor and then posted here on Korg. It contains the following: Time to convert on PIII 933/512MB RAM = 38.2 Sec Functions = 468 Commands = 492 Macros = 96 and takes up almost 7,500 lines of code in html format. Break On ;********* FORM CREATE BEGIN ********** $Form = CreateObject ('Kixtart.Form' )$Form.BackColor = 212 ,208 ,200 $Form.ControlBox = "True" $Form.DrawGrid = "True" $Form.FontBold = "False" $Form.FontItalic = "False" $Form.FontName = "Microsoft Sans Serif" $Form.FontSize = 8.25 $Form.FontUnderline = "False" $Form.ForeColor = 0 ,0 ,0 $Form.FormBorderStyle = 3 $Form.Height = 580 $Form.Left = 11 $Form.MaximizeBox = "False" $Form.MinimizeBox = "False" $Form.SizeGripStyle = 2 $Form.StartPosition = 4 $Form.Tag = "" $Form.Text = "Inquisitor2 Console" $Form.Top = 3 $Form.ToolTipText = "" $Form.TopMost = "False" $Form.Width = 800 $Form.WindowState = 0 ;********* FORM CREATE END ********** ;************* TARGETBOX ************** $TargetBox = $Form.Controls.GroupBox $TargetBox.Anchor = 5 $TargetBox.BackColor = 212 ,208 ,200 $TargetBox.Enabled = "True" $TargetBox.FlatStyle = 2 $TargetBox.FontBold = "False" $TargetBox.FontItalic = "False" $TargetBox.FontName = "Microsoft Sans Serif" $TargetBox.FontSize = 8.25 $TargetBox.FontUnderline = "False" $TargetBox.ForeColor = 0 ,0 ,0 $TargetBox.Height = 130 $TargetBox.Left = 13 $TargetBox.Tag = "" $TargetBox.Text = "Target" $TargetBox.Top = 10 $TargetBox.Visible = "True" $TargetBox.Width = 129 ;************************************* ;************* RADIOBUTTON1 ************** $RadioButton1 = $TargetBox.Controls.RadioButton $RadioButton1.Anchor = 5 $RadioButton1.BackColor = 212 ,208 ,200 $RadioButton1.Checked = "True" $RadioButton1.Enabled = "True" $RadioButton1.FlatStyle = 2 $RadioButton1.ForeColor = 0 ,0 ,0 $RadioButton1.Height = 21 $RadioButton1.FontBold = "False" $RadioButton1.FontItalic = "False" $RadioButton1.FontName = "Microsoft Sans Serif" $RadioButton1.FontSize = 8.25 $RadioButton1.FontUnderline = "False" $RadioButton1.Left = 15 $RadioButton1.TabStop = "True" $RadioButton1.Tag = "" $RadioButton1.Text = "Computer Name or IP Address" $RadioButton1.Top = 15 $RadioButton1.Visible = "True" $RadioButton1.Width = 98 ;************************************* ;************* RADIOBUTTON2 ************** $RadioButton2 = $TargetBox.Controls.RadioButton $RadioButton2.Anchor = 5 $RadioButton2.BackColor = 212 ,208 ,200 $RadioButton2.Checked = "False" $RadioButton2.Enabled = "True" $RadioButton2.FlatStyle = 2 $RadioButton2.ForeColor = 0 ,0 ,0 $RadioButton2.Height = 21 $RadioButton2.FontBold = "False" $RadioButton2.FontItalic = "False" $RadioButton2.FontName = "Microsoft Sans Serif" $RadioButton2.FontSize = 8.25 $RadioButton2.FontUnderline = "False" $RadioButton2.Left = 15 $RadioButton2.TabStop = "False" $RadioButton2.Tag = "" $RadioButton2.Text = "User Name" $RadioButton2.Top = 35 $RadioButton2.Visible = "True" $RadioButton2.Width = 108 ;************************************* ;************* TEXTBOX2 ************** $TextBox2 = $TargetBox.Controls.TextBox $TextBox2.Anchor = 5 $TextBox2.AcceptsReturn = "False" $TextBox2.AcceptsTab = "False" $TextBox2.BackColor = 255 ,255 ,255 $TextBox2.BorderStyle = 2 $TextBox2.Enabled = "True" $TextBox2.FontBold = "False" $TextBox2.FontItalic = "False" $TextBox2.FontName = "Microsoft Sans Serif" $TextBox2.FontSize = 8.25 $TextBox2.FontUnderline = "False" $TextBox2.ForeColor = 0 ,0 ,0 $TextBox2.Height = 20 $TextBox2.HideSelection = "True" $TextBox2.Left = 15 $TextBox2.MaxLength = 32767 $TextBox2.Multiline = "False" $TextBox2.PasswordChar = "" $TextBox2.ReadOnly = "False" $TextBox2.ScrollBars = 0 $TextBox2.TabStop = "True" $TextBox2.Tag = "" $TextBox2.Text = "" $TextBox2.TextAlign = 0 $TextBox2.Top = 65 $TextBox2.Visible = "True" $TextBox2.Width = 100 $TextBox2.WordWrap = "False" ;************************************* ;************* CONNECTBUTTON ************** $ConnectButton = $TargetBox.Controls.Button $ConnectButton.Anchor = 5 $ConnectButton.TextAlign = 32 $ConnectButton.Enabled = "True" $ConnectButton.FlatStyle = 2 $ConnectButton.FontBold = "False" $ConnectButton.FontItalic = "False" $ConnectButton.FontName = "Microsoft Sans Serif" $ConnectButton.FontSize = 8.25 $ConnectButton.FontUnderline = "False" $ConnectButton.ForeColor = 0 ,0 ,0 $ConnectButton.Height = 24 $ConnectButton.Left = 15 $ConnectButton.TabStop = "True" $ConnectButton.Tag = "" $ConnectButton.Text = "Connect" $ConnectButton.ToolTipText = "" $ConnectButton.Top = 95 $ConnectButton.Visible = "True" $ConnectButton.Width = 101 $ConnectButton.onclic k = "ConnectClick()" ;************************************* ;************* TARGETDETAILSBOX ************** $TargetDetailsBox = $Form.Controls.GroupBox $TargetDetailsBox.Anchor = 5 $TargetDetailsBox.BackColor = 212 ,208 ,200 $TargetDetailsBox.Enabled = "True" $TargetDetailsBox.FlatStyle = 2 $TargetDetailsBox.FontBold = "False" $TargetDetailsBox.FontItalic = "False" $TargetDetailsBox.FontName = "Microsoft Sans Serif" $TargetDetailsBox.FontSize = 8.25 $TargetDetailsBox.FontUnderline = "False" $TargetDetailsBox.ForeColor = 0 ,0 ,0 $TargetDetailsBox.Height = 151 $TargetDetailsBox.Left = 13 $TargetDetailsBox.Tag = "" $TargetDetailsBox.Text = "Target Details" $TargetDetailsBox.Top = 150 $TargetDetailsBox.Visible = "True" $TargetDetailsBox.Width = 128 ;************************************* ;************* LABEL1 ************** $Label1 = $TargetDetailsBox.Controls.Label $Label1.Anchor = 5 $Label1.BackColor = 212 ,208 ,200 $Label1.BorderStyle = 0 $Label1.Enabled = "True" $Label1.FlatStyle = 2 $Label1.FontBold = "False" $Label1.FontItalic = "False" $Label1.FontName = "Microsoft Sans Serif" $Label1.FontSize = 8.25 $Label1.FontUnderline = "False" $Label1.ForeColor = 0 ,0 ,0 $Label1.Height = 15 $Label1.Left = 15 $Label1.Tag = "" $Label1.Text = "Computer Name" $Label1.ToolTipText = "" $Label1.Top = 15 $Label1.Visible = "True" $Label1.Width = 100 ;************************************* ;************* TEXTBOX4 ************** $TextBox4 = $TargetDetailsBox.Controls.TextBox $TextBox4.Anchor = 5 $TextBox4.AcceptsReturn = "False" $TextBox4.AcceptsTab = "False" $TextBox4.BackColor = 255 ,255 ,255 $TextBox4.BorderStyle = 1 $TextBox4.Enabled = "True" $TextBox4.FontBold = "False" $TextBox4.FontItalic = "False" $TextBox4.FontName = "Microsoft Sans Serif" $TextBox4.FontSize = 8.25 $TextBox4.FontUnderline = "False" $TextBox4.ForeColor = 0 ,0 ,0 $TextBox4.Height = 20 $TextBox4.HideSelection = "True" $TextBox4.Left = 15 $TextBox4.MaxLength = 32767 $TextBox4.Multiline = "False" $TextBox4.PasswordChar = "" $TextBox4.ReadOnly = "True" $TextBox4.ScrollBars = 0 $TextBox4.TabStop = "True" $TextBox4.Tag = "" $TextBox4.Text = "" $TextBox4.TextAlign = 0 $TextBox4.Top = 30 $TextBox4.Visible = "True" $TextBox4.Width = 100 $TextBox4.WordWrap = "True" ;************************************* ;************* LABEL2 ************** $Label2 = $TargetDetailsBox.Controls.Label $Label2.Anchor = 5 $Label2.BackColor = 212 ,208 ,200 $Label2.BorderStyle = 0 $Label2.Enabled = "True" $Label2.FlatStyle = 2 $Label2.FontBold = "False" $Label2.FontItalic = "False" $Label2.FontName = "Microsoft Sans Serif" $Label2.FontSize = 8.25 $Label2.FontUnderline = "False" $Label2.ForeColor = 0 ,0 ,0 $Label2.Height = 15 $Label2.Left = 15 $Label2.Tag = "" $Label2.Text = "User Name" $Label2.ToolTipText = "" $Label2.Top = 60 $Label2.Visible = "True" $Label2.Width = 100 ;************************************* ;************* TEXTBOX5 ************** $TextBox5 = $TargetDetailsBox.Controls.TextBox $TextBox5.Anchor = 5 $TextBox5.AcceptsReturn = "False" $TextBox5.AcceptsTab = "False" $TextBox5.BackColor = 255 ,255 ,255 $TextBox5.BorderStyle = 1 $TextBox5.Enabled = "True" $TextBox5.FontBold = "False" $TextBox5.FontItalic = "False" $TextBox5.FontName = "Microsoft Sans Serif" $TextBox5.FontSize = 8.25 $TextBox5.FontUnderline = "False" $TextBox5.ForeColor = 0 ,0 ,0 $TextBox5.Height = 20 $TextBox5.HideSelection = "True" $TextBox5.Left = 15 $TextBox5.MaxLength = 32767 $TextBox5.Multiline = "False" $TextBox5.PasswordChar = "" $TextBox5.ReadOnly = "True" $TextBox5.ScrollBars = 0 $TextBox5.TabStop = "True" $TextBox5.Tag = "" $TextBox5.Text = "" $TextBox5.TextAlign = 0 $TextBox5.Top = 75 $TextBox5.Visible = "True" $TextBox5.Width = 100 $TextBox5.WordWrap = "True" ;************************************* ;************* LABEL3 ************** $Label3 = $TargetDetailsBox.Controls.Label $Label3.Anchor = 5 $Label3.BackColor = 212 ,208 ,200 $Label3.BorderStyle = 0 $Label3.Enabled = "True" $Label3.FlatStyle = 2 $Label3.FontBold = "False" $Label3.FontItalic = "False" $Label3.FontName = "Microsoft Sans Serif" $Label3.FontSize = 8.25 $Label3.FontUnderline = "False" $Label3.ForeColor = 0 ,0 ,0 $Label3.Height = 15 $Label3.Left = 15 $Label3.Tag = "" $Label3.Text = "IP Address" $Label3.ToolTipText = "" $Label3.Top = 105 $Label3.Visible = "True" $Label3.Width = 100 ;************************************* ;************* TEXTBOX6 ************** $TextBox6 = $TargetDetailsBox.Controls.TextBox $TextBox6.Anchor = 5 $TextBox6.AcceptsReturn = "False" $TextBox6.AcceptsTab = "False" $TextBox6.BackColor = 255 ,255 ,255 $TextBox6.BorderStyle = 1 $TextBox6.Enabled = "True" $TextBox6.FontBold = "False" $TextBox6.FontItalic = "False" $TextBox6.FontName = "Microsoft Sans Serif" $TextBox6.FontSize = 8.25 $TextBox6.FontUnderline = "False" $TextBox6.ForeColor = 0 ,0 ,0 $TextBox6.Height = 20 $TextBox6.HideSelection = "True" $TextBox6.Left = 15 $TextBox6.MaxLength = 32767 $TextBox6.Multiline = "False" $TextBox6.PasswordChar = "" $TextBox6.ReadOnly = "True" $TextBox6.ScrollBars = 0 $TextBox6.TabStop = "True" $TextBox6.Tag = "" $TextBox6.Text = "" $TextBox6.TextAlign = 0 $TextBox6.Top = 120 $TextBox6.Visible = "True" $TextBox6.Width = 100 $TextBox6.WordWrap = "True" ;************************************* ;************* TOOLBOX ************** $ToolBox = $Form.Controls.GroupBox $ToolBox.Anchor = 5 $ToolBox.BackColor = 212 ,208 ,200 $ToolBox.Enabled = "True" $ToolBox.FlatStyle = 2 $ToolBox.FontBold = "False" $ToolBox.FontItalic = "False" $ToolBox.FontName = "Microsoft Sans Serif" $ToolBox.FontSize = 8.25 $ToolBox.FontUnderline = "False" $ToolBox.ForeColor = 0 ,0 ,0 $ToolBox.Height = 235 $ToolBox.Left = 13 $ToolBox.Tag = "" $ToolBox.Text = "Tools" $ToolBox.Top = 310 $ToolBox.Visible = "True" $ToolBox.Width = 128 ;************************************* ;************* TOOLS1 ************** $tools1 = $ToolBox.Controls.Button $tools1.Anchor = 5 $tools1.TextAlign = 32 $tools1.Enabled = "False" $tools1.FlatStyle = 2 $tools1.FontBold = "False" $tools1.FontItalic = "False" $tools1.FontName = "Microsoft Sans Serif" $tools1.FontSize = 8.25 $tools1.FontUnderline = "False" $tools1.ForeColor = 0 ,0 ,0 $tools1.Height = 22 $tools1.Left = 15 $tools1.TabStop = "True" $tools1.Tag = "" $tools1.Text = "SMS Remote" $tools1.ToolTipText = "" $tools1.Top = 20 $tools1.Visible = "True" $tools1.Width = 99 $tools1.onclic k = "SMSRemote()" ;************************************* ;************* TOOLS2 ************** $tools2 = $ToolBox.Controls.Button $tools2.Anchor = 5 $tools2.TextAlign = 32 $tools2.Enabled = "False" $tools2.FlatStyle = 2 $tools2.FontBold = "False" $tools2.FontItalic = "False" $tools2.FontName = "Microsoft Sans Serif" $tools2.FontSize = 8.25 $tools2.FontUnderline = "False" $tools2.ForeColor = 0 ,0 ,0 $tools2.Height = 22 $tools2.Left = 15 $tools2.TabStop = "True" $tools2.Tag = "" $tools2.Text = "Explore C:\" $tools2.ToolTipText = "" $tools2.Top = 50 $tools2.Visible = "True" $tools2.Width = 99 $tools2.onclic k = "Explore()" ;************************************* ;************* TOOLS3 ************** $tools3 = $ToolBox.Controls.Button $tools3.Anchor = 5 $tools3.TextAlign = 32 $tools3.Enabled = "False" $tools3.FlatStyle = 2 $tools3.FontBold = "False" $tools3.FontItalic = "False" $tools3.FontName = "Microsoft Sans Serif" $tools3.FontSize = 8.25 $tools3.FontUnderline = "False" $tools3.ForeColor = 0 ,0 ,0 $tools3.Height = 22 $tools3.Left = 15 $tools3.TabStop = "True" $tools3.Tag = "" $tools3.Text = "Shutdown" $tools3.ToolTipText = "" $tools3.Top = 80 $tools3.Visible = "True" $tools3.Width = 99 ;************************************* ;************* TOOLS4 ************** $tools4 = $ToolBox.Controls.Button $tools4.Anchor = 5 $tools4.TextAlign = 32 $tools4.Enabled = "False" $tools4.FlatStyle = 2 $tools4.FontBold = "False" $tools4.FontItalic = "False" $tools4.FontName = "Microsoft Sans Serif" $tools4.FontSize = 8.25 $tools4.FontUnderline = "False" $tools4.ForeColor = 0 ,0 ,0 $tools4.Height = 22 $tools4.Left = 15 $tools4.TabStop = "True" $tools4.Tag = "" $tools4.Text = "Wake on LAN" $tools4.ToolTipText = "" $tools4.Top = 110 $tools4.Visible = "True" $tools4.Width = 99 ;************************************* ;************* TOOLS5 ************** $tools5 = $ToolBox.Controls.Button $tools5.Anchor = 5 $tools5.TextAlign = 32 $tools5.Enabled = "False" $tools5.FlatStyle = 2 $tools5.FontBold = "False" $tools5.FontItalic = "False" $tools5.FontName = "Microsoft Sans Serif" $tools5.FontSize = 8.25 $tools5.FontUnderline = "False" $tools5.ForeColor = 0 ,0 ,0 $tools5.Height = 22 $tools5.Left = 15 $tools5.TabStop = "True" $tools5.Tag = "" $tools5.Text = "MS Technet" $tools5.ToolTipText = "" $tools5.Top = 140 $tools5.Visible = "True" $tools5.Width = 99 ;************************************* ;************* TOOLS6 ************** $tools6 = $ToolBox.Controls.Button $tools6.Anchor = 5 $tools6.TextAlign = 32 $tools6.Enabled = "False" $tools6.FlatStyle = 2 $tools6.FontBold = "False" $tools6.FontItalic = "False" $tools6.FontName = "Microsoft Sans Serif" $tools6.FontSize = 8.25 $tools6.FontUnderline = "False" $tools6.ForeColor = 0 ,0 ,0 $tools6.Height = 22 $tools6.Left = 15 $tools6.TabStop = "True" $tools6.Tag = "" $tools6.Text = "Magic SVC Desk" $tools6.ToolTipText = "" $tools6.Top = 170 $tools6.Visible = "True" $tools6.Width = 99 ;************************************* ;************* TOOLS7 ************** $tools7 = $ToolBox.Controls.Button $tools7.Anchor = 5 $tools7.TextAlign = 32 $tools7.Enabled = "False" $tools7.FlatStyle = 2 $tools7.FontBold = "False" $tools7.FontItalic = "False" $tools7.FontName = "Microsoft Sans Serif" $tools7.FontSize = 8.25 $tools7.FontUnderline = "False" $tools7.ForeColor = 0 ,0 ,0 $tools7.Height = 22 $tools7.Left = 15 $tools7.TabStop = "True" $tools7.Tag = "" $tools7.Text = "Manufacturer" $tools7.ToolTipText = "" $tools7.Top = 200 $tools7.Visible = "True" $tools7.Width = 99 ;************************************* ;************* TABCONTROL1 ************** $TabControl1 = $Form.Controls.TabControl ()$TabControl1.Location = 150 ,15 $TabControl1.Size = 423 ,255 $TabPage0 = $TabControl1.TabPages.Add $TabPage0.Text = "User Details" $TabPage1 = $TabControl1.TabPages.Add $TabPage1.Text = "Hardware" $TabPage2 = $TabControl1.TabPages.Add $TabPage2.Text = "Windows OS" $TabPage3 = $TabControl1.TabPages.Add $TabPage3.Text = "Internet Explorer" $TabPage4 = $TabControl1.TabPages.Add $TabPage4.Text = "MS Office" ;************* UserProp ************** $UserProp = $TabPage0.Controls.ListView $UserProp.AllowColumnReorder = "True" $UserProp.Anchor = 5 $UserProp.AutoArrange = "False" $UserProp.BackColor = 255 ,255 ,255 $UserProp.BorderStyle = 2 $UserProp.CheckBoxes = "False" $UserProp.Enabled = "True" $UserProp.FontBold = "False" $UserProp.FontItalic = "False" $UserProp.FontName = "Microsoft Sans Serif" $UserProp.FontSize = 8.25 $UserProp.FontUnderline = "False" $UserProp.ForeColor = 0 ,0 ,0 $UserProp.FullRowSelect = "True" $UserProp.GridLines = "True" $UserProp.Height = 180 $UserProp.HeaderStyle = 0 $UserProp.HideSelection = "True" $UserProp.LabelEdit = "False" $UserProp.LabelWrap = "False" $UserProp.Left = 12 $UserProp.MultiSelect = "False" $UserProp.TabStop = "False" $UserProp.Tag = "" $UserProp.Top = 15 $UserProp.View = 1 $UserProp.Visible = "True" $UserProp.Width = 390 $ =$UserProp.Columns.Add ("" ,100 )$ =$UserProp.Columns.Add ("" ,268 );************************************* ;************* UserPropPBAR ************** $UserPropPBar = $TabPage0.Controls.ProgressBar $UserPropPBar.Anchor = 5 $UserPropPBar.BackColor = 255 ,255 ,255 $UserPropPBar.BorderStyle = 2 $UserPropPBar.Enabled = "True" $UserPropPBar.ForeColor = 0 ,0 ,0 $UserPropPBar.Height = 24 $UserPropPBar.Left = 12 $UserPropPBar.Style = 1 $UserPropPBar.TabStop = "False" $UserPropPBar.Tag = "" $UserPropPBar.Top = 200 $UserPropPBar.Visible = "True" $UserPropPBar.Width = 360 ;************************************* ;************* UserPropUPDATE ************** $UserPropUpdate = $TabPage0.Controls.ToolButton $UserPropUpdate.Anchor = 5 $UserPropUpdate.TextAlign = 32 $UserPropUpdate.Enabled = "False" $UserPropUpdate.FlatStyle = 2 $UserPropUpdate.FontBold = "False" $UserPropUpdate.FontItalic = "False" $UserPropUpdate.FontName = "Microsoft Sans Serif" $UserPropUpdate.FontSize = 8.25 $UserPropUpdate.FontUnderline = "False" $UserPropUpdate.ForeColor = 0 ,0 ,0 $UserPropUpdate.Height = 24 $UserPropUpdate.icon = 36 $UserPropUpdate.Left = 380 $UserPropUpdate.Style = 1 $UserPropUpdate.TabStop = "True" $UserPropUpdate.Tag = "" $UserPropUpdate.Text = "" $UserPropUpdate.ToolTipText = "" $UserPropUpdate.Top = 200 $UserPropUpdate.Visible = "True" $UserPropUpdate.Width = 22 $UserPropUpdate.onclic k = "UserPropClicked()" ;************************************* ;************* HARDWARE ************** $Hardware = $TabPage1.Controls.ListView $Hardware.AllowColumnReorder = "True" $Hardware.Anchor = 5 $Hardware.AutoArrange = "False" $Hardware.BackColor = 255 ,255 ,255 $Hardware.BorderStyle = 2 $Hardware.CheckBoxes = "False" $Hardware.Enabled = "True" $Hardware.FontBold = "False" $Hardware.FontItalic = "False" $Hardware.FontName = "Microsoft Sans Serif" $Hardware.FontSize = 8.25 $Hardware.FontUnderline = "False" $Hardware.ForeColor = 0 ,0 ,0 $Hardware.FullRowSelect = "True" $Hardware.GridLines = "True" $Hardware.Height = 180 $Hardware.HeaderStyle = 0 $Hardware.HideSelection = "True" $Hardware.LabelEdit = "False" $Hardware.LabelWrap = "False" $Hardware.Left = 12 $Hardware.MultiSelect = "False" $Hardware.TabStop = "False" $Hardware.Tag = "" $Hardware.Top = 15 $Hardware.View = 1 $Hardware.Visible = "True" $Hardware.Width = 390 $ =$Hardware.Columns.Add ("" ,100 )$ =$Hardware.Columns.Add ("" ,268 );************************************* ;************* HARDWAREPBAR ************** $HardwarePBar = $TabPage1.Controls.ProgressBar $HardwarePBar.Anchor = 5 $HardwarePBar.BackColor = 255 ,255 ,255 $HardwarePBar.BorderStyle = 2 $HardwarePBar.Enabled = "True" $HardwarePBar.ForeColor = 0 ,0 ,0 $HardwarePBar.Height = 24 $HardwarePBar.Left = 12 $HardwarePBar.Style = 1 $HardwarePBar.TabStop = "False" $HardwarePBar.Tag = "" $HardwarePBar.Top = 200 $HardwarePBar.Visible = "True" $HardwarePBar.Width = 360 ;************************************* ;************* HARDWAREUPDATE ************** $HardwareUpdate = $TabPage1.Controls.ToolButton $HardwareUpdate.Anchor = 5 $HardwareUpdate.TextAlign = 32 $HardwareUpdate.Enabled = "False" $HardwareUpdate.FlatStyle = 2 $HardwareUpdate.FontBold = "False" $HardwareUpdate.FontItalic = "False" $HardwareUpdate.FontName = "Microsoft Sans Serif" $HardwareUpdate.FontSize = 8.25 $HardwareUpdate.FontUnderline = "False" $HardwareUpdate.ForeColor = 0 ,0 ,0 $HardwareUpdate.Height = 24 $HardwareUpdate.icon = 36 $HardwareUpdate.Left = 380 $HardwareUpdate.Style = 1 $HardwareUpdate.TabStop = "True" $HardwareUpdate.Tag = "" $HardwareUpdate.Text = "" $HardwareUpdate.ToolTipText = "" $HardwareUpdate.Top = 200 $HardwareUpdate.Visible = "True" $HardwareUpdate.Width = 22 $HardwareUpdate.onclic k = "HardwareClicked()" ;************************************* ;************* WINDOWS ************** $Windows = $TabPage2.Controls.ListView $Windows.AllowColumnReorder = "True" $Windows.Anchor = 5 $Windows.AutoArrange = "False" $Windows.BackColor = 255 ,255 ,255 $Windows.BorderStyle = 2 $Windows.CheckBoxes = "False" $Windows.Enabled = "True" $Windows.FontBold = "False" $Windows.FontItalic = "False" $Windows.FontName = "Microsoft Sans Serif" $Windows.FontSize = 8.25 $Windows.FontUnderline = "False" $Windows.ForeColor = 0 ,0 ,0 $Windows.FullRowSelect = "True" $Windows.GridLines = "True" $Windows.Height = 180 $Windows.HeaderStyle = 0 $Windows.HideSelection = "True" $Windows.LabelEdit = "False" $Windows.LabelWrap = "False" $Windows.Left = 12 $Windows.MultiSelect = "False" $Windows.TabStop = "True" $Windows.Tag = "" $Windows.Top = 15 $Windows.View = 1 $Windows.Visible = "True" $Windows.Width = 390 $ =$Windows.Columns.Add ("" ,100 )$ =$Windows.Columns.Add ("" ,268 );************************************* ;************* WindowsPBAR ************** $WindowsPBar = $TabPage2.Controls.ProgressBar $WindowsPBar.Anchor = 5 $WindowsPBar.BackColor = 255 ,255 ,255 $WindowsPBar.BorderStyle = 2 $WindowsPBar.Enabled = "True" $WindowsPBar.ForeColor = 0 ,0 ,0 $WindowsPBar.Height = 24 $WindowsPBar.Left = 12 $WindowsPBar.Style = 1 $WindowsPBar.TabStop = "False" $WindowsPBar.Tag = "" $WindowsPBar.Top = 20
Top
#112733 - 2004-01-29 09:14 AM
Re: Post Prep size posting limitations
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11634
Loc: Space
Well, looks like the board seems to cut off the code after about 750 lines or so of code. That SUCKS!
Top
#112734 - 2004-01-29 09:23 AM
Re: Post Prep size posting limitations
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11634
Loc: Space
Here is a single post of Inquisitor for testing. Using HTML and UBBCode. Original text is 2,482 lines of code and about 80K in size.Break On ;********* FORM CREATE BEGIN ********** $Form = CreateObject ('Kixtart.Form' )$Form.BackColor = 212 ,208 ,200 $Form.ControlBox = "True" $Form.DrawGrid = "True" $Form.FontBold = "False" $Form.FontItalic = "False" $Form.FontName = "Microsoft Sans Serif" $Form.FontSize = 8.25 $Form.FontUnderline = "False" $Form.ForeColor = 0 ,0 ,0 $Form.FormBorderStyle = 3 $Form.Height = 580 $Form.Left = 11 $Form.MaximizeBox = "False" $Form.MinimizeBox = "False" $Form.SizeGripStyle = 2 $Form.StartPosition = 4 $Form.Tag = "" $Form.Text = "Inquisitor2 Console" $Form.Top = 3 $Form.ToolTipText = "" $Form.TopMost = "False" $Form.Width = 800 $Form.WindowState = 0 ;********* FORM CREATE END ********** ;************* TARGETBOX ************** $TargetBox = $Form.Controls.GroupBox $TargetBox.Anchor = 5 $TargetBox.BackColor = 212 ,208 ,200 $TargetBox.Enabled = "True" $TargetBox.FlatStyle = 2 $TargetBox.FontBold = "False" $TargetBox.FontItalic = "False" $TargetBox.FontName = "Microsoft Sans Serif" $TargetBox.FontSize = 8.25 $TargetBox.FontUnderline = "False" $TargetBox.ForeColor = 0 ,0 ,0 $TargetBox.Height = 130 $TargetBox.Left = 13 $TargetBox.Tag = "" $TargetBox.Text = "Target" $TargetBox.Top = 10 $TargetBox.Visible = "True" $TargetBox.Width = 129 ;************************************* ;************* RADIOBUTTON1 ************** $RadioButton1 = $TargetBox.Controls.RadioButton $RadioButton1.Anchor = 5 $RadioButton1.BackColor = 212 ,208 ,200 $RadioButton1.Checked = "True" $RadioButton1.Enabled = "True" $RadioButton1.FlatStyle = 2 $RadioButton1.ForeColor = 0 ,0 ,0 $RadioButton1.Height = 21 $RadioButton1.FontBold = "False" $RadioButton1.FontItalic = "False" $RadioButton1.FontName = "Microsoft Sans Serif" $RadioButton1.FontSize = 8.25 $RadioButton1.FontUnderline = "False" $RadioButton1.Left = 15 $RadioButton1.TabStop = "True" $RadioButton1.Tag = "" $RadioButton1.Text = "Computer Name or IP Address" $RadioButton1.Top = 15 $RadioButton1.Visible = "True" $RadioButton1.Width = 98 ;************************************* ;************* RADIOBUTTON2 ************** $RadioButton2 = $TargetBox.Controls.RadioButton $RadioButton2.Anchor = 5 $RadioButton2.BackColor = 212 ,208 ,200 $RadioButton2.Checked = "False" $RadioButton2.Enabled = "True" $RadioButton2.FlatStyle = 2 $RadioButton2.ForeColor = 0 ,0 ,0 $RadioButton2.Height = 21 $RadioButton2.FontBold = "False" $RadioButton2.FontItalic = "False" $RadioButton2.FontName = "Microsoft Sans Serif" $RadioButton2.FontSize = 8.25 $RadioButton2.FontUnderline = "False" $RadioButton2.Left = 15 $RadioButton2.TabStop = "False" $RadioButton2.Tag = "" $RadioButton2.Text = "User Name" $RadioButton2.Top = 35 $RadioButton2.Visible = "True" $RadioButton2.Width = 108 ;************************************* ;************* TEXTBOX2 ************** $TextBox2 = $TargetBox.Controls.TextBox $TextBox2.Anchor = 5 $TextBox2.AcceptsReturn = "False" $TextBox2.AcceptsTab = "False" $TextBox2.BackColor = 255 ,255 ,255 $TextBox2.BorderStyle = 2 $TextBox2.Enabled = "True" $TextBox2.FontBold = "False" $TextBox2.FontItalic = "False" $TextBox2.FontName = "Microsoft Sans Serif" $TextBox2.FontSize = 8.25 $TextBox2.FontUnderline = "False" $TextBox2.ForeColor = 0 ,0 ,0 $TextBox2.Height = 20 $TextBox2.HideSelection = "True" $TextBox2.Left = 15 $TextBox2.MaxLength = 32767 $TextBox2.Multiline = "False" $TextBox2.PasswordChar = "" $TextBox2.ReadOnly = "False" $TextBox2.ScrollBars = 0 $TextBox2.TabStop = "True" $TextBox2.Tag = "" $TextBox2.Text = "" $TextBox2.TextAlign = 0 $TextBox2.Top = 65 $TextBox2.Visible = "True" $TextBox2.Width = 100 $TextBox2.WordWrap = "False" ;************************************* ;************* CONNECTBUTTON ************** $ConnectButton = $TargetBox.Controls.Button $ConnectButton.Anchor = 5 $ConnectButton.TextAlign = 32 $ConnectButton.Enabled = "True" $ConnectButton.FlatStyle = 2 $ConnectButton.FontBold = "False" $ConnectButton.FontItalic = "False" $ConnectButton.FontName = "Microsoft Sans Serif" $ConnectButton.FontSize = 8.25 $ConnectButton.FontUnderline = "False" $ConnectButton.ForeColor = 0 ,0 ,0 $ConnectButton.Height = 24 $ConnectButton.Left = 15 $ConnectButton.TabStop = "True" $ConnectButton.Tag = "" $ConnectButton.Text = "Connect" $ConnectButton.ToolTipText = "" $ConnectButton.Top = 95 $ConnectButton.Visible = "True" $ConnectButton.Width = 101 $ConnectButton.onclic k = "ConnectClick()" ;************************************* ;************* TARGETDETAILSBOX ************** $TargetDetailsBox = $Form.Controls.GroupBox $TargetDetailsBox.Anchor = 5 $TargetDetailsBox.BackColor = 212 ,208 ,200 $TargetDetailsBox.Enabled = "True" $TargetDetailsBox.FlatStyle = 2 $TargetDetailsBox.FontBold = "False" $TargetDetailsBox.FontItalic = "False" $TargetDetailsBox.FontName = "Microsoft Sans Serif" $TargetDetailsBox.FontSize = 8.25 $TargetDetailsBox.FontUnderline = "False" $TargetDetailsBox.ForeColor = 0 ,0 ,0 $TargetDetailsBox.Height = 151 $TargetDetailsBox.Left = 13 $TargetDetailsBox.Tag = "" $TargetDetailsBox.Text = "Target Details" $TargetDetailsBox.Top = 150 $TargetDetailsBox.Visible = "True" $TargetDetailsBox.Width = 128 ;************************************* ;************* LABEL1 ************** $Label1 = $TargetDetailsBox.Controls.Label $Label1.Anchor = 5 $Label1.BackColor = 212 ,208 ,200 $Label1.BorderStyle = 0 $Label1.Enabled = "True" $Label1.FlatStyle = 2 $Label1.FontBold = "False" $Label1.FontItalic = "False" $Label1.FontName = "Microsoft Sans Serif" $Label1.FontSize = 8.25 $Label1.FontUnderline = "False" $Label1.ForeColor = 0 ,0 ,0 $Label1.Height = 15 $Label1.Left = 15 $Label1.Tag = "" $Label1.Text = "Computer Name" $Label1.ToolTipText = "" $Label1.Top = 15 $Label1.Visible = "True" $Label1.Width = 100 ;************************************* ;************* TEXTBOX4 ************** $TextBox4 = $TargetDetailsBox.Controls.TextBox $TextBox4.Anchor = 5 $TextBox4.AcceptsReturn = "False" $TextBox4.AcceptsTab = "False" $TextBox4.BackColor = 255 ,255 ,255 $TextBox4.BorderStyle = 1 $TextBox4.Enabled = "True" $TextBox4.FontBold = "False" $TextBox4.FontItalic = "False" $TextBox4.FontName = "Microsoft Sans Serif" $TextBox4.FontSize = 8.25 $TextBox4.FontUnderline = "False" $TextBox4.ForeColor = 0 ,0 ,0 $TextBox4.Height = 20 $TextBox4.HideSelection = "True" $TextBox4.Left = 15 $TextBox4.MaxLength = 32767 $TextBox4.Multiline = "False" $TextBox4.PasswordChar = "" $TextBox4.ReadOnly = "True" $TextBox4.ScrollBars = 0 $TextBox4.TabStop = "True" $TextBox4.Tag = "" $TextBox4.Text = "" $TextBox4.TextAlign = 0 $TextBox4.Top = 30 $TextBox4.Visible = "True" $TextBox4.Width = 100 $TextBox4.WordWrap = "True" ;************************************* ;************* LABEL2 ************** $Label2 = $TargetDetailsBox.Controls.Label $Label2.Anchor = 5 $Label2.BackColor = 212 ,208 ,200 $Label2.BorderStyle = 0 $Label2.Enabled = "True" $Label2.FlatStyle = 2 $Label2.FontBold = "False" $Label2.FontItalic = "False" $Label2.FontName = "Microsoft Sans Serif" $Label2.FontSize = 8.25 $Label2.FontUnderline = "False" $Label2.ForeColor = 0 ,0 ,0 $Label2.Height = 15 $Label2.Left = 15 $Label2.Tag = "" $Label2.Text = "User Name" $Label2.ToolTipText = "" $Label2.Top = 60 $Label2.Visible = "True" $Label2.Width = 100 ;************************************* ;************* TEXTBOX5 ************** $TextBox5 = $TargetDetailsBox.Controls.TextBox $TextBox5.Anchor = 5 $TextBox5.AcceptsReturn = "False" $TextBox5.AcceptsTab = "False" $TextBox5.BackColor = 255 ,255 ,255 $TextBox5.BorderStyle = 1 $TextBox5.Enabled = "True" $TextBox5.FontBold = "False" $TextBox5.FontItalic = "False" $TextBox5.FontName = "Microsoft Sans Serif" $TextBox5.FontSize = 8.25 $TextBox5.FontUnderline = "False" $TextBox5.ForeColor = 0 ,0 ,0 $TextBox5.Height = 20 $TextBox5.HideSelection = "True" $TextBox5.Left = 15 $TextBox5.MaxLength = 32767 $TextBox5.Multiline = "False" $TextBox5.PasswordChar = "" $TextBox5.ReadOnly = "True" $TextBox5.ScrollBars = 0 $TextBox5.TabStop = "True" $TextBox5.Tag = "" $TextBox5.Text = "" $TextBox5.TextAlign = 0 $TextBox5.Top = 75 $TextBox5.Visible = "True" $TextBox5.Width = 100 $TextBox5.WordWrap = "True" ;************************************* ;************* LABEL3 ************** $Label3 = $TargetDetailsBox.Controls.Label $Label3.Anchor = 5 $Label3.BackColor = 212 ,208 ,200 $Label3.BorderStyle = 0 $Label3.Enabled = "True" $Label3.FlatStyle = 2 $Label3.FontBold = "False" $Label3.FontItalic = "False" $Label3.FontName = "Microsoft Sans Serif" $Label3.FontSize = 8.25 $Label3.FontUnderline = "False" $Label3.ForeColor = 0 ,0 ,0 $Label3.Height = 15 $Label3.Left = 15 $Label3.Tag = "" $Label3.Text = "IP Address" $Label3.ToolTipText = "" $Label3.Top = 105 $Label3.Visible = "True" $Label3.Width = 100 ;************************************* ;************* TEXTBOX6 ************** $TextBox6 = $TargetDetailsBox.Controls.TextBox $TextBox6.Anchor = 5 $TextBox6.AcceptsReturn = "False" $TextBox6.AcceptsTab = "False" $TextBox6.BackColor = 255 ,255 ,255 $TextBox6.BorderStyle = 1 $TextBox6.Enabled = "True" $TextBox6.FontBold = "False" $TextBox6.FontItalic = "False" $TextBox6.FontName = "Microsoft Sans Serif" $TextBox6.FontSize = 8.25 $TextBox6.FontUnderline = "False" $TextBox6.ForeColor = 0 ,0 ,0 $TextBox6.Height = 20 $TextBox6.HideSelection = "True" $TextBox6.Left = 15 $TextBox6.MaxLength = 32767 $TextBox6.Multiline = "False" $TextBox6.PasswordChar = "" $TextBox6.ReadOnly = "True" $TextBox6.ScrollBars = 0 $TextBox6.TabStop = "True" $TextBox6.Tag = "" $TextBox6.Text = "" $TextBox6.TextAlign = 0 $TextBox6.Top = 120 $TextBox6.Visible = "True" $TextBox6.Width = 100 $TextBox6.WordWrap = "True" ;************************************* ;************* TOOLBOX ************** $ToolBox = $Form.Controls.GroupBox $ToolBox.Anchor = 5 $ToolBox.BackColor = 212 ,208 ,200 $ToolBox.Enabled = "True" $ToolBox.FlatStyle = 2 $ToolBox.FontBold = "False" $ToolBox.FontItalic = "False" $ToolBox.FontName = "Microsoft Sans Serif" $ToolBox.FontSize = 8.25 $ToolBox.FontUnderline = "False" $ToolBox.ForeColor = 0 ,0 ,0 $ToolBox.Height = 235 $ToolBox.Left = 13 $ToolBox.Tag = "" $ToolBox.Text = "Tools" $ToolBox.Top = 310 $ToolBox.Visible = "True" $ToolBox.Width = 128 ;************************************* ;************* TOOLS1 ************** $tools1 = $ToolBox.Controls.Button $tools1.Anchor = 5 $tools1.TextAlign = 32 $tools1.Enabled = "False" $tools1.FlatStyle = 2 $tools1.FontBold = "False" $tools1.FontItalic = "False" $tools1.FontName = "Microsoft Sans Serif" $tools1.FontSize = 8.25 $tools1.FontUnderline = "False" $tools1.ForeColor = 0 ,0 ,0 $tools1.Height = 22 $tools1.Left = 15 $tools1.TabStop = "True" $tools1.Tag = "" $tools1.Text = "SMS Remote" $tools1.ToolTipText = "" $tools1.Top = 20 $tools1.Visible = "True" $tools1.Width = 99 $tools1.onclic k = "SMSRemote()" ;************************************* ;************* TOOLS2 ************** $tools2 = $ToolBox.Controls.Button $tools2.Anchor = 5 $tools2.TextAlign = 32 $tools2.Enabled = "False" $tools2.FlatStyle = 2 $tools2.FontBold = "False" $tools2.FontItalic = "False" $tools2.FontName = "Microsoft Sans Serif" $tools2.FontSize = 8.25 $tools2.FontUnderline = "False" $tools2.ForeColor = 0 ,0 ,0 $tools2.Height = 22 $tools2.Left = 15 $tools2.TabStop = "True" $tools2.Tag = "" $tools2.Text = "Explore C:\" $tools2.ToolTipText = "" $tools2.Top = 50 $tools2.Visible = "True" $tools2.Width = 99 $tools2.onclic k = "Explore()" ;************************************* ;************* TOOLS3 ************** $tools3 = $ToolBox.Controls.Button $tools3.Anchor = 5 $tools3.TextAlign = 32 $tools3.Enabled = "False" $tools3.FlatStyle = 2 $tools3.FontBold = "False" $tools3.FontItalic = "False" $tools3.FontName = "Microsoft Sans Serif" $tools3.FontSize = 8.25 $tools3.FontUnderline = "False" $tools3.ForeColor = 0 ,0 ,0 $tools3.Height = 22 $tools3.Left = 15 $tools3.TabStop = "True" $tools3.Tag = "" $tools3.Text = "Shutdown" $tools3.ToolTipText = "" $tools3.Top = 80 $tools3.Visible = "True" $tools3.Width = 99 ;************************************* ;************* TOOLS4 ************** $tools4 = $ToolBox.Controls.Button $tools4.Anchor = 5 $tools4.TextAlign = 32 $tools4.Enabled = "False" $tools4.FlatStyle = 2 $tools4.FontBold = "False" $tools4.FontItalic = "False" $tools4.FontName = "Microsoft Sans Serif" $tools4.FontSize = 8.25 $tools4.FontUnderline = "False" $tools4.ForeColor = 0 ,0 ,0 $tools4.Height = 22 $tools4.Left = 15 $tools4.TabStop = "True" $tools4.Tag = "" $tools4.Text = "Wake on LAN" $tools4.ToolTipText = "" $tools4.Top = 110 $tools4.Visible = "True" $tools4.Width = 99 ;************************************* ;************* TOOLS5 ************** $tools5 = $ToolBox.Controls.Button $tools5.Anchor = 5 $tools5.TextAlign = 32 $tools5.Enabled = "False" $tools5.FlatStyle = 2 $tools5.FontBold = "False" $tools5.FontItalic = "False" $tools5.FontName = "Microsoft Sans Serif" $tools5.FontSize = 8.25 $tools5.FontUnderline = "False" $tools5.ForeColor = 0 ,0 ,0 $tools5.Height = 22 $tools5.Left = 15 $tools5.TabStop = "True" $tools5.Tag = "" $tools5.Text = "MS Technet" $tools5.ToolTipText = "" $tools5.Top = 140 $tools5.Visible = "True" $tools5.Width = 99 ;************************************* ;************* TOOLS6 ************** $tools6 = $ToolBox.Controls.Button $tools6.Anchor = 5 $tools6.TextAlign = 32 $tools6.Enabled = "False" $tools6.FlatStyle = 2 $tools6.FontBold = "False" $tools6.FontItalic = "False" $tools6.FontName = "Microsoft Sans Serif" $tools6.FontSize = 8.25 $tools6.FontUnderline = "False" $tools6.ForeColor = 0 ,0 ,0 $tools6.Height = 22 $tools6.Left = 15 $tools6.TabStop = "True" $tools6.Tag = "" $tools6.Text = "Magic SVC Desk" $tools6.ToolTipText = "" $tools6.Top = 170 $tools6.Visible = "True" $tools6.Width = 99 ;************************************* ;************* TOOLS7 ************** $tools7 = $ToolBox.Controls.Button $tools7.Anchor = 5 $tools7.TextAlign = 32 $tools7.Enabled = "False" $tools7.FlatStyle = 2 $tools7.FontBold = "False" $tools7.FontItalic = "False" $tools7.FontName = "Microsoft Sans Serif" $tools7.FontSize = 8.25 $tools7.FontUnderline = "False" $tools7.ForeColor = 0 ,0 ,0 $tools7.Height = 22 $tools7.Left = 15 $tools7.TabStop = "True" $tools7.Tag = "" $tools7.Text = "Manufacturer" $tools7.ToolTipText = "" $tools7.Top = 200 $tools7.Visible = "True" $tools7.Width = 99 ;************************************* ;************* TABCONTROL1 ************** $TabControl1 = $Form.Controls.TabControl ()$TabControl1.Location = 150 ,15 $TabControl1.Size = 423 ,255 $TabPage0 = $TabControl1.TabPages.Add $TabPage0.Text = "User Details" $TabPage1 = $TabControl1.TabPages.Add $TabPage1.Text = "Hardware" $TabPage2 = $TabControl1.TabPages.Add $TabPage2.Text = "Windows OS" $TabPage3 = $TabControl1.TabPages.Add $TabPage3.Text = "Internet Explorer" $TabPage4 = $TabControl1.TabPages.Add $TabPage4.Text = "MS Office" ;************* UserProp ************** $UserProp = $TabPage0.Controls.ListView $UserProp.AllowColumnReorder = "True" $UserProp.Anchor = 5 $UserProp.AutoArrange = "False" $UserProp.BackColor = 255 ,255 ,255 $UserProp.BorderStyle = 2 $UserProp.CheckBoxes = "False" $UserProp.Enabled = "True" $UserProp.FontBold = "False" $UserProp.FontItalic = "False" $UserProp.FontName = "Microsoft Sans Serif" $UserProp.FontSize = 8.25 $UserProp.FontUnderline = "False" $UserProp.ForeColor = 0 ,0 ,0 $UserProp.FullRowSelect = "True" $UserProp.GridLines = "True" $UserProp.Height = 180 $UserProp.HeaderStyle = 0 $UserProp.HideSelection = "True" $UserProp.LabelEdit = "False" $UserProp.LabelWrap = "False" $UserProp.Left = 12 $UserProp.MultiSelect = "False" $UserProp.TabStop = "False" $UserProp.Tag = "" $UserProp.Top = 15 $UserProp.View = 1 $UserProp.Visible = "True" $UserProp.Width = 390 $ =$UserProp.Columns.Add ("" ,100 )$ =$UserProp.Columns.Add ("" ,268 );************************************* ;************* UserPropPBAR ************** $UserPropPBar = $TabPage0.Controls.ProgressBar $UserPropPBar.Anchor = 5 $UserPropPBar.BackColor = 255 ,255 ,255 $UserPropPBar.BorderStyle = 2 $UserPropPBar.Enabled = "True" $UserPropPBar.ForeColor = 0 ,0 ,0 $UserPropPBar.Height = 24 $UserPropPBar.Left = 12 $UserPropPBar.Style = 1 $UserPropPBar.TabStop = "False" $UserPropPBar.Tag = "" $UserPropPBar.Top = 200 $UserPropPBar.Visible = "True" $UserPropPBar.Width = 360 ;************************************* ;************* UserPropUPDATE ************** $UserPropUpdate = $TabPage0.Controls.ToolButton $UserPropUpdate.Anchor = 5 $UserPropUpdate.TextAlign = 32 $UserPropUpdate.Enabled = "False" $UserPropUpdate.FlatStyle = 2 $UserPropUpdate.FontBold = "False" $UserPropUpdate.FontItalic = "False" $UserPropUpdate.FontName = "Microsoft Sans Serif" $UserPropUpdate.FontSize = 8.25 $UserPropUpdate.FontUnderline = "False" $UserPropUpdate.ForeColor = 0 ,0 ,0 $UserPropUpdate.Height = 24 $UserPropUpdate.icon = 36 $UserPropUpdate.Left = 380 $UserPropUpdate.Style = 1 $UserPropUpdate.TabStop = "True" $UserPropUpdate.Tag = "" $UserPropUpdate.Text = "" $UserPropUpdate.ToolTipText = "" $UserPropUpdate.Top = 200 $UserPropUpdate.Visible = "True" $UserPropUpdate.Width = 22 $UserPropUpdate.onclic k = "UserPropClicked()" ;************************************* ;************* HARDWARE ************** $Hardware = $TabPage1.Controls.ListView $Hardware.AllowColumnReorder = "True" $Hardware.Anchor = 5 $Hardware.AutoArrange = "False" $Hardware.BackColor = 255 ,255 ,255 $Hardware.BorderStyle = 2 $Hardware.CheckBoxes = "False" $Hardware.Enabled = "True" $Hardware.FontBold = "False" $Hardware.FontItalic = "False" $Hardware.FontName = "Microsoft Sans Serif" $Hardware.FontSize = 8.25 $Hardware.FontUnderline = "False" $Hardware.ForeColor = 0 ,0 ,0 $Hardware.FullRowSelect = "True" $Hardware.GridLines = "True" $Hardware.Height = 180 $Hardware.HeaderStyle = 0 $Hardware.HideSelection = "True" $Hardware.LabelEdit = "False" $Hardware.LabelWrap = "False" $Hardware.Left = 12 $Hardware.MultiSelect = "False" $Hardware.TabStop = "False" $Hardware.Tag = "" $Hardware.Top = 15 $Hardware.View = 1 $Hardware.Visible = "True" $Hardware.Width = 390 $ =$Hardware.Columns.Add ("" ,100 )$ =$Hardware.Columns.Add ("" ,268 );************************************* ;************* HARDWAREPBAR ************** $HardwarePBar = $TabPage1.Controls.ProgressBar $HardwarePBar.Anchor = 5 $HardwarePBar.BackColor = 255 ,255 ,255 $HardwarePBar.BorderStyle = 2 $HardwarePBar.Enabled = "True" $HardwarePBar.ForeColor = 0 ,0 ,0 $HardwarePBar.Height = 24 $HardwarePBar.Left = 12 $HardwarePBar.Style = 1 $HardwarePBar.TabStop = "False" $HardwarePBar.Tag = "" $HardwarePBar.Top = 200 $HardwarePBar.Visible = "True" $HardwarePBar.Width = 360 ;************************************* ;************* HARDWAREUPDATE ************** $HardwareUpdate = $TabPage1.Controls.ToolButton $HardwareUpdate.Anchor = 5 $HardwareUpdate.TextAlign = 32 $HardwareUpdate.Enabled = "False" $HardwareUpdate.FlatStyle = 2 $HardwareUpdate.FontBold = "False" $HardwareUpdate.FontItalic = "False" $HardwareUpdate.FontName = "Microsoft Sans Serif" $HardwareUpdate.FontSize = 8.25 $HardwareUpdate.FontUnderline = "False" $HardwareUpdate.ForeColor = 0 ,0 ,0 $HardwareUpdate.Height = 24 $HardwareUpdate.icon = 36 $HardwareUpdate.Left = 380 $HardwareUpdate.Style = 1 $HardwareUpdate.TabStop = "True" $HardwareUpdate.Tag = "" $HardwareUpdate.Text = "" $HardwareUpdate.ToolTipText = "" $HardwareUpdate.Top = 200 $HardwareUpdate.Visible = "True" $HardwareUpdate.Width = 22 $HardwareUpdate.onclic k = "HardwareClicked()" ;************************************* ;************* WINDOWS ************** $Windows = $TabPage2.Controls.ListView $Windows.AllowColumnReorder = "True" $Windows.Anchor = 5 $Windows.AutoArrange = "False" $Windows.BackColor = 255 ,255 ,255 $Windows.BorderStyle = 2 $Windows.CheckBoxes = "False" $Windows.Enabled = "True" $Windows.FontBold = "False" $Windows.FontItalic = "False" $Windows.FontName = "Microsoft Sans Serif" $Windows.FontSize = 8.25 $Windows.FontUnderline = "False" $Windows.ForeColor = 0 ,0 ,0 $Windows.FullRowSelect = "True" $Windows.GridLines = "True" $Windows.Height = 180 $Windows.HeaderStyle = 0 $Windows.HideSelection = "True" $Windows.LabelEdit = "False" $Windows.LabelWrap = "False" $Windows.Left = 12 $Windows.MultiSelect = "False" $Windows.TabStop = "True" $Windows.Tag = "" $Windows.Top = 15 $Windows.View = 1 $Windows.Visible = "True" $Windows.Width = 390 $ =$Windows.Columns.Add ("" ,100 )$ =$Windows.Columns.Add ("" ,268 );************************************* ;************* WindowsPBAR ************** $WindowsPBar = $TabPage2.Controls.ProgressBar $WindowsPBar.Anchor = 5 $WindowsPBar.BackColor = 255 ,255 ,255 $WindowsPBar.BorderStyle = 2 $WindowsPBar.Enabled = "True" $WindowsPBar.ForeColor = 0 ,0 ,0 $WindowsPBar.Height = 24 $WindowsPBar.Left = 12 $WindowsPBar.Style = 1 $WindowsPBar.TabStop = "False" $WindowsPBar.Tag = "" $WindowsPBar.Top = 200 $WindowsPBar.Visible = "True" $WindowsPBar.Width = 360 ;**********************
Top
Moderator: Arend_ , Allen , Jochen , Radimus , Glenn Barnas , ShaneEP , Ruud van Velsen , Mart
0 registered
and 1363 anonymous users online.
Generated in 0.193 seconds in which 0.145 seconds were spent on a total of 13 queries. Zlib compression enabled.
"+code.substring(i,code.indexOf("\n",i))+"\n";
i=code.indexOf("\n",i);
break;
case '/':
if (code.charAt(i+1)=='*') {
tagged+=""+code.substring(i,code.indexOf("*/",i)+1)+" ";
i=code.indexOf("*/",i)+1;
} else {
tagged+=c;
}
break;
case '<':
if (code.charAt(i+1)=='a' && code.charAt(i+2)==' ') {
tagged+=code.substring(i-1,code.indexOf("",i))+"";
i=code.indexOf("",i)+2;
} else {
if (code.charAt(i+1)=='b' && code.charAt(i+2)=='>') {
tagged+="";
i+=2;
} else {
if (code.charAt(i+1)=='/' && code.charAt(i+2)=='b') {
tagged+=" ";
i+=3;
} else {
//tagged+=c;
tagged+="<";
}
}
}
break;
case '"':
tagged+=""+code.substring(i,code.indexOf('"',i+1)+1)+" ";
if (code.indexOf('"',i+1) > -1) i=code.indexOf('"',i+1);
break;
case "'":
tagged+=""+code.substring(i,code.indexOf("'",i+1)+1)+" ";
if (code.indexOf("'",i+1) > -1) i=code.indexOf("'",i+1);
break;
case '$':
var _var = code.substring(i).match(/\$[a-zA-Z0-9_!]*/);
tagged+="" + _var[0] + " ";
i+= (_var[0].length) - 1;
break;
case '@':
var _var = code.substring(i).match(/\@[a-zA-Z0-9_!]*/);
if (-1 < macro.indexOf(_var[0].toUpperCase())) {
tagged+="" + _var[0] + " ";
} else {
tagged+="" + _var[0] + " ";
}
i+= (_var[0].length) - 1;
break;
case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9':
// var _var = code.substring(i).match(/\d/);
var _var = code.substring(i).match(/[0-9\.]+/);
tagged+="" + _var[0] + " ";
i+= (_var[0].length) - 1;
break;
default:
var _var = c.match(/\w/);
if (_var == c) {
_var = code.substring(i).match(/[a-zA-Z0-9_!]*/);
if (-1 < comma.indexOf(_var[0].toLowerCase())) {
tagged+="" + _var[0] + " ";
} else if (-1 < funcs.indexOf(_var[0].toLowerCase())) {
tagged+="" + _var[0] + " ";
} else if (-1 < ops.indexOf(_var[0].toLowerCase())) {
tagged+="" + _var[0] + " ";
} else {
tagged+="" + _var[0] + " ";
}
i+= (_var[0].length) - 1;
} else {
tagged+="" + c + " ";
}
}
}
return tagged;
}
var codes = document.getElementsByClassName("ubbcode-body");
var heads = document.getElementsByClassName("ubbcode-header");
for (var i=0; i < codes.length; i++) {
// if (codes[i].innerHTML.indexOf("[postprep") ==-1) {
if (heads[i].innerHTML.indexOf("Code:") !=-1) {
// heads[i].innerHTML=heads[i].innerHTML + ' ';
// }
// } else {
heads[i].innerHTML=heads[i].innerHTML + ' ';
}
}
for (var i=0, maxi = codes.length; i < maxi; i++) {
var tempah = codes[i].innerHTML;
if (tempah.indexOf("") !=-1) {
tempah=tempah.substring(tempah.indexOf("")+5,tempah.indexOf(" "));
codes[i].innerHTML="" + dotag(tempah.substring()) + " ";
}
}
//var pres = document.getElementsByTagName("pre");
//for (var i=0, maxi = pres.length; i < maxi; i++) {
// var tempah = pres[i].innerHTML;
// if (tempah.indexOf("[postprep") !=-1) {
// tempah=tempah.substring((tempah.indexOf("]",tempah.indexOf("[postprep"))+1));
// pres[i].innerHTML=dotag(tempah);
// }
//}
function ytag(which_one) {
var codes = document.getElementsByClassName("ubbcode-body");
var thisone = codes[which_one].innerHTML;
codes[which_one].innerHTML = "" + dotag(thisone.substring(5+thisone.indexOf(""),thisone.indexOf(" "))) + " ";
var heads = document.getElementsByClassName("ubbcode-header");
heads[which_one].innerHTML = "Code:" + ' ';
}
function ttag(which_one) {
var codes = document.getElementsByClassName("ubbcode-body");
var thisone = "";
if (codes[which_one].innerText != undefined) {
thisone += codes[which_one].innerText;
} else {
thisone += codes[which_one].textContent;
}
codes[which_one].innerHTML = thisone + " ";
var heads = document.getElementsByClassName("ubbcode-header");
heads[which_one].innerHTML = "Code:" + ' ';
}