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

nice try on file skimmer lol

Browse source
This commit is contained in:
EverythingWindows 2022-11-27 20:58:48 +07:00
parent d09d7c9472
commit d7cdf48c58
36 changed files with 1801 additions and 162 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
View file

@ -3,7 +3,7 @@
Public Shared ComputerInfo(7) As String Public Shared ComputerInfo(7) As String
Public Shared IsFree As Boolean Public Shared IsFree As Boolean
Public Shared OnceInfo(8) As String Public Shared OnceInfo(8) As String
Public Shared AvailableFeature(41) As String Public Shared AvailableFeature(42) As String
Public Shared CLIInterpreter As String Public Shared CLIInterpreter As String
Public Shared SaveFile As String Public Shared SaveFile As String
Public Shared Achievement As String Public Shared Achievement As String
@ -96,6 +96,7 @@
'39 = KI Fruits [Adds fruit category into the Knowledge Input] (default : 0) '39 = KI Fruits [Adds fruit category into the Knowledge Input] (default : 0)
'40 = DuWM RGB Support [Adds RGB and its other variant support to DuWM] (default : 0) '40 = DuWM RGB Support [Adds RGB and its other variant support to DuWM] (default : 0)
'41 = DuWM 16 Colors Support [Adds mix of RGB color support into ShiftOS] (default : 0) '41 = DuWM 16 Colors Support [Adds mix of RGB color support into ShiftOS] (default : 0)
'42 = KI US States [Adds United States States category into the Knowledge Input] (default : 0)
' '
'Features bought hierarchy : 'Features bought hierarchy :
' '
@ -145,4 +146,5 @@
'>>Knowledge Input (KNOWLEDGE) (275 CP) '>>Knowledge Input (KNOWLEDGE) (275 CP)
'>>>KI Animals (KI_ANIMALS) (300 CP) '>>>KI Animals (KI_ANIMALS) (300 CP)
'>>>KI Fruits (KI_FRUITS) (300 CP) '>>>KI Fruits (KI_FRUITS) (300 CP)
'>>>KI US States (KI_US) (300 CP)
End Class End Class

67
ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
View file

@ -159,8 +159,11 @@
If Strings.AvailableFeature(39) = 0 Then If Strings.AvailableFeature(39) = 0 Then
NewLine("(ki_fruits | 300 CP) KI Fruits") NewLine("(ki_fruits | 300 CP) KI Fruits")
End If End If
If Strings.AvailableFeature(42) = 0 Then
NewLine("(ki_us | 300 CP) KI US States")
End If
End If
End If End If
End If
End Sub End Sub
Public Sub Shiftorium_InformationFeatures() Public Sub Shiftorium_InformationFeatures()
@ -495,6 +498,61 @@
NewLine(ManHeader(1)) NewLine(ManHeader(1))
NormalCommand() NormalCommand()
End If End If
Case "ki_animals"
If Strings.AvailableFeature(38) = 0 Then
ManHeader(0) = "KI Animals"
ManHeader(1) = "300 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds animals category into Knowledge Input")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "ki_fruits"
If Strings.AvailableFeature(39) = 0 Then
ManHeader(0) = "KI Fruits"
ManHeader(1) = "300 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds fruits category into Knowledge Input")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "duwmrgb"
If Strings.AvailableFeature(40) = 0 Then
ManHeader(0) = "DuWM RGB support"
ManHeader(1) = "225 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds Red, Green, and Blue and its darker/lighter color support for Dual Window Manager")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "duwmrgb2"
If Strings.AvailableFeature(41) = 0 Then
ManHeader(0) = "DuWM 16 Colors support"
ManHeader(1) = "275 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds 16 colors support for Dual Window Manager")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "ki_us"
If Strings.AvailableFeature(42) = 0 Then
ManHeader(0) = "KI US States"
ManHeader(1) = "300 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds US States category into Knowledge Input")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case Else Case Else
NormalCommand() NormalCommand()
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@ -631,6 +689,9 @@
Case "duwmrgb2" Case "duwmrgb2"
Shiftorium_InstallFeatures(True, "duwmrgb2", 41, 275) Shiftorium_InstallFeatures(True, "duwmrgb2", 41, 275)
NormalCommand() NormalCommand()
Case "ki_us"
Shiftorium_InstallFeatures(True, "ki_us", 42, 300)
NormalCommand()
Case Else Case Else
NormalCommand() NormalCommand()
NewLine("Shiftorium: Bad command or not available") NewLine("Shiftorium: Bad command or not available")
@ -811,6 +872,7 @@
Strings.AvailableFeature(37) = "1" Strings.AvailableFeature(37) = "1"
Strings.AvailableFeature(38) = "0" Strings.AvailableFeature(38) = "0"
Strings.AvailableFeature(39) = "0" Strings.AvailableFeature(39) = "0"
Strings.AvailableFeature(42) = "0"
success = True success = True
Case "ki_animals" Case "ki_animals"
Strings.AvailableFeature(38) = "1" Strings.AvailableFeature(38) = "1"
@ -825,6 +887,9 @@
Strings.AvailableFeature(40) = "3" Strings.AvailableFeature(40) = "3"
Strings.AvailableFeature(41) = "1" Strings.AvailableFeature(41) = "1"
success = True success = True
Case "ki_us"
Strings.AvailableFeature(42) = "1"
success = True
End Select End Select
If success = False Then If success = False Then
If IsCLI = True Then If IsCLI = True Then

1
ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb
View file

@ -12,6 +12,7 @@
Cursor.Show() Cursor.Show()
NewLine("Shutting down...") NewLine("Shutting down...")
ShiftOSMenu.Show() ShiftOSMenu.Show()
Cursor.Show()
If IsStartG = False Then If IsStartG = False Then
Console.Close() Console.Close()
End If End If

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

@ -2,7 +2,7 @@
Module SaveLoadSystem Module SaveLoadSystem
Public Sub NewGameMode() Public Sub NewGameMode(Chapter As Integer)
'Sets all features to 2 (Unavailable for Shiftorium) except ShiftOS Key (AvailableFeatures(11)) 'Sets all features to 2 (Unavailable for Shiftorium) except ShiftOS Key (AvailableFeatures(11))
Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", True) Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", True)
Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS", True) Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS", True)
@ -14,52 +14,106 @@ Module SaveLoadSystem
Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(1) = "user"
Strings.ComputerInfo(2) = "0" Strings.ComputerInfo(2) = "0"
Strings.ComputerInfo(4) = "0" Strings.ComputerInfo(4) = "0"
Strings.AvailableFeature(0) = "2" Select Case Chapter
Strings.AvailableFeature(1) = "2" Case 0
Strings.AvailableFeature(2) = "2" Strings.AvailableFeature(0) = "2"
Strings.AvailableFeature(3) = "2" Strings.AvailableFeature(1) = "2"
Strings.AvailableFeature(4) = "2" Strings.AvailableFeature(2) = "2"
Strings.AvailableFeature(5) = "2" Strings.AvailableFeature(3) = "2"
Strings.AvailableFeature(6) = "2" Strings.AvailableFeature(4) = "2"
Strings.AvailableFeature(7) = "2" Strings.AvailableFeature(5) = "2"
Strings.AvailableFeature(8) = "2" Strings.AvailableFeature(6) = "2"
Strings.AvailableFeature(9) = "2" Strings.AvailableFeature(7) = "2"
Strings.AvailableFeature(10) = "2" Strings.AvailableFeature(8) = "2"
Strings.AvailableFeature(11) = "0" Strings.AvailableFeature(9) = "2"
Strings.AvailableFeature(12) = "2" Strings.AvailableFeature(10) = "2"
Strings.AvailableFeature(13) = "2" Strings.AvailableFeature(11) = "0"
Strings.AvailableFeature(14) = "2" Strings.AvailableFeature(12) = "2"
Strings.AvailableFeature(15) = "2" Strings.AvailableFeature(13) = "2"
'0.2.4 Features Strings.AvailableFeature(14) = "2"
Strings.AvailableFeature(16) = "2" Strings.AvailableFeature(15) = "2"
Strings.AvailableFeature(17) = "2" '0.2.4 Features
Strings.AvailableFeature(18) = "2" Strings.AvailableFeature(16) = "2"
Strings.AvailableFeature(19) = "2" Strings.AvailableFeature(17) = "2"
Strings.AvailableFeature(20) = "2" Strings.AvailableFeature(18) = "2"
Strings.AvailableFeature(21) = "2" Strings.AvailableFeature(19) = "2"
Strings.AvailableFeature(22) = "2" Strings.AvailableFeature(20) = "2"
'0.2.5 Features Strings.AvailableFeature(21) = "2"
Strings.AvailableFeature(23) = "2" Strings.AvailableFeature(22) = "2"
Strings.AvailableFeature(24) = "2" '0.2.5 Features
Strings.AvailableFeature(25) = "2" Strings.AvailableFeature(23) = "2"
Strings.AvailableFeature(26) = "2" Strings.AvailableFeature(24) = "2"
Strings.AvailableFeature(27) = "2" Strings.AvailableFeature(25) = "2"
Strings.AvailableFeature(28) = "2" Strings.AvailableFeature(26) = "2"
Strings.AvailableFeature(29) = "2" Strings.AvailableFeature(27) = "2"
Strings.AvailableFeature(30) = "2" Strings.AvailableFeature(28) = "2"
'0.2.6 Features Strings.AvailableFeature(29) = "2"
Strings.AvailableFeature(31) = "2" Strings.AvailableFeature(30) = "2"
Strings.AvailableFeature(32) = "2" '0.2.6 Features
Strings.AvailableFeature(33) = "2" Strings.AvailableFeature(31) = "2"
'0.2.7 Features Strings.AvailableFeature(32) = "2"
Strings.AvailableFeature(34) = "2" Strings.AvailableFeature(33) = "2"
Strings.AvailableFeature(35) = "2" '0.2.7 Features
Strings.AvailableFeature(36) = "2" Strings.AvailableFeature(34) = "2"
Strings.AvailableFeature(37) = "2" Strings.AvailableFeature(35) = "2"
Strings.AvailableFeature(38) = "2" Strings.AvailableFeature(36) = "2"
Strings.AvailableFeature(39) = "2" Strings.AvailableFeature(37) = "2"
Strings.AvailableFeature(40) = "2" Strings.AvailableFeature(38) = "2"
Strings.AvailableFeature(41) = "2" Strings.AvailableFeature(39) = "2"
Strings.AvailableFeature(40) = "2"
Strings.AvailableFeature(41) = "2"
'0.2.8 Features
Strings.AvailableFeature(42) = "2"
Case 1
Strings.AvailableFeature(0) = "1"
Strings.AvailableFeature(1) = "1"
Strings.AvailableFeature(2) = "1"
Strings.AvailableFeature(3) = "1"
Strings.AvailableFeature(4) = "1"
Strings.AvailableFeature(5) = "3"
Strings.AvailableFeature(6) = "3"
Strings.AvailableFeature(7) = "3"
Strings.AvailableFeature(8) = "1"
Strings.AvailableFeature(9) = "1"
Strings.AvailableFeature(10) = "1"
Strings.AvailableFeature(11) = "1"
Strings.AvailableFeature(12) = "3"
Strings.AvailableFeature(13) = "1"
Strings.AvailableFeature(14) = "1"
Strings.AvailableFeature(15) = "1"
'0.2.4 Features
Strings.AvailableFeature(16) = "1"
Strings.AvailableFeature(17) = "1"
Strings.AvailableFeature(18) = "1"
Strings.AvailableFeature(19) = "1"
Strings.AvailableFeature(20) = "1"
Strings.AvailableFeature(21) = "1"
Strings.AvailableFeature(22) = "1"
'0.2.5 Features
Strings.AvailableFeature(23) = "1"
Strings.AvailableFeature(24) = "3"
Strings.AvailableFeature(25) = "3"
Strings.AvailableFeature(26) = "3"
Strings.AvailableFeature(27) = "3"
Strings.AvailableFeature(28) = "3"
Strings.AvailableFeature(29) = "1"
Strings.AvailableFeature(30) = "1"
'0.2.6 Features
Strings.AvailableFeature(31) = "1"
Strings.AvailableFeature(32) = "1"
Strings.AvailableFeature(33) = "1"
'0.2.7 Features
Strings.AvailableFeature(34) = "1"
Strings.AvailableFeature(35) = "2"
Strings.AvailableFeature(36) = "2"
Strings.AvailableFeature(37) = "2"
Strings.AvailableFeature(38) = "2"
Strings.AvailableFeature(39) = "2"
Strings.AvailableFeature(40) = "2"
Strings.AvailableFeature(41) = "2"
'0.2.8 Features
Strings.AvailableFeature(42) = "2"
End Select
End Sub End Sub
Public Sub FreeRoamMode() Public Sub FreeRoamMode()
@ -115,6 +169,8 @@ Module SaveLoadSystem
Strings.AvailableFeature(39) = "1" Strings.AvailableFeature(39) = "1"
Strings.AvailableFeature(40) = "3" Strings.AvailableFeature(40) = "3"
Strings.AvailableFeature(41) = "1" Strings.AvailableFeature(41) = "1"
'0.2.8 Features
Strings.AvailableFeature(42) = "1"
End Sub End Sub
Public Sub GodMode() Public Sub GodMode()
@ -168,6 +224,8 @@ Module SaveLoadSystem
Strings.AvailableFeature(39) = "2" Strings.AvailableFeature(39) = "2"
Strings.AvailableFeature(40) = "2" Strings.AvailableFeature(40) = "2"
Strings.AvailableFeature(41) = "2" Strings.AvailableFeature(41) = "2"
'0.2.8 Features
Strings.AvailableFeature(42) = "2"
End Sub End Sub
Public Sub SaveGame() Public Sub SaveGame()

157
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFileIcons.Designer.vb generated Normal file
View file

@ -0,0 +1,157 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Class FileSkimmerFileIcons
Private Shared resourceMan As Global.System.Resources.ResourceManager
Private Shared resourceCulture As Global.System.Globalization.CultureInfo
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend Sub New()
MyBase.New
End Sub
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ShiftOS_TheRevival.FileSkimmerFileIcons", GetType(FileSkimmerFileIcons).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend Shared ReadOnly Property ico_exe() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_exe", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend Shared ReadOnly Property ico_folder() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_folder", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend Shared ReadOnly Property ico_picture() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_picture", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend Shared ReadOnly Property ico_sfp() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_sfp", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend Shared ReadOnly Property ico_textfile() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_textfile", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend Shared ReadOnly Property ico_unknown() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_unknown", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend Shared ReadOnly Property ico_up() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_up", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend Shared ReadOnly Property ico_url() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_url", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend Shared ReadOnly Property ico_video() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_video", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Class
End Namespace

148
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFileIcons.resx Normal file
View file

@ -0,0 +1,148 @@
<?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>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="ico_exe" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>ico_exe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_folder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>ico_folder.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_picture" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>ico_picture.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_sfp" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>ico_sfp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_textfile" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>ico_textfile.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_unknown" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>ico_unknown.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_up" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>ico_up.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_url" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>ico_url.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_video" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>ico_video.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

77
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.Designer.vb generated Normal file
View file

@ -0,0 +1,77 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Class FileSkimmerFunctionIcons
Private Shared resourceMan As Global.System.Resources.ResourceManager
Private Shared resourceCulture As Global.System.Globalization.CultureInfo
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend Sub New()
MyBase.New
End Sub
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ShiftOS_TheRevival.FileSkimmerFunctionIcons", GetType(FileSkimmerFunctionIcons).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend Shared ReadOnly Property ico_up1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_up1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Class
End Namespace

124
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.resx Normal file
View file

@ -0,0 +1,124 @@
<?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>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="ico_up1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\..\Resources\ico_up1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_exe.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 288 B

BIN
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_folder.bmp Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 208 B

BIN
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_picture.bmp Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 345 B

BIN
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_sfp.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 272 B

BIN
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_textfile.bmp Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 429 B

BIN
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_unknown.bmp Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 594 B

BIN
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_up.bmp Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 295 B

BIN
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_url.bmp Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 471 B

BIN
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/ico_video.bmp Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 251 B

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

@ -0,0 +1,308 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Uni_FileSkimmer
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.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Uni_FileSkimmer))
Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("test", 0)
Me.msn_Options = New System.Windows.Forms.MenuStrip()
Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CloseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PropertyPaneToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnl_Ribbon = New System.Windows.Forms.Panel()
Me.pnl_Properties = New System.Windows.Forms.Panel()
Me.lbl_filesize = New System.Windows.Forms.Label()
Me.lbl_filetype = New System.Windows.Forms.Label()
Me.lbl_filename = New System.Windows.Forms.Label()
Me.lbl_Properties = New System.Windows.Forms.Label()
Me.iml_icons = New System.Windows.Forms.ImageList(Me.components)
Me.pnl_AddressBar = New System.Windows.Forms.Panel()
Me.btn_Up = New System.Windows.Forms.Button()
Me.txt_AddressBar = New System.Windows.Forms.TextBox()
Me.lbl_Address = New System.Windows.Forms.Label()
Me.lsv_Content = New System.Windows.Forms.ListView()
Me.pic_Icon = New System.Windows.Forms.PictureBox()
Me.btn_NewFolder = New System.Windows.Forms.Button()
Me.msn_Options.SuspendLayout()
Me.pnl_Ribbon.SuspendLayout()
Me.pnl_Properties.SuspendLayout()
Me.pnl_AddressBar.SuspendLayout()
CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'msn_Options
'
Me.msn_Options.BackColor = System.Drawing.Color.White
Me.msn_Options.Font = New System.Drawing.Font("Segoe UI", 10.0!)
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.Name = "msn_Options"
Me.msn_Options.Size = New System.Drawing.Size(800, 27)
Me.msn_Options.TabIndex = 0
Me.msn_Options.Text = "mns_Options"
'
'FileToolStripMenuItem
'
Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CloseToolStripMenuItem})
Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
Me.FileToolStripMenuItem.Size = New System.Drawing.Size(41, 23)
Me.FileToolStripMenuItem.Text = "File"
'
'CloseToolStripMenuItem
'
Me.CloseToolStripMenuItem.Name = "CloseToolStripMenuItem"
Me.CloseToolStripMenuItem.Size = New System.Drawing.Size(111, 24)
Me.CloseToolStripMenuItem.Text = "Close"
'
'OptionsToolStripMenuItem
'
Me.OptionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PropertyPaneToolStripMenuItem})
Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem"
Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(70, 23)
Me.OptionsToolStripMenuItem.Text = "Options"
'
'PropertyPaneToolStripMenuItem
'
Me.PropertyPaneToolStripMenuItem.CheckOnClick = True
Me.PropertyPaneToolStripMenuItem.Name = "PropertyPaneToolStripMenuItem"
Me.PropertyPaneToolStripMenuItem.Size = New System.Drawing.Size(165, 24)
Me.PropertyPaneToolStripMenuItem.Text = "Property Pane"
'
'AboutToolStripMenuItem
'
Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(59, 23)
Me.AboutToolStripMenuItem.Text = "About"
'
'pnl_Ribbon
'
Me.pnl_Ribbon.BackColor = System.Drawing.Color.Silver
Me.pnl_Ribbon.Controls.Add(Me.btn_NewFolder)
Me.pnl_Ribbon.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl_Ribbon.Location = New System.Drawing.Point(0, 27)
Me.pnl_Ribbon.Name = "pnl_Ribbon"
Me.pnl_Ribbon.Size = New System.Drawing.Size(800, 69)
Me.pnl_Ribbon.TabIndex = 1
'
'pnl_Properties
'
Me.pnl_Properties.BackColor = System.Drawing.Color.Gray
Me.pnl_Properties.Controls.Add(Me.pic_Icon)
Me.pnl_Properties.Controls.Add(Me.lbl_filesize)
Me.pnl_Properties.Controls.Add(Me.lbl_filetype)
Me.pnl_Properties.Controls.Add(Me.lbl_filename)
Me.pnl_Properties.Controls.Add(Me.lbl_Properties)
Me.pnl_Properties.Dock = System.Windows.Forms.DockStyle.Right
Me.pnl_Properties.Location = New System.Drawing.Point(600, 132)
Me.pnl_Properties.Name = "pnl_Properties"
Me.pnl_Properties.Size = New System.Drawing.Size(200, 318)
Me.pnl_Properties.TabIndex = 2
Me.pnl_Properties.Visible = False
'
'lbl_filesize
'
Me.lbl_filesize.AutoSize = True
Me.lbl_filesize.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.lbl_filesize.Location = New System.Drawing.Point(8, 155)
Me.lbl_filesize.Name = "lbl_filesize"
Me.lbl_filesize.Size = New System.Drawing.Size(26, 13)
Me.lbl_filesize.TabIndex = 1
Me.lbl_filesize.Text = "size"
'
'lbl_filetype
'
Me.lbl_filetype.AutoSize = True
Me.lbl_filetype.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.lbl_filetype.Location = New System.Drawing.Point(9, 139)
Me.lbl_filetype.Name = "lbl_filetype"
Me.lbl_filetype.Size = New System.Drawing.Size(45, 13)
Me.lbl_filetype.TabIndex = 1
Me.lbl_filetype.Text = "filetype"
'
'lbl_filename
'
Me.lbl_filename.AutoSize = True
Me.lbl_filename.Font = New System.Drawing.Font("Segoe UI", 11.0!)
Me.lbl_filename.Location = New System.Drawing.Point(7, 117)
Me.lbl_filename.Name = "lbl_filename"
Me.lbl_filename.Size = New System.Drawing.Size(67, 20)
Me.lbl_filename.TabIndex = 1
Me.lbl_filename.Text = "filename"
'
'lbl_Properties
'
Me.lbl_Properties.AutoSize = True
Me.lbl_Properties.Font = New System.Drawing.Font("Segoe UI", 14.0!, System.Drawing.FontStyle.Bold)
Me.lbl_Properties.Location = New System.Drawing.Point(7, 7)
Me.lbl_Properties.Name = "lbl_Properties"
Me.lbl_Properties.Size = New System.Drawing.Size(105, 25)
Me.lbl_Properties.TabIndex = 0
Me.lbl_Properties.Text = "Properties"
'
'iml_icons
'
Me.iml_icons.ImageStream = CType(resources.GetObject("iml_icons.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.iml_icons.TransparentColor = System.Drawing.Color.Transparent
Me.iml_icons.Images.SetKeyName(0, "ico_folder.bmp")
Me.iml_icons.Images.SetKeyName(1, "ico_textfile.bmp")
Me.iml_icons.Images.SetKeyName(2, "ico_unknown.bmp")
Me.iml_icons.Images.SetKeyName(3, "ico_picture.bmp")
Me.iml_icons.Images.SetKeyName(4, "ico_up.bmp")
Me.iml_icons.Images.SetKeyName(5, "ico_url.bmp")
Me.iml_icons.Images.SetKeyName(6, "ico_video.bmp")
Me.iml_icons.Images.SetKeyName(7, "ico_sfp.png")
Me.iml_icons.Images.SetKeyName(8, "ico_exe.png")
'
'pnl_AddressBar
'
Me.pnl_AddressBar.Controls.Add(Me.btn_Up)
Me.pnl_AddressBar.Controls.Add(Me.txt_AddressBar)
Me.pnl_AddressBar.Controls.Add(Me.lbl_Address)
Me.pnl_AddressBar.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl_AddressBar.Location = New System.Drawing.Point(0, 96)
Me.pnl_AddressBar.Name = "pnl_AddressBar"
Me.pnl_AddressBar.Size = New System.Drawing.Size(800, 36)
Me.pnl_AddressBar.TabIndex = 4
'
'btn_Up
'
Me.btn_Up.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btn_Up.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_Up.Location = New System.Drawing.Point(65, 5)
Me.btn_Up.Name = "btn_Up"
Me.btn_Up.Size = New System.Drawing.Size(24, 24)
Me.btn_Up.TabIndex = 2
Me.btn_Up.UseVisualStyleBackColor = True
'
'txt_AddressBar
'
Me.txt_AddressBar.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txt_AddressBar.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.txt_AddressBar.Location = New System.Drawing.Point(161, 5)
Me.txt_AddressBar.Name = "txt_AddressBar"
Me.txt_AddressBar.Size = New System.Drawing.Size(627, 25)
Me.txt_AddressBar.TabIndex = 1
'
'lbl_Address
'
Me.lbl_Address.AutoSize = True
Me.lbl_Address.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.lbl_Address.Location = New System.Drawing.Point(90, 8)
Me.lbl_Address.Name = "lbl_Address"
Me.lbl_Address.Size = New System.Drawing.Size(65, 19)
Me.lbl_Address.TabIndex = 0
Me.lbl_Address.Text = "Address :"
'
'lsv_Content
'
Me.lsv_Content.BackColor = System.Drawing.Color.White
Me.lsv_Content.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lsv_Content.Dock = System.Windows.Forms.DockStyle.Fill
Me.lsv_Content.HideSelection = False
Me.lsv_Content.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem2})
Me.lsv_Content.LargeImageList = Me.iml_icons
Me.lsv_Content.Location = New System.Drawing.Point(0, 132)
Me.lsv_Content.MultiSelect = False
Me.lsv_Content.Name = "lsv_Content"
Me.lsv_Content.Size = New System.Drawing.Size(600, 318)
Me.lsv_Content.Sorting = System.Windows.Forms.SortOrder.Ascending
Me.lsv_Content.TabIndex = 5
Me.lsv_Content.UseCompatibleStateImageBehavior = False
'
'pic_Icon
'
Me.pic_Icon.Location = New System.Drawing.Point(10, 42)
Me.pic_Icon.Name = "pic_Icon"
Me.pic_Icon.Size = New System.Drawing.Size(64, 64)
Me.pic_Icon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pic_Icon.TabIndex = 2
Me.pic_Icon.TabStop = False
'
'btn_NewFolder
'
Me.btn_NewFolder.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_NewFolder.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
Me.btn_NewFolder.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btn_NewFolder.Location = New System.Drawing.Point(0, 0)
Me.btn_NewFolder.Name = "btn_NewFolder"
Me.btn_NewFolder.Size = New System.Drawing.Size(72, 69)
Me.btn_NewFolder.TabIndex = 0
Me.btn_NewFolder.Text = "New Folder"
Me.btn_NewFolder.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btn_NewFolder.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.btn_NewFolder.UseVisualStyleBackColor = True
'
'Uni_FileSkimmer
'
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(800, 450)
Me.Controls.Add(Me.lsv_Content)
Me.Controls.Add(Me.pnl_Properties)
Me.Controls.Add(Me.pnl_AddressBar)
Me.Controls.Add(Me.pnl_Ribbon)
Me.Controls.Add(Me.msn_Options)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MainMenuStrip = Me.msn_Options
Me.Name = "Uni_FileSkimmer"
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.Text = "Uni_FileSkimmer"
Me.msn_Options.ResumeLayout(False)
Me.msn_Options.PerformLayout()
Me.pnl_Ribbon.ResumeLayout(False)
Me.pnl_Properties.ResumeLayout(False)
Me.pnl_Properties.PerformLayout()
Me.pnl_AddressBar.ResumeLayout(False)
Me.pnl_AddressBar.PerformLayout()
CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents msn_Options As MenuStrip
Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem
Friend WithEvents pnl_Ribbon As Panel
Friend WithEvents pnl_Properties As Panel
Friend WithEvents pnl_AddressBar As Panel
Friend WithEvents lbl_Address As Label
Friend WithEvents txt_AddressBar As TextBox
Friend WithEvents lbl_Properties As Label
Friend WithEvents lbl_filename As Label
Friend WithEvents lbl_filetype As Label
Friend WithEvents lbl_filesize As Label
Friend WithEvents pic_Icon As PictureBox
Friend WithEvents CloseToolStripMenuItem As ToolStripMenuItem
Friend WithEvents iml_icons As ImageList
Friend WithEvents lsv_Content As ListView
Friend WithEvents OptionsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PropertyPaneToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btn_NewFolder As Button
Friend WithEvents btn_Up As Button
End Class

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

@ -0,0 +1,234 @@
<?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>
<metadata name="msn_Options.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="iml_icons.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>140, 17</value>
</metadata>
<data name="iml_icons.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACA
FwAAAk1TRnQBSQFMAgEBCQEAATgBAAE4AQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABqAMAAX4DAAEBAQABCAUAAbABUhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA
AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA
AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm
AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA
ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz
AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz
AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz
AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ
AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm
AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM
Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ
AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ
AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA
ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/
ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ
AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA
AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA
AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA
AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ
AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA
AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/
AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/
ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/
AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA
AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP//wD/AP8ATgAm7IIA
Aewk/wHsggAB7CT/AeyCAAHsJP8B7IIAAewk/wHsggAB7CT/AeyCAAHsJP8B7IIAAewk/wHsggAB7CT/
AeyCAAHsJP8B7IIAAewk/wHsggAB7CT/AeyCAAHsJP8B7IIAAewk/wHsggAB7CT/AeyCAAHsJP8B7IIA
Aewk/wHsggAB7CT/AeyCAAHsJP8D7IAAAewk/wHsAf8B7IAAAewk/wHsAf8B7IAAAewk/wHsAf8B7IAA
Aewk/wHsAf8B7IAAAewk/wHsAf8B7IAAAewk/wHsAf8B7IAAJuwB/wHsgAAd7AIAAewCAAHsAgAB7AH/
AeyAAB3sAgAB7AIAAewCAAHsAf8B7IAAJuwB/wHshAAB7CL/AeyEAAHsIv8B7IQAAewi/wHshAAk7IQA
G+wCAAHsAgAB7AIAAeyEABvsAgAB7AIAAewCAAHshAAk7P8AZAAK/5MACv8BAAr/AQAB7AP/jgAJ/wEA
DP8BAAHsAv+OAAn/AQAM/wEAAewC/10AKOwJAAj/AQAN/wEAAewC/10AD+wKAA/sCQAH/wEAA/8BAAr/
AQAB7AL/XQAP7AEACP8BAA/sCQAH/wEAAv8CAAL/AQAC/wEAAv8BAAH/AQAB7AL/OQAc/wgAD+wBAAj/
AQAP7AkACP8CAAHsAQAC/wEAAv8BAAL/AQAB/wEAAewC/wkAKP8IABz/CAAP7AEACP8BAA/sCQAL/wEA
Av8BAAL/AQAC/wIAAewD/wkAKP8IABz/CAAP7AEACP8BAA/sCQAL/wEAAv8BAAL/AwAB7AX/CQAo/wgA
HP8IAA/sAQAI/wEAD+wJAAv/AQAC/wMAAewI/wkAKP8IABz/CAAP7AEACP8BAA/sCQAL/wEAAv8BAAHs
Cv8JAA//AQAY/wgAHP8IAA/sAQAI/wEAD+wJAAv/AQAC/wEAAewK/wkAD/8CABf/CAAc/wgAD+wBAAj/
AQAP7AkAC/8BAAL/AQAB7Ar/CQAP/wMAFv8IABz/CAAP7AEACP8BAA/sCQAL/wEAAv8BAAHsCv8JAA//
BAAV/wgAHP8IAA/sAQAI/wEAD+wJAAL/CfwBAAL/AQAB7Ar/CQAP/wUAFP8IABz/CAAP7AEACP8BAA/s
CQAM/wIAAewL/wkAD/8GABP/CAAc/wgAD+wBAAj/AQAP7AkAA/8E/AL/AfwE/wH8C/8JAA//BwAS/wgA
HP8IAA/sAQAI/wEAD+wJAAL/AfwE/wH8Af8B/AT/AfwL/wkAD/8IABH/CAAc/wgAD+wBAAj/AQAP7AkA
Av8B/AT/AfwB/wH8BP8B/Av/CQAP/wkAEP8IABz/CAAP7AEACP8BAA/sCQAC/wH8BP8B/AH/AvwD/wH8
C/8JAA//CgAP/wgAHP8IAArsBgAI/wcACewJAAL/AfwE/wH8Af8B/AH/AvwB/wH8C/8JAA//CgAP/wgA
HP8IAArsAQAT/wEACewJAAL/AfwE/wH8Bv8B/Av/CQAP/wkAEP8IABz/CAAL7AEAEf8BAArsCQAC/wH8
BP8B/Ab/AfwL/wkAD/8IABH/CAAc/wgADOwBAA//AQAL7AkAAv8B/AT/AfwG/wH8C/8JAA//BwAS/ywA
DewBAA3/AQAM7AkAAv8B/AT/AfwG/wH8C/8JAA//BgAT/ywADuwBAAv/AQAN7AkAGv8JAA//BQAU/ywA
D+wBAAn/AQAO7AkAGv8JAA//BAAV/ywAEOwBAAf/AQAP7AkAGv8JAA//AwAW/wwAFP8MABHsAQAF/wEA
EOwJABr/CQAP/wIAF/8MAA7/BAAC/wwAEuwBAAP/AQAR7AkAGv8JAA//AQAY/wwADv8EAAL/DAAT7AEA
Af8BABLsCQAa/wkAKP8MAA7/BAAC/wwAFOwBABPsCQAa/wkAKP8MAA7/BAAC/wwAKOwJABr/CQAo/wwA
Dv8EAAL/DAAo7AkAGv8JACj/DAAO/wQAAv89ABT/QwAU/wwAD+wiABT/AQAC/wLsPgAU/wwADuwjABT/
AQAB/wLskAAU/wEAAuyRABT/AQAB7JIAFP//AOIAIf8JACH/XQAh/wkAIf9dACH/CQAh/y8AKOwGAAT/
GuwD/wkAIf8FACjsAgAo7AYAIf8JACH/BQAo7AIAKOwGACH/CQAO/wTsD/8FACjsAgAo7AYAA/8a7AT/
CQAO/wTsD/8FACjsAgAo7AYAIf8JAA7/BOwP/wUAKOwCACjsBgAh/wkADv8E7A//BQAo7AIAKOwGAAT/
GuwD/wkAIf8FACTsBP8CACjsBgAh/wkAIf8FACHsB/8CACjsBgAh/wkAIf8FAAX/GuwJ/wIAKOwGAAP/
GuwE/wkADv8BkgPsD/8FAAj/FuwF/wHsBP8CACjsBgAh/wkADv8BkgPsD/8FAA//C+wJ/wLsA/8CACjs
BgAh/wkADv8BkgPsAfIO/wUAHv8B7AX/AewD/wIAKOwGAAT/GuwD/wkADv8BBwPsAbwO/wUAHv8C7AT/
AuwC/wIAKOwGACH/CQAO/wHxBOwO/wUAF/8D7AX/AuwE/wHsAv8CACjsBgAh/wkAD/8E7AHvDf8FABn/
AuwF/wHsBP8B7AL/AgAo7AYAA/8a7AT/CQAP/wHxBOwB7wz/BQAa/wHsBf8B7AT/AewC/wIAKOwGACH/
CQAQ/wG8BOwB7wH0Cv8FABr/AuwE/wHsBP8C7AH/AgAo7AYAIf8JABH/AbwE7AHtAfQJ/wUAE/8E7AT/
AuwJ/wHsAf8CACjsBgAE/xrsA/8JABL/AfAE7AGSCf8FABb/AuwF/wHsCv8CACjsBgAh/wkAE/8B8gTs
Ae8I/wUAF/8B7An/BuwB/wIAKOwGACH/CQAU/wHyBOwB8gf/BQAX/wLsBv8J7AIAKOwGAAP/GuwE/wkA
Ff8BvAPsAe8H/wUAEP8B7Af/AuwE/wrsAgAo7AYAIf8JABb/BOwH/wUAEP8D7Ab/AuwC/wvsAgAo7AYA
If8JAAb/AfMB7wGSAewB7wv/AZID7Af/BQAS/wPsB/8M7AIAKOwGAAT/GuwD/wkABv8B9APsAe0L/wHt
A+wH/wUAFP8C7Ab/DOwCACjsBgAh/wkAB/8E7AHyCf8B8wPsAe0H/wUAFf8C7AT/DewCACjsBgAh/wkA
B/8BBwPsAfcJ/wH3A+wB7wf/BQAN/wTsBf8D7AL/DewCACjsBgAD/xrsBP8JAAf/AfQE7AHvB/8B7wTs
AfMH/wUAEP8C7An/DewCACjsBgAh/wkACP8BBwTsAZIB8AH0Af8B9AHwAZIE7AEHCP8FABH/AewJ/w3s
AgAo7AYAIf8JAAn/Ae8N7AHvCf8FABH/COwC/w3sAgAo7AYABP8a7AP/CQAK/wHwC+wB8Ar/BQAb/w3s
MAAh/wkAC/8B9AG8AfcE7AHtAe8BvAz/BQAc/wzsAgAP7B8AIf8JACH/BQAc/wzsAgAO7CAAA/8a7AT/
CQAh/10AIf8JACH/XQAh/wkAIf9dACH/CQAh/9YAAUIBTQE+BwABPgMAASgDAAGoAwABfgMAAQEBAAEB
BQAB0AELFgAD/wEABf8BwBIABf8BwBIABf8BwBIABf8BwBIABf8BwBIAAcAEAAHAEgABwAQAAcASAAHA
BAABwBIAAcAEAAHAEgABwAQAAcASAAHABAABwBIAAcAEAAHAEgABwAQAAcASAAHABAABwBIAAcAEAAHA
EgABwAQAAcASAAHABAABwBIAAcAEAAHAEgABwAQAAcASAAHABAABwBIAAcAEAAHAEgABwAQAAcASAAHA
BAABwBIAAcAXAAHAFwABwBcAAcAXAAHAFwABwBcAAcAXAAHAFwABwBcAAcAXAAHAFwAB/BcAAfwXAAH8
FwAB/BcAAfwXAAH8FwAB/BcABf8BwBIABv8BgAIAAQcL/wMABv8BgAIAAQcL/wMABv8BgAIAAQcG/wHA
AwABDwgAAT8BgAIAAQcG/wHAAwABDwgAAT8BgAIAAQcG/wHAAwABDwgAAT8BgAIAAQcG/wHAAwABDwgA
AT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/AYACAAEHAfAEAAEDAcADAAEPCAABPwGAAgABBwHwBAABAwHA
AwABDwgAAT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/AYACAAEHAfAEAAEDAcADAAEPCAABPwGAAgABBwHw
BAABAwHAAwABDwgAAT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/AYACAAEHAfAEAAEDAcADAAEPCAABPwGA
AgABBwHwBAABAwHAAwABDwgAAT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/AYACAAEHAfAEAAEDAcADAAEP
CAABPwGAAgABBwHwBAABAwHAAwABDwgAAT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/AYACAAEHAfAEAAED
AcADAAEPCAABPwGAAgABBwHwBAABAwHAAwABDwgAAT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/AYACAAEH
AfAEAAEDAcADAAEPCAABPwGAAgABBwHwBAABAwHAAwABDwgAAT8BgAIAAQcB8AQAAQMBwAMAAQ8IAAE/
AYACAAEHAfAEAAEDAcADAAEPCAABPwGAAgABBwHwBAABAwHAAwABDwgAAT8BgAIAAQcB8AQAAQMBwAMA
AQ8IAAE/AYACAAEHAfAEAAEDAcADAAEPCAABPwGAAgABBwHwBAABAwHAAwABDwgAAT8BgAIAAQcB8AQA
AQMBwAMAAQ8IAAE/AYACAAEHAfAEAAEDAcADAAEPCAABPwGAAgABBwHwBAABAwHAAwABDwgAAT8BgAIA
AQcB8AQAAQMBwAMAAR8IAAE/AYACAAEHAfAEAAEDAcADAAE/CAABPwGAAgABBwHwBAABAwHAAwABfwUA
AX8D/wGAAgABDwb/AcADAAF/BQAE/wGAAgABHwv/BAABAQT/AYACAAE/C/8DAAb/AYACAAF/C/8DAAb/
AYACAAz/AwAG/wGAAQABAQz/AwAF/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/
BAABHwX/CAABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQA
AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQA
AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQA
AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQA
AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQA
AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQA
AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcCgABfwL/AfwEAAF/BAABHAoA
A/8B/AQAAX8EAAEcCQABAQP/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEf
Bf8DAAX/AfwEAAF/BAABHwX/AwAL
</value>
</data>
</root>

244
ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb Normal file
View file

@ -0,0 +1,244 @@
Imports System.IO
Public Class Uni_FileSkimmer
Public CurrentDir As String
Dim FileType As Integer
Dim ItemsDeleted As Integer
Private Sub Uni_FileSkimmer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Sets icons for buttons in here, for some reason
btn_Up.BackgroundImage = My.Resources.FileSkimmerFunctionIcons.ico_up1
'End thingy
CurrentDir = Strings.OnceInfo(1)
txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!\")
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_folder
ShowContent()
End Sub
Private Sub PropertyPaneToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertyPaneToolStripMenuItem.Click
If PropertyPaneToolStripMenuItem.CheckState = False Then
pnl_Properties.Visible = False
Else
pnl_Properties.Visible = True
End If
End Sub
Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click
Dispose()
End Sub
Private Sub btn_Up_Click(sender As Object, e As EventArgs) Handles btn_Up.Click
If txt_AddressBar.Text = "!\" Then
btn_Up.Enabled = False
Else
Try
If txt_AddressBar.Text = "!\" Then
Else
Dim directoryInfo As System.IO.DirectoryInfo
directoryInfo = System.IO.Directory.GetParent(txt_AddressBar.Text.Replace("!\", Strings.OnceInfo(1) & "\"))
txt_AddressBar.Text = directoryInfo.FullName
CurrentDir = directoryInfo.FullName
Dim endloop As Boolean = False
txt_AddressBar.Text = txt_AddressBar.Text.Substring(0, txt_AddressBar.Text.Length - 1)
While endloop = False
Try
If txt_AddressBar.Text.Substring(txt_AddressBar.Text.Length - 1) = "\" Then
endloop = True
Else
txt_AddressBar.Text = txt_AddressBar.Text.Substring(0, txt_AddressBar.Text.Length - 1)
End If
Catch
End Try
End While
ShowContent()
'Try
' ShowContent()
'Catch
'End Try
End If
Catch ex As Exception
End Try
End If
End Sub
Private Sub lsv_Content_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles lsv_Content.MouseDoubleClick
If txt_AddressBar.Text Like "*\" Then
Else
txt_AddressBar.Text = txt_AddressBar.Text + "\"
End If
ExecuteFile(txt_AddressBar.Text + lsv_Content.SelectedItems(0).Text)
End Sub
Private Sub lsv_Content_MouseClick(sender As Object, e As MouseEventArgs) Handles lsv_Content.MouseClick
Select Case e.Button
Case MouseButtons.Left
If pnl_Properties.Visible = True Then
Dim IsFile As Boolean = False
If lsv_Content.SelectedItems(0).Text = Nothing Then
Else
If lsv_Content.SelectedItems(0).Text Like "*.txt" Then
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_textfile
lbl_filetype.Text = "Text File"
IsFile = True
End If
If IsFile = True Then
lbl_filesize.Visible = False
Dim filinf As New IO.FileInfo(CurrentDir & lsv_Content.SelectedItems(0).Text)
Dim filsize As Long = filinf.Length / 1024
Dim thesize As Integer = 1
Do
If filsize >= 1024 Then
filsize = filsize / 1024
thesize = thesize + 1
Else
Exit Do
End If
Loop
Select Case thesize
Case 1
lbl_filesize.Text = filsize & " KB"
Case 2
lbl_filesize.Text = filsize & " MB"
Case 3
lbl_filesize.Text = filsize & " GB"
End Select
Else
lbl_filetype.Text = "Folder"
lbl_filesize.Visible = False
End If
lbl_filename.Text = lsv_Content.SelectedItems(0).Text
End If
End If
End Select
End Sub
Public Sub ExecuteFile(path As String)
If path Like "*.txt" Then
Undeveloped()
Else
path = path.Replace("!\", Strings.OnceInfo(1) & "\")
If My.Computer.FileSystem.DirectoryExists(path) Then
CurrentDir = path
txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!")
ShowContent()
Else
End If
End If
End Sub
Public Sub ShowContent()
Show()
lsv_Content.Items.Clear()
Dim Dir As New DirectoryInfo(CurrentDir)
Dim Files As FileInfo() = Dir.GetFiles()
Dim File As FileInfo
Dim Folders As DirectoryInfo() = Dir.GetDirectories()
Dim Folder As DirectoryInfo
'For Each Dir As String In IO.Directory.GetDirectories(CurrentDir)
' Dim Dirinfo As New IO.DirectoryInfo(Dir)
' lsv_Content.Items.Add(Dirinfo.Name, 0)
' 'NewLine("[DIR] 0 KB " & dirinf.Name)
'Next
For Each Folder In Folders
Dim FolderName As String = Folder.Name
lsv_Content.Items.Add(FolderName, 0)
Next
For Each File In Files
Dim filename As String = File.Name
Dim fileex As String = File.Extension
FileType = GetFileType(fileex)(0)
lsv_Content.Items.Add(filename, FileType)
Next
End Sub
Public Function GetFileType(fileex As String)
Dim FileType As Integer
Dim Program As String
Select Case fileex
Case ".txt"
FileType = 1
Program = "Text Document"
'Case ".doc"
' filetype = 5
' program = "Word Document"
'Case ".docx"
' filetype = 5
' program = "Word Document"
Case ".png"
FileType = 3
Program = "Picture"
Case ".jpg"
FileType = 3
Program = "Picture"
Case ".jpeg"
FileType = 3
Program = "Picture"
Case ".bmp"
FileType = 3
Program = "Bitmap"
Case ".gif"
FileType = 3
Program = "Animated Picture"
'Case ".avi"
' filetype = 10
' program = "Video Clip"
'Case ".m4v"
' filetype = 10
' program = "MPEG-4 Video"
'Case ".mp4"
' filetype = 10
' program = "MPEG-4 Video"
'Case ".wmv"
' filetype = 10
' program = "Windows Media Video"
'Case ".mp3"
' filetype = 9
' program = "MPEG-3 Song"
'Case ".zip"
' filetype = 11
' program = "Compressed Files"
'Case ".dll"
' filetype = 8
' program = "System File"
'Case ".exe"
' filetype = 6
' program = "MS-DOS Executable"
'Case ".sh"
' filetype = 7
' program = "BASH Script"
'Case ".bat"
' filetype = 6
' program = "MS-DOS Batch File"
'Case ".url"
' filetype = 5
' program = "Shortcut"
'Case ".htm", ".html"
' filetype = 5
' program = "Web Page"
Case Else
FileType = 2
Program = "Unknown File Type"
End Select
Dim array() As String = {CStr(FileType), Program}
Return (array)
If txt_AddressBar.Text = "!\" Then
'WARNING TO GET BACK BUTTON DISABLED
End If
End Function
End Class

7
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt
View file

@ -7,7 +7,7 @@ antigua and barbuda
argentina argentina
armenia armenia
australia australia
austia austria
azerbaijan azerbaijan
bahamas bahamas
bahrain bahrain
@ -23,7 +23,7 @@ bosnia and herzegovina
botswana botswana
brazil brazil
brunei brunei
bulgraia bulgaria
burkina faso burkina faso
burundi burundi
cambodia cambodia
@ -37,7 +37,8 @@ china
colombia colombia
comoros comoros
democratic republic of the congo democratic republic of the congo
republic of the congocosta rica republic of the congo
costa rica
croatia croatia
cuba cuba
cyprus cyprus

66
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb generated
View file

@ -145,7 +145,7 @@ Namespace My.Resources
'''argentina '''argentina
'''armenia '''armenia
'''australia '''australia
'''austia '''austria
'''azerbaijan '''azerbaijan
'''bahamas '''bahamas
'''bahrain '''bahrain
@ -161,7 +161,7 @@ Namespace My.Resources
'''botswana '''botswana
'''brazil '''brazil
'''brunei '''brunei
'''bulgraia '''bulgaria
'''burkina faso '''burkina faso
'''burundi '''burundi
'''cambodia '''cambodia
@ -175,13 +175,14 @@ Namespace My.Resources
'''colombia '''colombia
'''comoros '''comoros
'''democratic republic of the congo '''democratic republic of the congo
'''republic of the congocosta rica '''republic of the congo
'''costa rica
'''croatia '''croatia
'''cuba '''cuba
'''cyprus '''cyprus
'''czechia '''czechia
'''denmark '''denmark
'''djibou [rest of string was truncated]&quot;;. '''dji [rest of string was truncated]&quot;;.
'''</summary> '''</summary>
Friend Shared ReadOnly Property Countries() As String Friend Shared ReadOnly Property Countries() As String
Get Get
@ -250,5 +251,62 @@ Namespace My.Resources
Return ResourceManager.GetString("Fruits", resourceCulture) Return ResourceManager.GetString("Fruits", resourceCulture)
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized string similar to alabama
'''alaska
'''arizona
'''arkansas
'''california
'''colorado
'''connecticut
'''delaware
'''florida
'''georgia
'''hawaii
'''idaho
'''illinois
'''indiana
'''iowa
'''kansas
'''kentucky
'''louisiana
'''maine
'''maryland
'''massachusetts
'''michigan
'''minnesota
'''mississippi
'''missouri
'''montana
'''nebraska
'''nevada
'''new hampshire
'''new jersey
'''new mexico
'''new york
'''north carolina
'''north dakota
'''ohio
'''oklahoma
'''oregon
'''pennsylvania
'''rhode island
'''south carolina
'''south dakota
'''tennessee
'''texas
'''utah
'''vermont
'''virginia
'''washington
'''washington dc
'''west virgi [rest of string was truncated]&quot;;.
'''</summary>
Friend Shared ReadOnly Property US_States() As String
Get
Return ResourceManager.GetString("US_States", resourceCulture)
End Get
End Property
End Class End Class
End Namespace End Namespace

3
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx
View file

@ -127,4 +127,7 @@
<data name="Fruits" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Fruits" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>fruits.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value> <value>fruits.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data> </data>
<data name="US_States" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>us_states.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
</root> </root>

51
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/US_States.txt Normal file
View file

@ -0,0 +1,51 @@
alabama
alaska
arizona
arkansas
california
colorado
connecticut
delaware
florida
georgia
hawaii
idaho
illinois
indiana
iowa
kansas
kentucky
louisiana
maine
maryland
massachusetts
michigan
minnesota
mississippi
missouri
montana
nebraska
nevada
new hampshire
new jersey
new mexico
new york
north carolina
north dakota
ohio
oklahoma
oregon
pennsylvania
rhode island
south carolina
south dakota
tennessee
texas
utah
vermont
virginia
washington
washington dc
west virginia
wisconsin
wyoming

2
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb generated
View file

@ -51,7 +51,7 @@ Partial Class Uni_KnowledgeInput
Me.cmb_Category.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) Me.cmb_Category.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.cmb_Category.ForeColor = System.Drawing.Color.Black Me.cmb_Category.ForeColor = System.Drawing.Color.Black
Me.cmb_Category.FormattingEnabled = True Me.cmb_Category.FormattingEnabled = True
Me.cmb_Category.Items.AddRange(New Object() {"Animals", "Countries", "Fruits"}) Me.cmb_Category.Items.AddRange(New Object() {"Animals", "Countries", "Fruits", "US States"})
Me.cmb_Category.Location = New System.Drawing.Point(20, 96) Me.cmb_Category.Location = New System.Drawing.Point(20, 96)
Me.cmb_Category.Name = "cmb_Category" Me.cmb_Category.Name = "cmb_Category"
Me.cmb_Category.Size = New System.Drawing.Size(266, 31) Me.cmb_Category.Size = New System.Drawing.Size(266, 31)

40
ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb
View file

@ -1,9 +1,10 @@
Imports System.IO Imports System.IO
Public Class Uni_KnowledgeInput Public Class Uni_KnowledgeInput
Public Countries(193) As String Public Countries(194) As String
Public Animals(226) As String Public Animals(226) As String
Public Fruits(75) As String Public Fruits(75) As String
Public US_States(50) As String
Public TotalGuessed As Integer Public TotalGuessed As Integer
Public CurrentCategory As String Public CurrentCategory As String
Public Level As Integer Public Level As Integer
@ -26,6 +27,13 @@ Public Class Uni_KnowledgeInput
File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", My.Resources.KnowledgeInputContent.Fruits) File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", My.Resources.KnowledgeInputContent.Fruits)
End If End If
End If End If
If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin") = True Then
Else
If Strings.AvailableFeature(42) = 1 Then
File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin", My.Resources.KnowledgeInputContent.US_States)
End If
End If
Else Else
Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput") Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput")
File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin", My.Resources.KnowledgeInputContent.Countries) File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin", My.Resources.KnowledgeInputContent.Countries)
@ -91,6 +99,12 @@ Public Class Uni_KnowledgeInput
End If End If
Available = True Available = True
Fruits = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin") Fruits = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin")
Case "US States"
If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentUS_States.kin") = True Then
lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentUS_States.kin"))
End If
Available = True
US_States = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin")
End Select End Select
If Available = True Then If Available = True Then
TotalGuessed = lst_Guessed.Items.Count TotalGuessed = lst_Guessed.Items.Count
@ -102,6 +116,8 @@ Public Class Uni_KnowledgeInput
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length
Case "Fruits" Case "Fruits"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length
Case "US States"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & US_States.Length
End Select End Select
Level = Math.Ceiling((TotalGuessed / 10)) Level = Math.Ceiling((TotalGuessed / 10))
CheckLevel() CheckLevel()
@ -116,6 +132,9 @@ Public Class Uni_KnowledgeInput
If Strings.AvailableFeature(39) = 0 Then If Strings.AvailableFeature(39) = 0 Then
cmb_Category.Items.Remove("Fruits") cmb_Category.Items.Remove("Fruits")
End If End If
If Strings.AvailableFeature(42) = 0 Then
cmb_Category.Items.Remove("US States")
End If
End Sub End Sub
Private Sub CheckLevel() Private Sub CheckLevel()
@ -177,6 +196,20 @@ Public Class Uni_KnowledgeInput
Lines = Lines + 1 Lines = Lines + 1
End If End If
Loop Loop
Case "US States"
Dim Lines As Integer = 0
Do
If Lines = US_States.Length Then
Exit Do
End If
If US_States(Lines) = Input Then
US_States(Lines) = "null"
Correct = True
Exit Do
Else
Lines = Lines + 1
End If
Loop
End Select End Select
If Correct = True Then If Correct = True Then
lst_Guessed.Items.Add(Input) lst_Guessed.Items.Add(Input)
@ -189,6 +222,8 @@ Public Class Uni_KnowledgeInput
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length
Case "Fruits" Case "Fruits"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length
Case "US States"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & US_States.Length
End Select End Select
CheckLevel() CheckLevel()
SaveCategory() SaveCategory()
@ -206,6 +241,9 @@ Public Class Uni_KnowledgeInput
Case "Fruits" Case "Fruits"
File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", Fruits) File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", Fruits)
File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin", lst_Guessed.Items.Cast(Of String).ToArray) File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin", lst_Guessed.Items.Cast(Of String).ToArray)
Case "US States"
File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\US_States.kin", US_States)
File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentUS_States.kin", lst_Guessed.Items.Cast(Of String).ToArray)
End Select End Select
End Sub End Sub
End Class End Class

2
ShiftOS-TheRevival/MainForms/Epilepsy.vb
View file

@ -17,7 +17,7 @@
Strings.OnceInfo(6) = "story" Strings.OnceInfo(6) = "story"
IntroStory.Show() IntroStory.Show()
ShiftOSMenu.Close() ShiftOSMenu.Close()
NewGameMode() NewGameMode(0)
Close() Close()
End Select End Select
End Sub End Sub

8
ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb
View file

@ -52,6 +52,14 @@ Public Class ShiftOSMenu
btn_Aboot.Text = "About" btn_Aboot.Text = "About"
btn_Aboot.Visible = True btn_Aboot.Visible = True
btn_Exit.Visible = True btn_Exit.Visible = True
Case "Chapter 2" & Environment.NewLine & "Exploration"
Strings.ComputerInfo(3) = "1"
IsConsoleParent = True
Strings.IsFree = False
Strings.OnceInfo(6) = "story"
NewGameMode(1)
Console.Show()
Close()
End Select End Select
End Sub End Sub

12
ShiftOS-TheRevival/My Project/Resources.Designer.vb generated
View file

@ -61,7 +61,7 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Looks up a localized string similar to 0.2.6. ''' Looks up a localized string similar to 0.2.7.
'''</summary> '''</summary>
Friend ReadOnly Property CurrentVersion() As String Friend ReadOnly Property CurrentVersion() As String
Get Get
@ -81,6 +81,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ico_folder() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_folder", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized string similar to A basic command-line tool for simple calculation. ''' Looks up a localized string similar to A basic command-line tool for simple calculation.
''' '''

153
ShiftOS-TheRevival/My Project/Resources.resx
View file

@ -121,94 +121,97 @@
<data name="CurrentVersion" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="CurrentVersion" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CurrentVersion.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value> <value>..\Resources\CurrentVersion.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
</data> </data>
<data name="Fortunes" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\fortunes.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_bc" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\bc.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_cd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\cd.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_clear" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\clear.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_codepoint" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\codepoint.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\color.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_colors" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\colors.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_cowsay" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\cowsay.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\del.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_dir" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\dir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_guess" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\guess.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_help" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\help.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_hostname" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\hostname.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_infobar" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\infobar.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_man" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\man.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_mkdir" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\mkdir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_print" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\print.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_pwd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\pwd.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_reboot" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\reboot.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_rmdir" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\rmdir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_shiftfetch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\shiftfetch.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_shiftorium" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\shiftorium.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_shutdown" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\shutdown.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_textpad" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\textpad.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_time" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\time.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_username" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="man_username" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\username.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value> <value>..\resources\man manuals\username.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data> </data>
<data name="man_ver" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="man_ver" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\ver.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value> <value>..\resources\man manuals\ver.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data> </data>
<data name="man_guess" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\guess.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_codepoint" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\codepoint.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_cd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\cd.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\color.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\del.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_mkdir" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\mkdir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_zip" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="man_zip" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\zip.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value> <value>..\resources\man manuals\zip.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data> </data>
<data name="MenuBanner1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="MenuBanner1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Menu Picture\ShiftOS_MenuBanner1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Menu Picture\ShiftOS_MenuBanner1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="man_dir" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\dir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_shutdown" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\shutdown.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="MenuBanner2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="MenuBanner2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Menu Picture\ShiftOS_MenuBanner2.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Menu Picture\ShiftOS_MenuBanner2.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="man_hostname" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\hostname.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_colors" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\colors.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_bc" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\bc.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_pwd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\pwd.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_man" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\man.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_print" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\print.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_textpad" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\textpad.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_cowsay" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\cowsay.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_clear" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\clear.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_infobar" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\infobar.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_help" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\help.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_rmdir" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\rmdir.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_reboot" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\reboot.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_shiftorium" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\shiftorium.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_shiftfetch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\shiftfetch.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_time" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\time.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="Fortunes" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\fortunes.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="ico_folder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\MainForms\Applications\Universal\File Skimmer\Icons\ico_folder.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root> </root>

BIN
ShiftOS-TheRevival/Resources/ico_up1.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 2.4 KiB

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

@ -118,6 +118,22 @@
<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\File Skimmer\Icons\FileSkimmerFileIcons.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>FileSkimmerFileIcons.resx</DependentUpon>
</Compile>
<Compile Include="MainForms\Applications\Universal\File Skimmer\Icons\FileSkimmerFunctionIcons.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>FileSkimmerFunctionIcons.resx</DependentUpon>
</Compile>
<Compile Include="MainForms\Applications\Universal\File Skimmer\Uni_FileSkimmer.Designer.vb">
<DependentUpon>Uni_FileSkimmer.vb</DependentUpon>
</Compile>
<Compile Include="MainForms\Applications\Universal\File Skimmer\Uni_FileSkimmer.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="MainForms\Applications\Universal\Knowledge Input\Contents\KnowledgeInputContent.Designer.vb"> <Compile Include="MainForms\Applications\Universal\Knowledge Input\Contents\KnowledgeInputContent.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DesignTime>True</DesignTime> <DesignTime>True</DesignTime>
@ -276,6 +292,19 @@
<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\File Skimmer\Icons\FileSkimmerFileIcons.resx">
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>ResXFileCodeGenerator</Generator>
<LastGenOutput>FileSkimmerFileIcons.Designer.vb</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\Applications\Universal\File Skimmer\Icons\FileSkimmerFunctionIcons.resx">
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>ResXFileCodeGenerator</Generator>
<LastGenOutput>FileSkimmerFunctionIcons.Designer.vb</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\Applications\Universal\File Skimmer\Uni_FileSkimmer.resx">
<DependentUpon>Uni_FileSkimmer.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\Applications\Universal\Knowledge Input\Contents\KnowledgeInputContent.resx"> <EmbeddedResource Include="MainForms\Applications\Universal\Knowledge Input\Contents\KnowledgeInputContent.resx">
<CustomToolNamespace>My.Resources</CustomToolNamespace> <CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>ResXFileCodeGenerator</Generator> <Generator>ResXFileCodeGenerator</Generator>
@ -352,10 +381,21 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<None Include="Resources\CurrentVersion.txt" /> <None Include="Resources\CurrentVersion.txt" />
<None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_exe.png" />
<None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_folder.bmp" />
<None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_picture.bmp" />
<None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_sfp.png" />
<None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_textfile.bmp" />
<None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_unknown.bmp" />
<None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_up.bmp" />
<None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_url.bmp" />
<None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_video.bmp" />
<Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Animals.txt" /> <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Animals.txt" />
<Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Countries.txt" /> <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Countries.txt" />
<Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Fruits.txt" /> <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Fruits.txt" />
<Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\US_States.txt" />
<Content Include="MainForms\rev.txt" /> <Content Include="MainForms\rev.txt" />
<None Include="Resources\ico_up1.png" />
<Content Include="Resources\man Manuals\zip.txt" /> <Content Include="Resources\man Manuals\zip.txt" />
<Content Include="Resources\man Manuals\textpad.txt" /> <Content Include="Resources\man Manuals\textpad.txt" />
<Content Include="Resources\Fortunes.txt" /> <Content Include="Resources\Fortunes.txt" />

3
ShiftOS-TheRevival/TerminalApplications/External/BasicCalculator/App_BC.vb vendored
View file

@ -68,6 +68,9 @@
BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2) BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2)
BC_ThriceMoreValue = Nothing BC_ThriceMoreValue = Nothing
NewLine(BC_Result) NewLine(BC_Result)
If BC_Result = 69 Then
NewLine("Nice!")
End If
End Sub End Sub
Public Sub BC_Counting(FirstNum As Integer, SecondNum As Integer, Operation As String) Public Sub BC_Counting(FirstNum As Integer, SecondNum As Integer, Operation As String)

54
ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb vendored
View file

@ -17,34 +17,36 @@
End Sub End Sub
Public Sub MQ_GiveQuestion() Public Sub MQ_GiveQuestion()
Dim RandomNum As New Random Try
MQ_1stNum = RandomNum.Next(1, 10) Dim RandomNum As New Random
MQ_2ndNum = RandomNum.Next(1, 10) MQ_1stNum = RandomNum.Next(1, 10)
OperationChooser = RandomNum.Next(1, 5) MQ_2ndNum = RandomNum.Next(1, 10)
Select Case OperationChooser OperationChooser = RandomNum.Next(1, 5)
Case 1 Select Case OperationChooser
MQ_Operation = " + " Case 1
MQ_ShouldResult = MQ_1stNum + MQ_2ndNum MQ_Operation = " + "
Case 2 MQ_ShouldResult = MQ_1stNum + MQ_2ndNum
While MQ_2ndNum >= MQ_1stNum Case 2
MQ_2ndNum = RandomNum.Next(1, 10) While MQ_2ndNum >= MQ_1stNum
End While
MQ_Operation = " - "
MQ_ShouldResult = MQ_1stNum - MQ_2ndNum
Case 3
MQ_Operation = " * "
MQ_ShouldResult = MQ_1stNum * MQ_2ndNum
Case 4
While MQ_2ndNum > MQ_1stNum
MQ_2ndNum = RandomNum.Next(1, 10) MQ_2ndNum = RandomNum.Next(1, 10)
End While End While
MQ_Operation = " / " MQ_Operation = " - "
MQ_ShouldResult = MQ_1stNum / MQ_2ndNum MQ_ShouldResult = MQ_1stNum - MQ_2ndNum
Case Else Case 3
MQ_Operation = " + " MQ_Operation = " * "
MQ_ShouldResult = MQ_1stNum + MQ_2ndNum MQ_ShouldResult = MQ_1stNum * MQ_2ndNum
End Select Case 4
NewLine("What is " & MQ_1stNum & MQ_Operation & MQ_2ndNum & " ?") While MQ_2ndNum > MQ_1stNum
MQ_2ndNum = RandomNum.Next(1, 10)
End While
MQ_Operation = " / "
MQ_ShouldResult = MQ_1stNum / MQ_2ndNum
End Select
NewLine("What is " & MQ_1stNum & MQ_Operation & MQ_2ndNum & " ?")
Catch ex As Exception
NewLine(ex.Message)
TerminateApp(Nothing)
End Try
End Sub End Sub
Public Sub MQ_CheckAnswer() Public Sub MQ_CheckAnswer()

4
ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb vendored
View file

@ -10,7 +10,7 @@ Module TerminalExternalApps
' Terminal.TextBox1.ReadOnly = True ' Terminal.TextBox1.ReadOnly = True
' Terminal.DefaultPrompt = "Press any key to continue..." ' Terminal.DefaultPrompt = "Press any key to continue..."
' Terminal.CurrentInterpreter = "pause" ' Terminal.CurrentInterpreter = "pause"
' FreezeText = Terminal.TextBox1.Text ' FreezeText = Terminal.TextBox1 x .Text
' ShouldChange = True ' ShouldChange = True
Case "shiftoriumfx" 'ShiftoriumFX : Advanced Shiftorium Case "shiftoriumfx" 'ShiftoriumFX : Advanced Shiftorium
Console.DefaultPrompt = "Navigate> " Console.DefaultPrompt = "Navigate> "
@ -100,6 +100,8 @@ Module TerminalExternalApps
Case "ojas" Case "ojas"
NewLine("dis calculator is very gud") NewLine("dis calculator is very gud")
NewLine("it counts from another universe") NewLine("it counts from another universe")
Case "cameron"
NewLine("quiet frankly it's ShiftOS")
Case "exit" Case "exit"
TerminateApp(Nothing) TerminateApp(Nothing)
Case Else Case Else

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

@ -14,6 +14,8 @@
If Strings.AvailableFeature(36) = 1 Then If Strings.AvailableFeature(36) = 1 Then
DuWM_NewProcess(DuWM_Shifter) DuWM_NewProcess(DuWM_Shifter)
End If End If
Case "file_skimmer"
DuWM_NewProcess(Uni_FileSkimmer)
End Select End Select
End Select End Select
End Sub End Sub