shiftos-archive/ShiftOS-TheRevival-Old
1
0
Fork 0
mirror of https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git synced 2025-01-22 18:02:16 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

0.2.8 final code

Browse source
This commit is contained in:
EverythingWindows 2022-12-10 01:56:35 +07:00
parent 2cb19f4dd0
commit 365cc92f8a
13 changed files with 646 additions and 85 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
View file

@ -144,7 +144,7 @@ Module SaveLoadSystem
Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(1) = "user"
Strings.ComputerInfo(2) = "0" Strings.ComputerInfo(2) = "0"
Strings.ComputerInfo(4) = "42" Strings.ComputerInfo(4) = "53"
Strings.AvailableFeature(0) = "1" Strings.AvailableFeature(0) = "1"
Strings.AvailableFeature(1) = "1" Strings.AvailableFeature(1) = "1"
Strings.AvailableFeature(2) = "1" Strings.AvailableFeature(2) = "1"
@ -213,7 +213,7 @@ Module SaveLoadSystem
'Same as new game but codepoints automatically assigned to 9999 and not saved into the FS 'Same as new game but codepoints automatically assigned to 9999 and not saved into the FS
Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(1) = "user"
Strings.ComputerInfo(2) = 9999 Strings.ComputerInfo(2) = 100000
Strings.ComputerInfo(4) = "0" Strings.ComputerInfo(4) = "0"
Strings.AvailableFeature(0) = "2" Strings.AvailableFeature(0) = "2"
Strings.AvailableFeature(1) = "2" Strings.AvailableFeature(1) = "2"

104
ShiftOS-TheRevival/Functions/OutGame/TheUpdater.vb
View file

@ -187,6 +187,18 @@ Module TheUpdater
Strings.AvailableFeature(39) = 2 Strings.AvailableFeature(39) = 2
Strings.AvailableFeature(40) = 2 Strings.AvailableFeature(40) = 2
Strings.AvailableFeature(41) = 2 Strings.AvailableFeature(41) = 2
Strings.AvailableFeature(42) = 2
Strings.AvailableFeature(43) = 2
Strings.AvailableFeature(44) = 2
Strings.AvailableFeature(45) = 2
Strings.AvailableFeature(46) = 2
Strings.AvailableFeature(47) = 2
Strings.AvailableFeature(48) = 2
Strings.AvailableFeature(49) = 2
Strings.AvailableFeature(50) = 2
Strings.AvailableFeature(51) = 2
Strings.AvailableFeature(52) = 2
Strings.AvailableFeature(53) = 2
Strings.ComputerInfo(0) = ComputerInfoHere(0) Strings.ComputerInfo(0) = ComputerInfoHere(0)
Strings.ComputerInfo(1) = ComputerInfoHere(1) Strings.ComputerInfo(1) = ComputerInfoHere(1)
Strings.ComputerInfo(2) = ComputerInfoHere(2) Strings.ComputerInfo(2) = ComputerInfoHere(2)
@ -247,6 +259,98 @@ Module TheUpdater
Strings.AvailableFeature(39) = 2 Strings.AvailableFeature(39) = 2
Strings.AvailableFeature(40) = 2 Strings.AvailableFeature(40) = 2
Strings.AvailableFeature(41) = 2 Strings.AvailableFeature(41) = 2
Strings.AvailableFeature(42) = 2
Strings.AvailableFeature(43) = 2
Strings.AvailableFeature(44) = 2
Strings.AvailableFeature(45) = 2
Strings.AvailableFeature(46) = 2
Strings.AvailableFeature(47) = 2
Strings.AvailableFeature(48) = 2
Strings.AvailableFeature(49) = 2
Strings.AvailableFeature(50) = 2
Strings.AvailableFeature(51) = 2
Strings.AvailableFeature(52) = 2
Strings.AvailableFeature(53) = 2
Strings.ComputerInfo(0) = ComputerInfoHere(0)
Strings.ComputerInfo(1) = ComputerInfoHere(1)
Strings.ComputerInfo(2) = ComputerInfoHere(2)
Strings.ComputerInfo(3) = ComputerInfoHere(3)
Strings.ComputerInfo(4) = ComputerInfoHere(4)
Strings.ComputerInfo(5) = "0F"
Strings.ComputerInfo(6) = "F0"
If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS") = True Then
Else
Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS")
End If
ShiftOSUpdater.Button2.Text = "Updated!"
Case "0.2.7"
Strings.AvailableFeature(0) = AvailableFeatureHere(0)
Strings.AvailableFeature(1) = AvailableFeatureHere(1)
Strings.AvailableFeature(2) = AvailableFeatureHere(2)
Strings.AvailableFeature(3) = AvailableFeatureHere(3)
Strings.AvailableFeature(4) = AvailableFeatureHere(4)
Strings.AvailableFeature(5) = AvailableFeatureHere(5)
Strings.AvailableFeature(6) = AvailableFeatureHere(6)
Strings.AvailableFeature(7) = AvailableFeatureHere(7)
Strings.AvailableFeature(8) = AvailableFeatureHere(8)
Strings.AvailableFeature(9) = AvailableFeatureHere(9)
Strings.AvailableFeature(10) = AvailableFeatureHere(10)
Strings.AvailableFeature(11) = AvailableFeatureHere(11)
Strings.AvailableFeature(12) = AvailableFeatureHere(12)
Strings.AvailableFeature(13) = AvailableFeatureHere(13)
Strings.AvailableFeature(14) = AvailableFeatureHere(14)
Strings.AvailableFeature(15) = AvailableFeatureHere(15)
Strings.AvailableFeature(16) = AvailableFeatureHere(16)
Strings.AvailableFeature(17) = AvailableFeatureHere(17)
Strings.AvailableFeature(18) = AvailableFeatureHere(18)
Strings.AvailableFeature(19) = AvailableFeatureHere(19)
Strings.AvailableFeature(20) = AvailableFeatureHere(20)
Strings.AvailableFeature(21) = AvailableFeatureHere(21)
Strings.AvailableFeature(22) = AvailableFeatureHere(22)
Strings.AvailableFeature(23) = AvailableFeatureHere(23)
Strings.AvailableFeature(24) = AvailableFeatureHere(24)
Strings.AvailableFeature(25) = AvailableFeatureHere(25)
Strings.AvailableFeature(26) = AvailableFeatureHere(26)
Strings.AvailableFeature(27) = AvailableFeatureHere(27)
Strings.AvailableFeature(28) = AvailableFeatureHere(28)
Strings.AvailableFeature(29) = AvailableFeatureHere(29)
Strings.AvailableFeature(30) = AvailableFeatureHere(30)
Strings.AvailableFeature(31) = AvailableFeatureHere(31)
Strings.AvailableFeature(32) = AvailableFeatureHere(32)
Strings.AvailableFeature(33) = AvailableFeatureHere(33)
Strings.AvailableFeature(34) = AvailableFeatureHere(34)
Strings.AvailableFeature(35) = AvailableFeatureHere(35)
Strings.AvailableFeature(36) = AvailableFeatureHere(36)
Strings.AvailableFeature(37) = AvailableFeatureHere(37)
Strings.AvailableFeature(38) = AvailableFeatureHere(38)
Strings.AvailableFeature(39) = AvailableFeatureHere(39)
Strings.AvailableFeature(40) = AvailableFeatureHere(40)
Strings.AvailableFeature(41) = AvailableFeatureHere(41)
If Strings.AvailableFeature(37) = 1 Then
Strings.AvailableFeature(42) = 0
Else
Strings.AvailableFeature(42) = 2
End If
If Strings.AvailableFeature(35) = 1 Then
Strings.AvailableFeature(43) = 0
Else
Strings.AvailableFeature(43) = 2
End If
Strings.AvailableFeature(44) = 2
Strings.AvailableFeature(45) = 2
Strings.AvailableFeature(46) = 2
Strings.AvailableFeature(47) = 2
Strings.AvailableFeature(48) = 2
Strings.AvailableFeature(49) = 2
Strings.AvailableFeature(50) = 2
Strings.AvailableFeature(51) = 2
Strings.AvailableFeature(52) = 2
If Strings.AvailableFeature(36) = 1 Then
Strings.AvailableFeature(53) = 0
Else
Strings.AvailableFeature(53) = 2
End If
Strings.ComputerInfo(0) = ComputerInfoHere(0) Strings.ComputerInfo(0) = ComputerInfoHere(0)
Strings.ComputerInfo(1) = ComputerInfoHere(1) Strings.ComputerInfo(1) = ComputerInfoHere(1)
Strings.ComputerInfo(2) = ComputerInfoHere(2) Strings.ComputerInfo(2) = ComputerInfoHere(2)

315
ShiftOS-TheRevival/MainForms/Applications/Universal/Calculator/Uni_Calculator.Designer.vb generated Normal file
View file

@ -0,0 +1,315 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Uni_Calculator
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button()
Me.Button12 = New System.Windows.Forms.Button()
Me.Button13 = New System.Windows.Forms.Button()
Me.Button14 = New System.Windows.Forms.Button()
Me.Button15 = New System.Windows.Forms.Button()
Me.Button16 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'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)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button1.Location = New System.Drawing.Point(12, 122)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(150, 80)
Me.Button1.TabIndex = 0
Me.Button1.Text = "1"
Me.Button1.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.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)
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.Font = New System.Drawing.Font("Tahoma", 20.0!, System.Drawing.FontStyle.Italic)
Me.Label1.Location = New System.Drawing.Point(12, 32)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(618, 77)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Fuck you, Calculator!"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Button2
'
Me.Button2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button2.Location = New System.Drawing.Point(168, 122)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(150, 80)
Me.Button2.TabIndex = 0
Me.Button2.Text = "2"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button3.Location = New System.Drawing.Point(324, 122)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(150, 80)
Me.Button3.TabIndex = 0
Me.Button3.Text = "3"
Me.Button3.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button4.Location = New System.Drawing.Point(480, 122)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(150, 80)
Me.Button4.TabIndex = 0
Me.Button4.Text = "+"
Me.Button4.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button5.Location = New System.Drawing.Point(12, 208)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(150, 80)
Me.Button5.TabIndex = 0
Me.Button5.Text = "4"
Me.Button5.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button6.Location = New System.Drawing.Point(168, 208)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(150, 80)
Me.Button6.TabIndex = 0
Me.Button6.Text = "5"
Me.Button6.UseVisualStyleBackColor = True
'
'Button7
'
Me.Button7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button7.Location = New System.Drawing.Point(324, 208)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(150, 80)
Me.Button7.TabIndex = 0
Me.Button7.Text = "6"
Me.Button7.UseVisualStyleBackColor = True
'
'Button8
'
Me.Button8.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button8.Location = New System.Drawing.Point(480, 208)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(150, 80)
Me.Button8.TabIndex = 0
Me.Button8.Text = "-"
Me.Button8.UseVisualStyleBackColor = True
'
'Button9
'
Me.Button9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button9.Location = New System.Drawing.Point(12, 294)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(150, 80)
Me.Button9.TabIndex = 0
Me.Button9.Text = "7"
Me.Button9.UseVisualStyleBackColor = True
'
'Button10
'
Me.Button10.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button10.Location = New System.Drawing.Point(12, 380)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(150, 80)
Me.Button10.TabIndex = 0
Me.Button10.Text = "C"
Me.Button10.UseVisualStyleBackColor = True
'
'Button11
'
Me.Button11.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button11.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button11.Location = New System.Drawing.Point(168, 294)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(150, 80)
Me.Button11.TabIndex = 0
Me.Button11.Text = "8"
Me.Button11.UseVisualStyleBackColor = True
'
'Button12
'
Me.Button12.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button12.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button12.Location = New System.Drawing.Point(168, 380)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(150, 80)
Me.Button12.TabIndex = 0
Me.Button12.Text = "0"
Me.Button12.UseVisualStyleBackColor = True
'
'Button13
'
Me.Button13.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button13.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button13.Location = New System.Drawing.Point(324, 294)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(150, 80)
Me.Button13.TabIndex = 0
Me.Button13.Text = "9"
Me.Button13.UseVisualStyleBackColor = True
'
'Button14
'
Me.Button14.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button14.Location = New System.Drawing.Point(324, 380)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(150, 80)
Me.Button14.TabIndex = 0
Me.Button14.Text = "="
Me.Button14.UseVisualStyleBackColor = True
'
'Button15
'
Me.Button15.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button15.Location = New System.Drawing.Point(480, 294)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(150, 80)
Me.Button15.TabIndex = 0
Me.Button15.Text = "*"
Me.Button15.UseVisualStyleBackColor = True
'
'Button16
'
Me.Button16.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button16.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button16.Location = New System.Drawing.Point(480, 380)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(150, 80)
Me.Button16.TabIndex = 0
Me.Button16.Text = "/"
Me.Button16.UseVisualStyleBackColor = True
'
'Uni_Calculator
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(640, 480)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button16)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button15)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button14)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button13)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button12)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button11)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button9)
Me.Controls.Add(Me.Button1)
Me.ForeColor = System.Drawing.Color.Black
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Uni_Calculator"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Uni_Calculator"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button1 As Button
Friend WithEvents Label1 As Label
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents Button4 As Button
Friend WithEvents Button5 As Button
Friend WithEvents Button6 As Button
Friend WithEvents Button7 As Button
Friend WithEvents Button8 As Button
Friend WithEvents Button9 As Button
Friend WithEvents Button10 As Button
Friend WithEvents Button11 As Button
Friend WithEvents Button12 As Button
Friend WithEvents Button13 As Button
Friend WithEvents Button14 As Button
Friend WithEvents Button15 As Button
Friend WithEvents Button16 As Button
End Class

120
ShiftOS-TheRevival/MainForms/Applications/Universal/Calculator/Uni_Calculator.resx Normal file
View file

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

3
ShiftOS-TheRevival/MainForms/Applications/Universal/Calculator/Uni_Calculator.vb Normal file
View file

@ -0,0 +1,3 @@
Public Class Uni_Calculator
End Class

13
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.Designer.vb generated
View file

@ -72,6 +72,7 @@ Partial Class Uni_FileSkimmer
Me.msn_Options.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.OptionsToolStripMenuItem, Me.AboutToolStripMenuItem}) Me.msn_Options.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.OptionsToolStripMenuItem, Me.AboutToolStripMenuItem})
Me.msn_Options.Location = New System.Drawing.Point(0, 0) Me.msn_Options.Location = New System.Drawing.Point(0, 0)
Me.msn_Options.Name = "msn_Options" Me.msn_Options.Name = "msn_Options"
Me.msn_Options.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Me.msn_Options.Size = New System.Drawing.Size(800, 27) Me.msn_Options.Size = New System.Drawing.Size(800, 27)
Me.msn_Options.TabIndex = 0 Me.msn_Options.TabIndex = 0
Me.msn_Options.Text = "mns_Options" Me.msn_Options.Text = "mns_Options"
@ -86,24 +87,24 @@ Partial Class Uni_FileSkimmer
'CompressToolStripMenuItem 'CompressToolStripMenuItem
' '
Me.CompressToolStripMenuItem.Name = "CompressToolStripMenuItem" Me.CompressToolStripMenuItem.Name = "CompressToolStripMenuItem"
Me.CompressToolStripMenuItem.Size = New System.Drawing.Size(139, 24) Me.CompressToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
Me.CompressToolStripMenuItem.Text = "Compress" Me.CompressToolStripMenuItem.Text = "Compress"
' '
'DeleteToolStripMenuItem 'DeleteToolStripMenuItem
' '
Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem" Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem"
Me.DeleteToolStripMenuItem.Size = New System.Drawing.Size(139, 24) Me.DeleteToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
Me.DeleteToolStripMenuItem.Text = "Delete" Me.DeleteToolStripMenuItem.Text = "Delete"
' '
'ToolStripSeparator1 'ToolStripSeparator1
' '
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(136, 6) Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
' '
'CloseToolStripMenuItem 'CloseToolStripMenuItem
' '
Me.CloseToolStripMenuItem.Name = "CloseToolStripMenuItem" Me.CloseToolStripMenuItem.Name = "CloseToolStripMenuItem"
Me.CloseToolStripMenuItem.Size = New System.Drawing.Size(139, 24) Me.CloseToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
Me.CloseToolStripMenuItem.Text = "Close" Me.CloseToolStripMenuItem.Text = "Close"
' '
'OptionsToolStripMenuItem 'OptionsToolStripMenuItem
@ -117,14 +118,14 @@ Partial Class Uni_FileSkimmer
' '
Me.JobBarToolStripMenuItem.CheckOnClick = True Me.JobBarToolStripMenuItem.CheckOnClick = True
Me.JobBarToolStripMenuItem.Name = "JobBarToolStripMenuItem" Me.JobBarToolStripMenuItem.Name = "JobBarToolStripMenuItem"
Me.JobBarToolStripMenuItem.Size = New System.Drawing.Size(165, 24) Me.JobBarToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
Me.JobBarToolStripMenuItem.Text = "JobBar" Me.JobBarToolStripMenuItem.Text = "JobBar"
' '
'PropertyPaneToolStripMenuItem 'PropertyPaneToolStripMenuItem
' '
Me.PropertyPaneToolStripMenuItem.CheckOnClick = True Me.PropertyPaneToolStripMenuItem.CheckOnClick = True
Me.PropertyPaneToolStripMenuItem.Name = "PropertyPaneToolStripMenuItem" Me.PropertyPaneToolStripMenuItem.Name = "PropertyPaneToolStripMenuItem"
Me.PropertyPaneToolStripMenuItem.Size = New System.Drawing.Size(165, 24) Me.PropertyPaneToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
Me.PropertyPaneToolStripMenuItem.Text = "Property Pane" Me.PropertyPaneToolStripMenuItem.Text = "Property Pane"
' '
'AboutToolStripMenuItem 'AboutToolStripMenuItem

50
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.resx
View file

@ -128,7 +128,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAA+ ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAA+
GAAAAk1TRnQBSQFMAgEBCgEAAbABAAGwAQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo GAAAAk1TRnQBSQFMAgEBCgEAAbgBAAG4AQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABqAMAAX4DAAEBAQABCAUAAbABUhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc AwABqAMAAX4DAAEBAQABCAUAAbABUhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
@ -241,8 +241,8 @@
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACI ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAB2
EwAAAk1TRnQBSQFMAgEBCgEAAWgBAAFoAQABGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo EwAAAk1TRnQBSQFMAgEBCgEAAXABAAFwAQABGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABYAMAAUgDAAEBAQABCAYAARsYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABYAMAAUgDAAEBAQABCAYAARsYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -300,32 +300,32 @@
FuwBbQEAFuwBbQIAAe8I/wIHAfQI/wHvAwAB7wL/AfAOBwL/Ae8CABbsAW0BABbsAW0CAAHvE/8B7wMA FuwBbQEAFuwBbQIAAe8I/wIHAfQI/wHvAwAB7wL/AfAOBwL/Ae8CABbsAW0BABbsAW0CAAHvE/8B7wMA
Ae8T/wHvAgAW7AFtAQAW7AFtAgAB7wj/Ae0B7AHyCP8B7wMAAe8C/w7sAfcC/wHvAgAW7AFtAQAW7AFt Ae8T/wHvAgAW7AFtAQAW7AFtAgAB7wj/Ae0B7AHyCP8B7wMAAe8C/w7sAfcC/wHvAgAW7AFtAQAW7AFt
AgAB7wj/Ae0B7AHwCP8B7wMAAe8T/wHvAgAW7AFtAQAW7AFtAgAB7wj/AQcB7AH3CP8B7wMAAe8C/wHw AgAB7wj/Ae0B7AHwCP8B7wMAAe8T/wHvAgAW7AFtAQAW7AFtAgAB7wj/AQcB7AH3CP8B7wMAAe8C/wHw
DgcC/wHvAgAW7AFtAQAW7AFtAgAB7wj/AfIC7AG8B/8B7wMAAe8C/w7yAfMC/wHvAgAB+AHsAW0B7AFt DgcC/wHvAgAW7AFtAQAW7AFtAgAB7wj/AfIC7AG8B/8B7wMAAe8C/w7yAfMC/wHvAgAC7AFtAewBbQTs
AewB+ALsAesB7AFtAewB6wLsAfgB7AFtAewBbQHsAW0BABbsAW0CAAHvCf8BvALsAQcG/wHvAwAB7xP/ AesB7AFtAewB6wTsAW0B7AFtAewBbQEAFuwBbQIAAe8J/wG8AuwBBwb/Ae8DAAHvE/8B7wIAARABFAFt
Ae8CAAEQARQBbQHsAW0BFAEQAQABEAEUAW0B7AFtARQBEAEAARABFAFtAewBbQEUAgAW7AFtAgAB7wr/ AewBbQEUARABAAEQARQBbQHsAW0BFAEQAQABEAEUAW0B7AFtARQCABbsAW0CAAHvCv8BvALsAe8F/wHv
AbwC7AHvBf8B7wMAAe8C/wEHDvcC/wHvAgAB7AHrAewBbQHsAesC7AH4AewBbQHsAW0B7AH4AuwB6wHs AwAB7wL/AQcO9wL/Ae8CAAHsAesB7AFtAewB6wTsAW0B7AFtBOwB6wHsAW0B7AHrAW0BABbsAW0CAAHv
AW0B7AHrAW0BABbsAW0CAAHvC/8B8ALsAfEE/wHvAwAB7xP/Ae8CABbsAW0BABbsAW0CAAHvDP8BBwHs C/8B8ALsAfEE/wHvAwAB7xP/Ae8CABbsAW0BABbsAW0CAAHvDP8BBwHsAZIE/wHvAwAB7wL/DvcBBwL/
AZIE/wHvAwAB7wL/DvcBBwL/Ae8CABbsAW0BABbsAW0CAAHvA/8B9AHvAewB8wX/AfIC7AT/Ae8DAAHv Ae8CABbsAW0BABbsAW0CAAHvA/8B9AHvAewB8wX/AfIC7AT/Ae8DAAHvE/8B7wIAFuwBbQEAFuwBbQIA
E/8B7wIAFuwBbQEAFuwBbQIAAe8E/wLsAfAF/wHwAuwE/wHvAwAB7wL/AfMO8gL/Ae8CABbsAW0BABbs Ae8E/wLsAfAF/wHwAuwE/wHvAwAB7wL/AfMO8gL/Ae8CABbsAW0BABbsAW0CAAHvBP8BBwHsAe0B8wP/
AW0CAAHvBP8BBwHsAe0B8wP/AfMB7QHsAQcE/wHvAwAB7wL/DgcB8AL/Ae8CABbsAW0BABbsAW0CAAHv AfMB7QHsAQcE/wHvAwAB7wL/DgcB8AL/Ae8CABbsAW0BABbsAW0CAAHvBP8B9AHtAuwBvAHyAbwC7AHt
BP8B9AHtAuwBvAHyAbwC7AHtAfQE/wHvAwAB7xP/Ae8CABbsAW0BABbsAW0CAAHvBv8BkgXsAZIG/wHv AfQE/wHvAwAB7xP/Ae8CABbsAW0BABbsAW0CAAHvBv8BkgXsAZIG/wHvAwAB7wL/AfcO7AL/Ae8CABbs
AwAB7wL/AfcO7AL/Ae8CABbsAW0BAAhtAQ8O8gIAAe8H/wHzA/IB8wf/Ae8DAAHvE/8B7wIACG0BDw7y AW0BAAhtAQ8O8gIAAe8H/wHzA/IB8wf/Ae8DAAHvE/8B7wIACG0BDw7yAQAIFAH0EAAB7xP/Ae8DAAHv
AQAIFAH0EAAB7xP/Ae8DAAHvAv8OBwHwAv8B7wIACBQB9CgAAe8T/wHvAwAB7xP/Ae8zAAHvEwAB7wMA Av8OBwHwAv8B7wIACBQB9CgAAe8T/wHvAwAB7xP/Ae8zAAHvEwAB7wMAAe8TAAHvGQABQgFNAT4HAAE+
Ae8TAAHvGQABQgFNAT4HAAE+AwABKAMAAWADAAFIAwABAQEAAQEFAAFgAQMWAAP/AQAG/wYAAcABAAED AwABKAMAAWADAAFIAwABAQEAAQEFAAFgAQMWAAP/AQAG/wYAAcABAAEDA/8GAAHAAQABAwGAAQABAQYA
A/8GAAHAAQABAwGAAQABAQYAAcABAAEDAYABAAEBBgABwAEAAQMBgAEAAQEGAAHAAQABAwGAAQABAQYA
AcABAAEDAYABAAEBBgABwAEAAQMBgAEAAQEGAAHAAQABAwGAAQABAQYAAcABAAEDAYABAAEBBgABwAEA AcABAAEDAYABAAEBBgABwAEAAQMBgAEAAQEGAAHAAQABAwGAAQABAQYAAcABAAEDAYABAAEBBgABwAEA
AQMBgAEAAQEGAAHAAQABAwGAAQABAQYAAcABAAEDAYABAAEBBgABwAEAAQMBgAgAAcABAAEDAYAIAAHA AQMBgAEAAQEGAAHAAQABAwGAAQABAQYAAcABAAEDAYABAAEBBgABwAEAAQMBgAEAAQEGAAHAAQABAwGA
AQABAwGACAABwAEAAQMBgAgAAcABAAEDAYAIAAHAAQABAwGACAABwAEAAQcB4AgAAcABAAEPAeAIAAP/ AQABAQYAAcABAAEDAYABAAEBBgABwAEAAQMBgAgAAcABAAEDAYAIAAHAAQABAwGACAABwAEAAQMBgAgA
AeAIAAP/AeAIAAb/BgAG/wHwAQABDwP/BgAB8AEAAQ8D/wYAAfABAAEPA/8GAAHwAQABDwkAAfABAAEP AcABAAEDAYAIAAHAAQABAwGACAABwAEAAQcB4AgAAcABAAEPAeAIAAP/AeAIAAP/AeAIAAb/BgAG/wHw
CQAB8AEAAQ8JAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8JAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8JAAHw AQABDwP/BgAB8AEAAQ8D/wYAAfABAAEPA/8GAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8JAAHwAQABDwkA
AQABDwkAAfABAAEPCQAB8AEAAQ8JAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8JAAHwAQABDwkAAfABAAEP AfABAAEPCQAB8AEAAQ8JAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8JAAHwAQABDwkAAfABAAEPCQAB8AEA
CQAB8AEAAQ8HAAE/Af8B8AEAAR8J/wHwAQABPwn/AfABAAF/Bv8BwAEAAQEBwAEAAQED/wMAAcABAAEB AQ8JAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8JAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8HAAE/Af8B8AEA
AcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEA AR8J/wHwAQABPwn/AfABAAF/Bv8BwAEAAQEBwAEAAQED/wMAAcABAAEBAcABAAEBBgABwAEAAQEBwAEA
AQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYA AQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYA
AcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEA AcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEA
AQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHA AQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHA
AQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEEAAE/Af8BwAEAAQEBwAEAAQEBAAE/BP8BwAEA AQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEB
AQEBwAEAAQEG/wHAAQABAQHAAQABAQP/Cw== BgABwAEAAQEBwAEAAQEEAAE/Af8BwAEAAQEBwAEAAQEBAAE/BP8BwAEAAQEBwAEAAQEG/wHAAQABAQHA
AQABAQP/Cw==
</value> </value>
</data> </data>
</root> </root>

3
ShiftOS-TheRevival/MainForms/ShiftOSUpdater.vb
View file

@ -26,7 +26,8 @@ Public Class ShiftOSUpdater
If Not FilePut.FileName = "" Then If Not FilePut.FileName = "" Then
Button1.Enabled = False Button1.Enabled = False
Button2.Enabled = False Button2.Enabled = False
Dim PutTo As String = "http://148.251.124.62:8080/ShiftOS/versions/ShiftOS-TheRevival.v" & NewVersion & ".exe" Dim PutTo As String = "http://github.com/EverythingWindows/ShiftOS-TheRevival/releases/download/" & NewVersion & "/ShiftOS-TheRevival.v" & NewVersion & ".exe"
'Dim PutTo As String = "http://148.251.124.62:8080/ShiftOS/versions/ShiftOS-TheRevival.v" & NewVersion & ".exe" <= Legacy Updater
'Dim GetTo As New Uri(PutTo) 'Dim GetTo As New Uri(PutTo)
My.Computer.Network.DownloadFile(PutTo, FilePut.FileName) My.Computer.Network.DownloadFile(PutTo, FilePut.FileName)
'Revisit this later 'Revisit this later

44
ShiftOS-TheRevival/MainForms/WindowManager/codename AnusWM/AnusWM_Menu.Designer.vb generated
View file

@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class AnusWM_Menu Partial Class AnusWM_Menu
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list. 'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@ -20,7 +20,7 @@ Partial Class AnusWM_Menu
'NOTE: The following procedure is required by the Windows Form Designer 'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer. 'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor. 'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.mnu_Main = New System.Windows.Forms.MenuStrip() Me.mnu_Main = New System.Windows.Forms.MenuStrip()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
@ -31,7 +31,7 @@ Partial Class AnusWM_Menu
Me.StopAnusWMToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StopAnusWMToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RestartToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.RestartToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ShutdownToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ShutdownToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TestcocjToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.lbl_Title = New System.Windows.Forms.Label()
Me.mnu_Main.SuspendLayout() Me.mnu_Main.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
@ -41,41 +41,41 @@ Partial Class AnusWM_Menu
Me.mnu_Main.Font = New System.Drawing.Font("Segoe UI", 12.0!) Me.mnu_Main.Font = New System.Drawing.Font("Segoe UI", 12.0!)
Me.mnu_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ApplicationsToolStripMenuItem, Me.ShifterToolStripMenuItem, Me.AboutToolStripMenuItem, Me.ExitToolStripMenuItem}) Me.mnu_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ApplicationsToolStripMenuItem, Me.ShifterToolStripMenuItem, Me.AboutToolStripMenuItem, Me.ExitToolStripMenuItem})
Me.mnu_Main.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow Me.mnu_Main.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
Me.mnu_Main.Location = New System.Drawing.Point(0, 0) Me.mnu_Main.Location = New System.Drawing.Point(0, 25)
Me.mnu_Main.Name = "mnu_Main" Me.mnu_Main.Name = "mnu_Main"
Me.mnu_Main.Size = New System.Drawing.Size(169, 121) Me.mnu_Main.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Me.mnu_Main.Size = New System.Drawing.Size(139, 112)
Me.mnu_Main.TabIndex = 0 Me.mnu_Main.TabIndex = 0
Me.mnu_Main.Text = "MenuStrip1" Me.mnu_Main.Text = "MenuStrip1"
' '
'ToolStripMenuItem1 'ToolStripMenuItem1
' '
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(162, 4) Me.ToolStripMenuItem1.Size = New System.Drawing.Size(106, 4)
' '
'ApplicationsToolStripMenuItem 'ApplicationsToolStripMenuItem
' '
Me.ApplicationsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TestcocjToolStripMenuItem})
Me.ApplicationsToolStripMenuItem.Name = "ApplicationsToolStripMenuItem" Me.ApplicationsToolStripMenuItem.Name = "ApplicationsToolStripMenuItem"
Me.ApplicationsToolStripMenuItem.Size = New System.Drawing.Size(162, 25) Me.ApplicationsToolStripMenuItem.Size = New System.Drawing.Size(106, 25)
Me.ApplicationsToolStripMenuItem.Text = "Applications" Me.ApplicationsToolStripMenuItem.Text = "Applications"
' '
'ShifterToolStripMenuItem 'ShifterToolStripMenuItem
' '
Me.ShifterToolStripMenuItem.Name = "ShifterToolStripMenuItem" Me.ShifterToolStripMenuItem.Name = "ShifterToolStripMenuItem"
Me.ShifterToolStripMenuItem.Size = New System.Drawing.Size(162, 25) Me.ShifterToolStripMenuItem.Size = New System.Drawing.Size(106, 25)
Me.ShifterToolStripMenuItem.Text = "Shifter" Me.ShifterToolStripMenuItem.Text = "Shifter"
' '
'AboutToolStripMenuItem 'AboutToolStripMenuItem
' '
Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem" Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(162, 25) Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(106, 25)
Me.AboutToolStripMenuItem.Text = "About" Me.AboutToolStripMenuItem.Text = "About"
' '
'ExitToolStripMenuItem 'ExitToolStripMenuItem
' '
Me.ExitToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StopAnusWMToolStripMenuItem, Me.RestartToolStripMenuItem, Me.ShutdownToolStripMenuItem}) Me.ExitToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StopAnusWMToolStripMenuItem, Me.RestartToolStripMenuItem, Me.ShutdownToolStripMenuItem})
Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem" Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(162, 25) Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(106, 25)
Me.ExitToolStripMenuItem.Text = "Exit" Me.ExitToolStripMenuItem.Text = "Exit"
' '
'StopAnusWMToolStripMenuItem 'StopAnusWMToolStripMenuItem
@ -96,19 +96,27 @@ Partial Class AnusWM_Menu
Me.ShutdownToolStripMenuItem.Size = New System.Drawing.Size(179, 26) Me.ShutdownToolStripMenuItem.Size = New System.Drawing.Size(179, 26)
Me.ShutdownToolStripMenuItem.Text = "Shutdown" Me.ShutdownToolStripMenuItem.Text = "Shutdown"
' '
'TestcocjToolStripMenuItem 'lbl_Title
' '
Me.TestcocjToolStripMenuItem.Name = "TestcocjToolStripMenuItem" Me.lbl_Title.BackColor = System.Drawing.Color.Black
Me.TestcocjToolStripMenuItem.Size = New System.Drawing.Size(180, 26) Me.lbl_Title.Dock = System.Windows.Forms.DockStyle.Top
Me.TestcocjToolStripMenuItem.Text = "Testcocj" Me.lbl_Title.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic)
Me.lbl_Title.ForeColor = System.Drawing.Color.White
Me.lbl_Title.Location = New System.Drawing.Point(0, 0)
Me.lbl_Title.Name = "lbl_Title"
Me.lbl_Title.Size = New System.Drawing.Size(139, 25)
Me.lbl_Title.TabIndex = 1
Me.lbl_Title.Text = "Toolchest"
Me.lbl_Title.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
' '
'AnusWM_Menu 'AnusWM_Menu
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(169, 121) Me.ClientSize = New System.Drawing.Size(139, 137)
Me.Controls.Add(Me.mnu_Main) Me.Controls.Add(Me.mnu_Main)
Me.Controls.Add(Me.lbl_Title)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MainMenuStrip = Me.mnu_Main Me.MainMenuStrip = Me.mnu_Main
Me.Name = "AnusWM_Menu" Me.Name = "AnusWM_Menu"
@ -129,5 +137,5 @@ Partial Class AnusWM_Menu
Friend WithEvents StopAnusWMToolStripMenuItem As ToolStripMenuItem Friend WithEvents StopAnusWMToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RestartToolStripMenuItem As ToolStripMenuItem Friend WithEvents RestartToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ShutdownToolStripMenuItem As ToolStripMenuItem Friend WithEvents ShutdownToolStripMenuItem As ToolStripMenuItem
Friend WithEvents TestcocjToolStripMenuItem As ToolStripMenuItem Friend WithEvents lbl_Title As Label
End Class End Class

62
ShiftOS-TheRevival/My Project/Settings.Designer.vb generated
View file

@ -13,42 +13,42 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality" #Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then If My.Application.SaveMySettingsOnExit Then
My.Settings.Save() My.Settings.Save()
End If End If
End Sub End Sub
#End If #End If
#End Region #End Region
Public Shared ReadOnly Property [Default]() As MySettings Public Shared ReadOnly Property [Default]() As MySettings
Get Get
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then
If Not addedHandler Then If Not addedHandler Then
SyncLock addedHandlerLockObject SyncLock addedHandlerLockObject
If Not addedHandler Then If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True addedHandler = True
End If End If
End SyncLock End SyncLock
End If End If
#End If #End If
Return defaultInstance Return defaultInstance
End Get End Get
@ -57,13 +57,13 @@ Namespace My
End Namespace End Namespace
Namespace My Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.ShiftOS_TheRevival.My.MySettings Friend ReadOnly Property Settings() As Global.ShiftOS_TheRevival.My.MySettings
Get Get
Return Global.ShiftOS_TheRevival.My.MySettings.Default Return Global.ShiftOS_TheRevival.My.MySettings.Default

2
ShiftOS-TheRevival/Resources/CurrentVersion.txt
View file

@ -1 +1 @@
0.2.7 0.2.8

9
ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
View file

@ -124,6 +124,12 @@
<Compile Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.vb"> <Compile Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="MainForms\Applications\Universal\Calculator\Uni_Calculator.Designer.vb">
<DependentUpon>Uni_Calculator.vb</DependentUpon>
</Compile>
<Compile Include="MainForms\Applications\Universal\Calculator\Uni_Calculator.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="MainForms\Applications\Universal\File Skimmer\Icons\FileSkimmerFileIcons.Designer.vb"> <Compile Include="MainForms\Applications\Universal\File Skimmer\Icons\FileSkimmerFileIcons.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DesignTime>True</DesignTime> <DesignTime>True</DesignTime>
@ -307,6 +313,9 @@
<EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.resx"> <EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.resx">
<DependentUpon>DuWM_Shifter.vb</DependentUpon> <DependentUpon>DuWM_Shifter.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="MainForms\Applications\Universal\Calculator\Uni_Calculator.resx">
<DependentUpon>Uni_Calculator.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\Applications\Universal\File Skimmer\Icons\FileSkimmerFileIcons.resx"> <EmbeddedResource Include="MainForms\Applications\Universal\File Skimmer\Icons\FileSkimmerFileIcons.resx">
<CustomToolNamespace>My.Resources</CustomToolNamespace> <CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>ResXFileCodeGenerator</Generator> <Generator>ResXFileCodeGenerator</Generator>

2
ShiftOS-TheRevival/TerminalApplications/Internal/Com_Shiftfetch.vb
View file

@ -21,7 +21,7 @@
AddLine("Dual Window Manager") AddLine("Dual Window Manager")
End Select End Select
End If End If
NewLine(" ^@@! : @Y .:::^~:. 7# Y@^ Window Manager Theme: -") NewLine(" ^@@! : @Y .:::^~:. 7# Y@^ Desktop Environment: -")
NewLine(" 7@@: ! B@&BBBBGPPB@#Y. :&^ ^@? Terminal: shiftos-terminal") NewLine(" 7@@: ! B@&BBBBGPPB@#Y. :&^ ^@? Terminal: shiftos-terminal")
NewLine(" ?@@: 7 :??7~:. 5@@5 :&^ .&? Terminal Font: ") NewLine(" ?@@: 7 :??7~:. 5@@5 :&^ .&? Terminal Font: ")
If IsStartG = True Then If IsStartG = True Then