diff --git a/windows 95/Bios.Designer.vb b/windows 95/Bios.Designer.vb new file mode 100644 index 0000000..ba18a7a --- /dev/null +++ b/windows 95/Bios.Designer.vb @@ -0,0 +1,319 @@ + _ +Partial Class Bios + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Sunimage = New System.Windows.Forms.PictureBox() + Me.Americanimage = New System.Windows.Forms.PictureBox() + Me.biostxt1 = New System.Windows.Forms.Label() + Me.biostxt2 = New System.Windows.Forms.Label() + Me.biostxt3 = New System.Windows.Forms.Label() + Me.biostxt4 = New System.Windows.Forms.Label() + Me.biostxt5 = New System.Windows.Forms.Label() + Me.biostxt6 = New System.Windows.Forms.Label() + Me.biostxt7 = New System.Windows.Forms.Label() + Me.biostxt9 = New System.Windows.Forms.Label() + Me.biostxt8 = New System.Windows.Forms.Label() + Me.biostxt10 = New System.Windows.Forms.Label() + Me.biostxt11 = New System.Windows.Forms.Label() + Me.biostxt12 = New System.Windows.Forms.Label() + Me.biostxt13 = New System.Windows.Forms.Label() + Me.biostxt15 = New System.Windows.Forms.Label() + Me.biostxt14 = New System.Windows.Forms.Label() + Me.biostxt16 = New System.Windows.Forms.Label() + Me.Biosload = New System.Windows.Forms.Timer(Me.components) + CType(Me.Sunimage,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.Americanimage,System.ComponentModel.ISupportInitialize).BeginInit + Me.SuspendLayout + ' + 'Sunimage + ' + Me.Sunimage.Image = Global.Histacom.My.Resources.Resources.biosmakerimage + Me.Sunimage.Location = New System.Drawing.Point(407, 2) + Me.Sunimage.Name = "Sunimage" + Me.Sunimage.Size = New System.Drawing.Size(348, 126) + Me.Sunimage.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.Sunimage.TabIndex = 1 + Me.Sunimage.TabStop = false + ' + 'Americanimage + ' + Me.Americanimage.Image = Global.Histacom.My.Resources.Resources.biosimage + Me.Americanimage.Location = New System.Drawing.Point(3, 2) + Me.Americanimage.Name = "Americanimage" + Me.Americanimage.Size = New System.Drawing.Size(356, 126) + Me.Americanimage.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.Americanimage.TabIndex = 0 + Me.Americanimage.TabStop = false + ' + 'biostxt1 + ' + Me.biostxt1.AutoSize = true + Me.biostxt1.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt1.ForeColor = System.Drawing.Color.Silver + Me.biostxt1.Location = New System.Drawing.Point(0, 131) + Me.biostxt1.Name = "biostxt1" + Me.biostxt1.Size = New System.Drawing.Size(533, 29) + Me.biostxt1.TabIndex = 2 + Me.biostxt1.Text = "AMIBIOS(C) 1995 American Megatrends, Inc." + Me.biostxt1.Visible = false + ' + 'biostxt2 + ' + Me.biostxt2.AutoSize = true + Me.biostxt2.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt2.ForeColor = System.Drawing.Color.Silver + Me.biostxt2.Location = New System.Drawing.Point(0, 160) + Me.biostxt2.Name = "biostxt2" + Me.biostxt2.Size = New System.Drawing.Size(562, 29) + Me.biostxt2.TabIndex = 3 + Me.biostxt2.Text = "BIOS Date: 02/25/95 16:04:09 Ver: 00.00.15" + Me.biostxt2.Visible = false + ' + 'biostxt3 + ' + Me.biostxt3.AutoSize = true + Me.biostxt3.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt3.ForeColor = System.Drawing.Color.Silver + Me.biostxt3.Location = New System.Drawing.Point(0, 189) + Me.biostxt3.Name = "biostxt3" + Me.biostxt3.Size = New System.Drawing.Size(381, 29) + Me.biostxt3.TabIndex = 4 + Me.biostxt3.Text = "Sun BIOS Revision: 07.01.38.03" + Me.biostxt3.Visible = false + ' + 'biostxt4 + ' + Me.biostxt4.AutoSize = true + Me.biostxt4.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt4.ForeColor = System.Drawing.Color.Silver + Me.biostxt4.Location = New System.Drawing.Point(1, 218) + Me.biostxt4.Name = "biostxt4" + Me.biostxt4.Size = New System.Drawing.Size(731, 29) + Me.biostxt4.TabIndex = 5 + Me.biostxt4.Text = "Sun Fire X4170 Server CPU Power (TOP Limit) = 95 Watts" + Me.biostxt4.Visible = false + ' + 'biostxt5 + ' + Me.biostxt5.AutoSize = true + Me.biostxt5.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt5.ForeColor = System.Drawing.Color.Silver + Me.biostxt5.Location = New System.Drawing.Point(1, 247) + Me.biostxt5.Name = "biostxt5" + Me.biostxt5.Size = New System.Drawing.Size(426, 29) + Me.biostxt5.TabIndex = 6 + Me.biostxt5.Text = "Product Serial Number:0000000000" + Me.biostxt5.Visible = false + ' + 'biostxt6 + ' + Me.biostxt6.AutoSize = true + Me.biostxt6.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt6.ForeColor = System.Drawing.Color.Silver + Me.biostxt6.Location = New System.Drawing.Point(1, 276) + Me.biostxt6.Name = "biostxt6" + Me.biostxt6.Size = New System.Drawing.Size(720, 29) + Me.biostxt6.TabIndex = 7 + Me.biostxt6.Text = "CPU : Intel(R) Xeon(R) CPU X5570 L 2.93GHz" + Me.biostxt6.Visible = false + ' + 'biostxt7 + ' + Me.biostxt7.AutoSize = true + Me.biostxt7.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt7.ForeColor = System.Drawing.Color.Silver + Me.biostxt7.Location = New System.Drawing.Point(1, 305) + Me.biostxt7.Name = "biostxt7" + Me.biostxt7.Size = New System.Drawing.Size(382, 29) + Me.biostxt7.TabIndex = 8 + Me.biostxt7.Text = " Speed : 2.93 GHz Count : 16" + Me.biostxt7.Visible = false + ' + 'biostxt9 + ' + Me.biostxt9.AutoSize = true + Me.biostxt9.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt9.ForeColor = System.Drawing.Color.Silver + Me.biostxt9.Location = New System.Drawing.Point(1, 388) + Me.biostxt9.Name = "biostxt9" + Me.biostxt9.Size = New System.Drawing.Size(929, 29) + Me.biostxt9.TabIndex = 9 + Me.biostxt9.Text = "Press F12 if you want to boot from the network (CTRL+N on Remote Keyboard)" + Me.biostxt9.Visible = false + ' + 'biostxt8 + ' + Me.biostxt8.AutoSize = true + Me.biostxt8.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt8.ForeColor = System.Drawing.Color.Silver + Me.biostxt8.Location = New System.Drawing.Point(1, 363) + Me.biostxt8.Name = "biostxt8" + Me.biostxt8.Size = New System.Drawing.Size(642, 29) + Me.biostxt8.TabIndex = 10 + Me.biostxt8.Text = "Press F2 to run Setup (CTRL+E on Remote Keyboard)" + Me.biostxt8.Visible = false + ' + 'biostxt10 + ' + Me.biostxt10.AutoSize = true + Me.biostxt10.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt10.ForeColor = System.Drawing.Color.Silver + Me.biostxt10.Location = New System.Drawing.Point(1, 417) + Me.biostxt10.Name = "biostxt10" + Me.biostxt10.Size = New System.Drawing.Size(686, 29) + Me.biostxt10.TabIndex = 11 + Me.biostxt10.Text = "Press F8 for BBS POPUP (CTRL+P on Remote Keyboard)" + Me.biostxt10.Visible = false + ' + 'biostxt11 + ' + Me.biostxt11.AutoSize = true + Me.biostxt11.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt11.ForeColor = System.Drawing.Color.Silver + Me.biostxt11.Location = New System.Drawing.Point(-2, 446) + Me.biostxt11.Name = "biostxt11" + Me.biostxt11.Size = New System.Drawing.Size(426, 29) + Me.biostxt11.TabIndex = 12 + Me.biostxt11.Text = "QPI Operational Speed at : 6.4GT/s" + Me.biostxt11.Visible = false + ' + 'biostxt12 + ' + Me.biostxt12.AutoSize = true + Me.biostxt12.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt12.ForeColor = System.Drawing.Color.Silver + Me.biostxt12.Location = New System.Drawing.Point(1, 475) + Me.biostxt12.Name = "biostxt12" + Me.biostxt12.Size = New System.Drawing.Size(377, 29) + Me.biostxt12.TabIndex = 13 + Me.biostxt12.Text = "BNC Fireware Revision: 2.0.2.9" + Me.biostxt12.Visible = false + ' + 'biostxt13 + ' + Me.biostxt13.AutoSize = true + Me.biostxt13.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt13.ForeColor = System.Drawing.Color.Silver + Me.biostxt13.Location = New System.Drawing.Point(1, 504) + Me.biostxt13.Name = "biostxt13" + Me.biostxt13.Size = New System.Drawing.Size(347, 29) + Me.biostxt13.TabIndex = 14 + Me.biostxt13.Text = "Initializing USB Controllers .." + Me.biostxt13.Visible = false + ' + 'biostxt15 + ' + Me.biostxt15.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles) + Me.biostxt15.AutoSize = true + Me.biostxt15.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt15.ForeColor = System.Drawing.Color.Silver + Me.biostxt15.Location = New System.Drawing.Point(0, 615) + Me.biostxt15.Name = "biostxt15" + Me.biostxt15.Size = New System.Drawing.Size(765, 29) + Me.biostxt15.TabIndex = 15 + Me.biostxt15.Text = "64-3047-009999-00101111-022509-TYLSBURG-3AB0N838-Y2KC" + ' + 'biostxt14 + ' + Me.biostxt14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles) + Me.biostxt14.AutoSize = true + Me.biostxt14.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt14.ForeColor = System.Drawing.Color.Silver + Me.biostxt14.Location = New System.Drawing.Point(-2, 586) + Me.biostxt14.Name = "biostxt14" + Me.biostxt14.Size = New System.Drawing.Size(365, 29) + Me.biostxt14.TabIndex = 16 + Me.biostxt14.Text = "(C) American Megatrends. Inc." + ' + 'biostxt16 + ' + Me.biostxt16.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.biostxt16.AutoSize = true + Me.biostxt16.Font = New System.Drawing.Font("Microsoft Sans Serif", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.biostxt16.ForeColor = System.Drawing.Color.Silver + Me.biostxt16.Location = New System.Drawing.Point(817, 615) + Me.biostxt16.Name = "biostxt16" + Me.biostxt16.Size = New System.Drawing.Size(72, 29) + Me.biostxt16.TabIndex = 17 + Me.biostxt16.Text = "6B38" + ' + 'Biosload + ' + Me.Biosload.Enabled = true + Me.Biosload.Interval = 500 + ' + 'Bios + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(887, 641) + Me.Controls.Add(Me.biostxt16) + Me.Controls.Add(Me.biostxt14) + Me.Controls.Add(Me.biostxt15) + Me.Controls.Add(Me.biostxt13) + Me.Controls.Add(Me.biostxt12) + Me.Controls.Add(Me.biostxt11) + Me.Controls.Add(Me.biostxt10) + Me.Controls.Add(Me.biostxt8) + Me.Controls.Add(Me.biostxt9) + Me.Controls.Add(Me.biostxt7) + Me.Controls.Add(Me.biostxt6) + Me.Controls.Add(Me.biostxt5) + Me.Controls.Add(Me.biostxt4) + Me.Controls.Add(Me.biostxt3) + Me.Controls.Add(Me.biostxt2) + Me.Controls.Add(Me.biostxt1) + Me.Controls.Add(Me.Sunimage) + Me.Controls.Add(Me.Americanimage) + Me.Name = "Bios" + Me.Text = "Bios" + Me.TopMost = true + CType(Me.Sunimage,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.Americanimage,System.ComponentModel.ISupportInitialize).EndInit + Me.ResumeLayout(false) + Me.PerformLayout + +End Sub + + Friend WithEvents Americanimage As PictureBox + Friend WithEvents Sunimage As PictureBox + Friend WithEvents biostxt1 As Label + Friend WithEvents biostxt2 As Label + Friend WithEvents biostxt3 As Label + Friend WithEvents biostxt4 As Label + Friend WithEvents biostxt5 As Label + Friend WithEvents biostxt6 As Label + Friend WithEvents biostxt7 As Label + Friend WithEvents biostxt9 As Label + Friend WithEvents biostxt8 As Label + Friend WithEvents biostxt10 As Label + Friend WithEvents biostxt11 As Label + Friend WithEvents biostxt12 As Label + Friend WithEvents biostxt13 As Label + Friend WithEvents biostxt15 As Label + Friend WithEvents biostxt14 As Label + Friend WithEvents biostxt16 As Label + Friend WithEvents Biosload As Timer +End Class diff --git a/windows 95/Bios.resx b/windows 95/Bios.resx new file mode 100644 index 0000000..6b54ebe --- /dev/null +++ b/windows 95/Bios.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/windows 95/Bios.vb b/windows 95/Bios.vb new file mode 100644 index 0000000..fd8ac74 --- /dev/null +++ b/windows 95/Bios.vb @@ -0,0 +1,72 @@ +Public Class Bios + + Dim counter As Integer = 0 + + Private Sub Bios_Load(sender As Object, e As EventArgs) Handles Me.Load + Me.TopMost = True + Me.FormBorderStyle = FormBorderStyle.None + Me.Width = Screen.PrimaryScreen.Bounds.Width + Me.Height = Screen.PrimaryScreen.Bounds.Height + Me.Left = 0 + Me.Top = 0 + End Sub + Dim winbootground As Image + Public Sub winload(ByVal image As Image, ByVal winver As Form) + Biosload.Enabled = True + winbootground = image + windowsboot.winversion = winver + End Sub + + Private Sub Biosload_Tick(sender As Object, e As EventArgs) Handles Biosload.Tick + Select Case counter + Case 5 + biostxt1.Visible = True + Case 6 + biostxt2.Visible = True + Case 7 + biostxt3.Visible = True + Case 8 + biostxt4.Visible = True + Case 9 + biostxt5.Visible = True + Case 10 + biostxt6.Visible = True + Case 11 + biostxt7.Visible = True + Biosload.Interval = 900 + Case 12 + biostxt8.Visible = True + Biosload.Interval = 500 + Case 13 + biostxt9.Visible = True + Case 14 + biostxt10.Visible = True + Case 15 + biostxt11.Visible = True + Case 16 + biostxt12.Visible = True + Case 17 + biostxt13.Visible = True + Case 25 + windowsboot.Show() + windowsboot.bootimage.Image = winbootground + counter = -1 + Biosload.Enabled = False + Me.Hide() + biostxt1.Visible = False + biostxt2.Visible = False + biostxt3.Visible = False + biostxt4.Visible = False + biostxt5.Visible = False + biostxt6.Visible = False + biostxt7.Visible = False + biostxt8.Visible = False + biostxt9.Visible = False + biostxt10.Visible = False + biostxt11.Visible = False + biostxt12.Visible = False + biostxt13.Visible = False + End Select + counter = counter + 1 + End Sub +End Class \ No newline at end of file diff --git a/windows 95/WebChat 1999.Designer.vb b/windows 95/WebChat 1999.Designer.vb index 51e36c3..04a2483 100755 --- a/windows 95/WebChat 1999.Designer.vb +++ b/windows 95/WebChat 1999.Designer.vb @@ -26,7 +26,10 @@ Partial Class WebChat_1999 Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WebChat_1999)) Me.program = New System.Windows.Forms.Panel() Me.programtopbar = New System.Windows.Forms.Panel() + Me.maximizebutton = New System.Windows.Forms.PictureBox() + Me.minimizebutton = New System.Windows.Forms.PictureBox() Me.programname = New System.Windows.Forms.Label() + Me.closebutton = New System.Windows.Forms.PictureBox() Me.login = New System.Windows.Forms.Panel() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.TextBox1 = New System.Windows.Forms.TextBox() @@ -36,14 +39,22 @@ Partial Class WebChat_1999 Me.txtscreenname = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() + Me.toprightcorner = New System.Windows.Forms.Panel() + Me.bottomrightcorner = New System.Windows.Forms.Panel() Me.history = New System.Windows.Forms.TextBox() Me.Label6 = New System.Windows.Forms.Label() + Me.bottomleftcorner = New System.Windows.Forms.Panel() Me.typechat = New System.Windows.Forms.TextBox() + Me.topleftcorner = New System.Windows.Forms.Panel() Me.Button2 = New System.Windows.Forms.Button() + Me.left = New System.Windows.Forms.Panel() Me.Label1 = New System.Windows.Forms.Label() + Me.bottom = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel() Me.Button5 = New System.Windows.Forms.Button() Me.Label5 = New System.Windows.Forms.Label() + Me.right = New System.Windows.Forms.Panel() + Me.top = New System.Windows.Forms.Panel() Me.ListBox1 = New System.Windows.Forms.ListBox() Me.Chat = New System.Windows.Forms.Timer(Me.components) Me.look = New System.Windows.Forms.Timer(Me.components) @@ -52,24 +63,13 @@ Partial Class WebChat_1999 Me.pullside = New System.Windows.Forms.Timer(Me.components) Me.waitingdownload = New System.Windows.Forms.Timer(Me.components) Me.count = New System.Windows.Forms.Timer(Me.components) - Me.maximizebutton = New System.Windows.Forms.PictureBox() - Me.minimizebutton = New System.Windows.Forms.PictureBox() - Me.closebutton = New System.Windows.Forms.PictureBox() - Me.toprightcorner = New System.Windows.Forms.Panel() - Me.bottomrightcorner = New System.Windows.Forms.Panel() - Me.bottomleftcorner = New System.Windows.Forms.Panel() - Me.topleftcorner = New System.Windows.Forms.Panel() - Me.left = New System.Windows.Forms.Panel() - Me.bottom = New System.Windows.Forms.Panel() - Me.right = New System.Windows.Forms.Panel() - Me.top = New System.Windows.Forms.Panel() Me.program.SuspendLayout() Me.programtopbar.SuspendLayout() - Me.login.SuspendLayout() - Me.Panel1.SuspendLayout() CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.closebutton, System.ComponentModel.ISupportInitialize).BeginInit() + Me.login.SuspendLayout() + Me.Panel1.SuspendLayout() Me.SuspendLayout() ' 'program @@ -112,6 +112,26 @@ Partial Class WebChat_1999 Me.programtopbar.Size = New System.Drawing.Size(808, 18) Me.programtopbar.TabIndex = 0 ' + 'maximizebutton + ' + Me.maximizebutton.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.maximizebutton.Image = Global.Histacom.My.Resources.Resources.Maximize + Me.maximizebutton.Location = New System.Drawing.Point(774, 2) + Me.maximizebutton.Name = "maximizebutton" + Me.maximizebutton.Size = New System.Drawing.Size(16, 14) + Me.maximizebutton.TabIndex = 6 + Me.maximizebutton.TabStop = False + ' + 'minimizebutton + ' + Me.minimizebutton.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.minimizebutton.Image = Global.Histacom.My.Resources.Resources.minimize + Me.minimizebutton.Location = New System.Drawing.Point(758, 2) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(16, 14) + Me.minimizebutton.TabIndex = 5 + Me.minimizebutton.TabStop = False + ' 'programname ' Me.programname.AutoSize = True @@ -123,6 +143,16 @@ Partial Class WebChat_1999 Me.programname.TabIndex = 3 Me.programname.Text = "Web Chat 1999" ' + 'closebutton + ' + Me.closebutton.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.closebutton.Image = Global.Histacom.My.Resources.Resources.close + Me.closebutton.Location = New System.Drawing.Point(791, 2) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(16, 14) + Me.closebutton.TabIndex = 4 + Me.closebutton.TabStop = False + ' 'login ' Me.login.BackColor = System.Drawing.Color.Moccasin @@ -150,8 +180,8 @@ Partial Class WebChat_1999 Me.TextBox2.ReadOnly = True Me.TextBox2.Size = New System.Drawing.Size(151, 108) Me.TextBox2.TabIndex = 6 - Me.TextBox2.Text = "A screen name is a tempary name which is displayed in place of your real name. To" & _ - " keep your identity safe please don't enter your real name in this chatroom" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.TextBox2.Text = "A screen name is a tempary name which is displayed in place of your real name. To" & + " keep your identity safe please don't enter your real name in this chatroom" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) ' 'TextBox1 ' @@ -214,20 +244,39 @@ Partial Class WebChat_1999 'Label7 ' Me.Label7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Monotype Corsiva", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label7.Location = New System.Drawing.Point(63, 31) Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(437, 17) + Me.Label7.Size = New System.Drawing.Size(539, 18) Me.Label7.TabIndex = 18 Me.Label7.Text = "To Speak Just type a message in the bottom textbox then press the speak button" ' + 'toprightcorner + ' + Me.toprightcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.toprightcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95toprightcorner + Me.toprightcorner.Location = New System.Drawing.Point(812, 0) + Me.toprightcorner.Name = "toprightcorner" + Me.toprightcorner.Size = New System.Drawing.Size(4, 4) + Me.toprightcorner.TabIndex = 6 + ' + 'bottomrightcorner + ' + Me.bottomrightcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.bottomrightcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottomrightcorner + Me.bottomrightcorner.Cursor = System.Windows.Forms.Cursors.SizeNWSE + Me.bottomrightcorner.Location = New System.Drawing.Point(812, 487) + Me.bottomrightcorner.Name = "bottomrightcorner" + Me.bottomrightcorner.Size = New System.Drawing.Size(4, 4) + Me.bottomrightcorner.TabIndex = 4 + ' 'history ' Me.history.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.history.BackColor = System.Drawing.Color.LemonChiffon Me.history.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.history.Font = New System.Drawing.Font("Georgia", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -250,10 +299,19 @@ Partial Class WebChat_1999 Me.Label6.TabIndex = 17 Me.Label6.Text = "File Sharing" ' + 'bottomleftcorner + ' + Me.bottomleftcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.bottomleftcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottomleftcorner + Me.bottomleftcorner.Location = New System.Drawing.Point(0, 487) + Me.bottomleftcorner.Name = "bottomleftcorner" + Me.bottomleftcorner.Size = New System.Drawing.Size(4, 4) + Me.bottomleftcorner.TabIndex = 2 + ' 'typechat ' Me.typechat.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.typechat.BackColor = System.Drawing.Color.Moccasin Me.typechat.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.typechat.Location = New System.Drawing.Point(22, 444) @@ -262,6 +320,14 @@ Partial Class WebChat_1999 Me.typechat.Size = New System.Drawing.Size(487, 23) Me.typechat.TabIndex = 9 ' + 'topleftcorner + ' + Me.topleftcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95topleftcorner + Me.topleftcorner.Location = New System.Drawing.Point(0, 0) + Me.topleftcorner.Name = "topleftcorner" + Me.topleftcorner.Size = New System.Drawing.Size(4, 4) + Me.topleftcorner.TabIndex = 1 + ' 'Button2 ' Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -275,6 +341,15 @@ Partial Class WebChat_1999 Me.Button2.Text = "Speak" Me.Button2.UseVisualStyleBackColor = False ' + 'left + ' + Me.left.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95leftside + Me.left.Dock = System.Windows.Forms.DockStyle.Left + Me.left.Location = New System.Drawing.Point(0, 4) + Me.left.Name = "left" + Me.left.Size = New System.Drawing.Size(4, 483) + Me.left.TabIndex = 3 + ' 'Label1 ' Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -286,6 +361,16 @@ Partial Class WebChat_1999 Me.Label1.TabIndex = 7 Me.Label1.Text = "Users Logged In" ' + 'bottom + ' + Me.bottom.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottom + Me.bottom.Cursor = System.Windows.Forms.Cursors.SizeNS + Me.bottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.bottom.Location = New System.Drawing.Point(0, 487) + Me.bottom.Name = "bottom" + Me.bottom.Size = New System.Drawing.Size(812, 4) + Me.bottom.TabIndex = 5 + ' 'Panel1 ' Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -316,10 +401,29 @@ Partial Class WebChat_1999 Me.Label5.TabIndex = 15 Me.Label5.Text = "Time Distorter 0.2" ' + 'right + ' + Me.right.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95rightside + Me.right.Cursor = System.Windows.Forms.Cursors.SizeWE + Me.right.Dock = System.Windows.Forms.DockStyle.Right + Me.right.Location = New System.Drawing.Point(812, 4) + Me.right.Name = "right" + Me.right.Size = New System.Drawing.Size(4, 487) + Me.right.TabIndex = 7 + ' + 'top + ' + Me.top.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95top + Me.top.Dock = System.Windows.Forms.DockStyle.Top + Me.top.Location = New System.Drawing.Point(0, 0) + Me.top.Name = "top" + Me.top.Size = New System.Drawing.Size(816, 4) + Me.top.TabIndex = 8 + ' 'ListBox1 ' Me.ListBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.ListBox1.BackColor = System.Drawing.Color.PapayaWhip Me.ListBox1.FormattingEnabled = True Me.ListBox1.Location = New System.Drawing.Point(599, 51) @@ -353,110 +457,6 @@ Partial Class WebChat_1999 ' Me.count.Interval = 1000 ' - 'maximizebutton - ' - Me.maximizebutton.Anchor = System.Windows.Forms.AnchorStyles.Right - Me.maximizebutton.Image = Global.Histacom.My.Resources.Resources.Maximize - Me.maximizebutton.Location = New System.Drawing.Point(774, 2) - Me.maximizebutton.Name = "maximizebutton" - Me.maximizebutton.Size = New System.Drawing.Size(16, 14) - Me.maximizebutton.TabIndex = 6 - Me.maximizebutton.TabStop = False - ' - 'minimizebutton - ' - Me.minimizebutton.Anchor = System.Windows.Forms.AnchorStyles.Right - Me.minimizebutton.Image = Global.Histacom.My.Resources.Resources.minimize - Me.minimizebutton.Location = New System.Drawing.Point(758, 2) - Me.minimizebutton.Name = "minimizebutton" - Me.minimizebutton.Size = New System.Drawing.Size(16, 14) - Me.minimizebutton.TabIndex = 5 - Me.minimizebutton.TabStop = False - ' - 'closebutton - ' - Me.closebutton.Anchor = System.Windows.Forms.AnchorStyles.Right - Me.closebutton.Image = Global.Histacom.My.Resources.Resources.close - Me.closebutton.Location = New System.Drawing.Point(791, 2) - Me.closebutton.Name = "closebutton" - Me.closebutton.Size = New System.Drawing.Size(16, 14) - Me.closebutton.TabIndex = 4 - Me.closebutton.TabStop = False - ' - 'toprightcorner - ' - Me.toprightcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.toprightcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95toprightcorner - Me.toprightcorner.Location = New System.Drawing.Point(812, 0) - Me.toprightcorner.Name = "toprightcorner" - Me.toprightcorner.Size = New System.Drawing.Size(4, 4) - Me.toprightcorner.TabIndex = 6 - ' - 'bottomrightcorner - ' - Me.bottomrightcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.bottomrightcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottomrightcorner - Me.bottomrightcorner.Cursor = System.Windows.Forms.Cursors.SizeNWSE - Me.bottomrightcorner.Location = New System.Drawing.Point(812, 487) - Me.bottomrightcorner.Name = "bottomrightcorner" - Me.bottomrightcorner.Size = New System.Drawing.Size(4, 4) - Me.bottomrightcorner.TabIndex = 4 - ' - 'bottomleftcorner - ' - Me.bottomleftcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.bottomleftcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottomleftcorner - Me.bottomleftcorner.Location = New System.Drawing.Point(0, 487) - Me.bottomleftcorner.Name = "bottomleftcorner" - Me.bottomleftcorner.Size = New System.Drawing.Size(4, 4) - Me.bottomleftcorner.TabIndex = 2 - ' - 'topleftcorner - ' - Me.topleftcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95topleftcorner - Me.topleftcorner.Location = New System.Drawing.Point(0, 0) - Me.topleftcorner.Name = "topleftcorner" - Me.topleftcorner.Size = New System.Drawing.Size(4, 4) - Me.topleftcorner.TabIndex = 1 - ' - 'left - ' - Me.left.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95leftside - Me.left.Dock = System.Windows.Forms.DockStyle.Left - Me.left.Location = New System.Drawing.Point(0, 4) - Me.left.Name = "left" - Me.left.Size = New System.Drawing.Size(4, 483) - Me.left.TabIndex = 3 - ' - 'bottom - ' - Me.bottom.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottom - Me.bottom.Cursor = System.Windows.Forms.Cursors.SizeNS - Me.bottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.bottom.Location = New System.Drawing.Point(0, 487) - Me.bottom.Name = "bottom" - Me.bottom.Size = New System.Drawing.Size(812, 4) - Me.bottom.TabIndex = 5 - ' - 'right - ' - Me.right.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95rightside - Me.right.Cursor = System.Windows.Forms.Cursors.SizeWE - Me.right.Dock = System.Windows.Forms.DockStyle.Right - Me.right.Location = New System.Drawing.Point(812, 4) - Me.right.Name = "right" - Me.right.Size = New System.Drawing.Size(4, 487) - Me.right.TabIndex = 7 - ' - 'top - ' - Me.top.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95top - Me.top.Dock = System.Windows.Forms.DockStyle.Top - Me.top.Location = New System.Drawing.Point(0, 0) - Me.top.Name = "top" - Me.top.Size = New System.Drawing.Size(816, 4) - Me.top.TabIndex = 8 - ' 'WebChat_1999 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -471,13 +471,13 @@ Partial Class WebChat_1999 Me.program.PerformLayout() Me.programtopbar.ResumeLayout(False) Me.programtopbar.PerformLayout() + CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.closebutton, System.ComponentModel.ISupportInitialize).EndInit() Me.login.ResumeLayout(False) Me.login.PerformLayout() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() - CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.closebutton, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub diff --git a/windows 95/Webchat1998.vb b/windows 95/Webchat1998.vb index c9ec83d..adf5838 100755 --- a/windows 95/Webchat1998.vb +++ b/windows 95/Webchat1998.vb @@ -25,6 +25,12 @@ Chat.Start() ListBox1.Items.Add(username) history.Text += (username & " Has Logged On" & Environment.NewLine) + If username = ("") Then + Chat.Stop() + Dim showmess As New windows95messagebox + showmess.infomessage.Text = ("Blank names are not allowed. Please enter a valid name.") + showmess.Show() + End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click @@ -37,8 +43,22 @@ Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick Select Case con + Case 164 + history.Text = ("REMOVING ADDITIONAL CHANGES" & Environment.NewLine) + Windows95.taskbar.Show() + Windows95.Show() + history.ScrollBars = ScrollBars.Horizontal + Cursor.Show() + programtopbar.Show() + Windows95.desktopicons.Show() + history.ForeColor = Color.White + Windows95.startbutton.Show() + history.Text = ("The Hidden Hacker: All done!" & Environment.NewLine) + history.Text = ("The Hidden Hacker: Now, go back on the web and destroy him!" & Environment.NewLine) + con += 1 + Case 163 - history.Text = ("RESTORING BORDER" & Environment.NewLine) + history.Text = ("RESTORING BORDER..." & Environment.NewLine) program.BorderStyle = BorderStyle.FixedSingle history.BorderStyle = BorderStyle.FixedSingle top.Show() @@ -51,8 +71,7 @@ bottomleftcorner.Show() history.Text = ("BORDER RESTORE COMPLETE" & Environment.NewLine) Case 162 - history.Text = Environment.NewLine("RESTORING CHANGES..." & Environment.NewLine) - Chat.Interval = 3000 + history.Text = ("RESTORING CHANGES..." & Environment.NewLine) con += 1 Case 161 history.Text = ("The Hidden Hacker: Download complete" & Environment.NewLine) @@ -113,6 +132,8 @@ con += 1 Case 146 history.Text = ("??? is scanning IP address!" & Environment.NewLine) + con += 1 + Case 145 history.Text = ("???: Hello?! Anyone here?" & Environment.NewLine) con += 1 @@ -283,7 +304,7 @@ Chat.Interval = 2000 con += 1 Case 106 - history.Text += ("12padams: I see the scroll bar at the side of the screen which never existed early 1980s" & Environment.NewLine) + history.Text += ("12padams: First of all, I see the scroll bar at the side of the screen which never existed early 1980s." & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 105 @@ -342,7 +363,7 @@ Chat.Interval = 5000 con += 1 Case 92 - history.Text += ("12padams: This is good! Now i can teach you and punish you at the same time lol :) " & Environment.NewLine) + history.Text += ("12padams: This is good! Now I can teach you and punish you at the same time lol :) " & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 91 @@ -354,7 +375,7 @@ Chat.Interval = 10000 con += 1 Case 89 - history.Text += ("12padams: Oh yeah! You dont even talk so you problably don't even know it's gone... " & Environment.NewLine) + history.Text += ("12padams: Oh yeah! You dont even talk so you probably don't even know it's gone... " & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 88 @@ -402,7 +423,7 @@ Panel1.Hide() con += 1 Case 78 - history.Text += ("12padams: No because I got rid of him. Talking about getting rid of things! I forgot to remove the illegal file he uploaded which has been here all along..." & Environment.NewLine) + history.Text += ("12padams: No because I got rid of him. Talking about getting rid of things lol! I forgot to remove the illegal file he uploaded which has been here all along..." & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 77 @@ -481,11 +502,11 @@ Chat.Interval = 4000 con += 1 Case 60 - history.Text += ("12padams: Well the whole of Windows 95 is a virus. Where shall I begin?" & Environment.NewLine) + history.Text += ("12padams: Well, the whole of Windows 95 is a virus. Where shall I begin?" & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 59 - history.Text += ("12padams: Get rid of the viruses did you type?" & Environment.NewLine) + history.Text += ("12padams: Get rid of the viruses did you say?" & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 58 @@ -493,7 +514,7 @@ Chat.Interval = 5000 con += 1 Case 57 - history.Text += ("12padams: Anyway SkyHigh you are asking too many questions... It's time I unleash my next virus!" & Environment.NewLine) + history.Text += ("12padams: Anyway SkyHigh, you are asking too many questions. It's time I unleash my next virus!" & Environment.NewLine) Chat.Interval = 8000 con += 1 Case 56 @@ -505,7 +526,7 @@ Chat.Interval = 6000 con += 1 Case 54 - history.Text += ("12padams: You're both experienceing a lethal virus which i like to call ""death" & Environment.NewLine) + history.Text += ("12padams: You're both experiencing a lethal virus which I like to call ""death" & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 53 @@ -517,12 +538,12 @@ Chat.Interval = 5000 con += 1 Case 51 - history.Text += ("SkyHigh: Don't worry " & username & ", I'll look online for help" & Environment.NewLine) + history.Text += ("SkyHigh: Don't worry " & username & ", I'll look online for help!" & Environment.NewLine) Chat.Interval = 4000 Windows95.Enabled = False con += 1 Case 50 - history.Text += ("12padams: Trying to fight back are we...? Well I'll punish you both!" & Environment.NewLine) + history.Text += ("12padams: Trying to fight back are we? Well then, I'll punish you both!" & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 49 @@ -542,12 +563,12 @@ Chat.Interval = 6000 con += 1 Case 45 - history.Text += ("rain49 Has Logged Out" & Environment.NewLine) + history.Text += ("rain49 has logged off" & Environment.NewLine) ListBox1.Items.Remove("rain49") Chat.Interval = 7000 con += 1 Case 44 - history.Text += ("rain49: Oh yeah? Just watch!" & Environment.NewLine) + history.Text += ("rain49: Oh yeah? Just watch this!" & Environment.NewLine) Chat.Interval = 1000 con += 1 Case 43 @@ -555,11 +576,11 @@ Chat.Interval = 3000 con += 1 Case 42 - history.Text += ("rain49: No... because I can just turn my computer off at the power... " & Environment.NewLine) + history.Text += ("rain49: No... because I can just turn my computer off at the power!" & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 41 - history.Text += ("12padams: ... scared Yet?" & Environment.NewLine) + history.Text += ("12padams: Are we scared yet?" & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 40 diff --git a/windows 95/Windows95.Designer.vb b/windows 95/Windows95.Designer.vb index b642ed5..de90764 100755 --- a/windows 95/Windows95.Designer.vb +++ b/windows 95/Windows95.Designer.vb @@ -740,7 +740,7 @@ Partial Class Windows95 'exampleprogramtopbar ' Me.exampleprogramtopbar.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.exampleprogramtopbar.BackColor = System.Drawing.Color.DarkBlue Me.exampleprogramtopbar.Controls.Add(Me.maximizebutton) Me.exampleprogramtopbar.Controls.Add(Me.minimizebutton) @@ -957,8 +957,8 @@ Partial Class Windows95 ' Me.desktopicons.Alignment = System.Windows.Forms.ListViewAlignment.Left Me.desktopicons.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.desktopicons.BackgroundImageTiled = True Me.desktopicons.BorderStyle = System.Windows.Forms.BorderStyle.None Me.desktopicons.ContextMenuStrip = Me.rightclickbackproperties diff --git a/windows 95/Windows95.resx b/windows 95/Windows95.resx index 0293162..cd72443 100755 --- a/windows 95/Windows95.resx +++ b/windows 95/Windows95.resx @@ -206,7 +206,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABG - uAAAAk1TRnQBSQFMAgEBDgEAAZgBAgGYAQIBIAEAASABAAT/AREBAAj/AUIBTQE2BwABNgMAASgDAAGA + uAAAAk1TRnQBSQFMAgEBDgEAAaABAgGgAQIBIAEAASABAAT/AREBAAj/AUIBTQE2BwABNgMAASgDAAGA AwABgAMAAQEBAAEQBgABgBIAAVcBBgHxAQUBFAECARMBAgEyAQIBcQEKAW8BEgHNAQUBUwECAXsBAwHf AQMBnQEDARgBAwG2AQIB1wECAXwBAwH/AQMBewEDAbYBAgF8AQMBfAEDAd8BAwEZAQMBdAECAY0BAQGM AQEBcwECATEBAgEyAQIBcwECAVoBAwFTASYBjwENARIBDgFNAQkBEwECAW4BBQGPAQEB8QEFARMBBgHx diff --git a/windows 95/Windows95.vb b/windows 95/Windows95.vb index c60e64b..0246ed6 100755 --- a/windows 95/Windows95.vb +++ b/windows 95/Windows95.vb @@ -255,4 +255,8 @@ showmess.infomessage.Text = "Your save code is: ety53g63" showmess.Show() End Sub + + Private Sub startmenuitems_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles startmenuitems.ItemClicked + + End Sub End Class diff --git a/windows 95/Windowsxp2002damaged.Designer.vb b/windows 95/Windowsxp2002damaged.Designer.vb index 7ef6268..76b9130 100755 --- a/windows 95/Windowsxp2002damaged.Designer.vb +++ b/windows 95/Windowsxp2002damaged.Designer.vb @@ -1315,7 +1315,7 @@ Partial Class Windowsxp2002damaged ' 'startbutton ' - Me.startbutton.Image = Global.Histacom.My.Resources.Resources.windowsxpstartbuttonpressed1 + Me.startbutton.Image = Global.Histacom.My.Resources.Resources.windowsxpstartbuttonpressed Me.startbutton.Location = New System.Drawing.Point(0, 0) Me.startbutton.Name = "startbutton" Me.startbutton.Size = New System.Drawing.Size(98, 30) diff --git a/windows 95/errorblaster95.Designer.vb b/windows 95/errorblaster95.Designer.vb index 43968f7..1849240 100755 --- a/windows 95/errorblaster95.Designer.vb +++ b/windows 95/errorblaster95.Designer.vb @@ -73,7 +73,7 @@ Partial Class errorblaster95 Me.Button2.Size = New System.Drawing.Size(87, 39) Me.Button2.TabIndex = 13 Me.Button2.Text = "Remove" - Me.Button2.UseVisualStyleBackColor = True + Me.Button2.UseVisualStyleBackColor = False ' 'Button1 ' diff --git a/windows 95/time distorter 0.2.Designer.vb b/windows 95/time distorter 0.2.Designer.vb index 07ff8b7..cdf31a3 100755 --- a/windows 95/time distorter 0.2.Designer.vb +++ b/windows 95/time distorter 0.2.Designer.vb @@ -69,10 +69,10 @@ Partial Class time_distorter_0 ' Me.labelcurrentyear.Anchor = System.Windows.Forms.AnchorStyles.Top Me.labelcurrentyear.AutoSize = True - Me.labelcurrentyear.Font = New System.Drawing.Font("MS Reference Sans Serif", 72.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.labelcurrentyear.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.labelcurrentyear.Location = New System.Drawing.Point(23, 53) Me.labelcurrentyear.Name = "labelcurrentyear" - Me.labelcurrentyear.Size = New System.Drawing.Size(298, 118) + Me.labelcurrentyear.Size = New System.Drawing.Size(261, 108) Me.labelcurrentyear.TabIndex = 1 Me.labelcurrentyear.Text = "1999" ' @@ -89,7 +89,7 @@ Partial Class time_distorter_0 'Button1 ' Me.Button1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button1.Location = New System.Drawing.Point(95, 218) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(156, 41) diff --git a/windows 95/time distorter 0.2.vb b/windows 95/time distorter 0.2.vb index 95eb3c3..ac48015 100755 --- a/windows 95/time distorter 0.2.vb +++ b/windows 95/time distorter 0.2.vb @@ -120,6 +120,10 @@ End Sub + Private Sub labelcurrentyear_Click(sender As Object, e As EventArgs) Handles labelcurrentyear.Click + + End Sub + Private Sub countdown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles countdown.Tick If count = 145 Then WebChat_1999.history.Text = WebChat_1999.history.Text + ("12padams: The most important thing now is preparing for when " & mainname & " gets to the year 2000" & Environment.NewLine) diff --git a/windows 95/windows 95.sln.ide/edb.chk b/windows 95/windows 95.sln.ide/edb.chk new file mode 100644 index 0000000..2e9bf01 Binary files /dev/null and b/windows 95/windows 95.sln.ide/edb.chk differ diff --git a/windows 95/windows 95.sln.ide/edbres00001.jrs b/windows 95/windows 95.sln.ide/edbres00001.jrs new file mode 100644 index 0000000..3301331 Binary files /dev/null and b/windows 95/windows 95.sln.ide/edbres00001.jrs differ diff --git a/windows 95/windows 95.sln.ide/edbres00002.jrs b/windows 95/windows 95.sln.ide/edbres00002.jrs new file mode 100644 index 0000000..3301331 Binary files /dev/null and b/windows 95/windows 95.sln.ide/edbres00002.jrs differ diff --git a/windows 95/windows 95.sln.ide/storage.ide b/windows 95/windows 95.sln.ide/storage.ide new file mode 100644 index 0000000..9a16be6 Binary files /dev/null and b/windows 95/windows 95.sln.ide/storage.ide differ diff --git a/windows 95/windows 95.vbproj b/windows 95/windows 95.vbproj index 980df7c..6993748 100644 --- a/windows 95/windows 95.vbproj +++ b/windows 95/windows 95.vbproj @@ -70,7 +70,7 @@ My Project\app.manifest - histacom logo.ico + histacom icon.ico @@ -1678,8 +1678,12 @@ - + + + + + @@ -1817,6 +1821,23 @@ + + + False + Microsoft .NET Framework 4 %28x86 and x64%29 + true + + + False + .NET Framework 3.5 SP1 + false + + + False + Windows Installer 4.5 + true + +