Compare commits

...

11 commits

Author SHA1 Message Date
EverythingWindows
38e046cc49 JanusWM small foundation 2022-12-30 19:45:28 +07:00
EverythingWindows
365cc92f8a 0.2.8 final code 2022-12-10 01:56:35 +07:00
EverythingWindows
2cb19f4dd0 little work on the next window manager 2022-12-04 18:46:53 +07:00
EverythingWindows
0e6eb6e76f Console Font finished and the foundation of new window manager is there 2022-12-03 23:16:06 +07:00
EverythingWindows
16094d6b2f Shiftoriumable File Skimmer 2022-12-03 14:41:48 +07:00
EverythingWindows
245fadfa72 so far functional file skimmer 2022-12-03 07:10:41 +07:00
EverythingWindows
22502171c2 navigatable and proprtieable File Skimmer 2022-11-28 08:15:19 +07:00
EverythingWindows
23547b2d87 rough working file skimmer 2022-11-27 21:27:36 +07:00
EverythingWindows
d7cdf48c58 nice try on file skimmer lol 2022-11-27 20:58:48 +07:00
EverythingWindows
d09d7c9472 Merge branch 'master' of https://github.com/EverythingWindows/ShiftOS-TheRevival 2022-11-24 23:39:11 +07:00
EverythingWindows
c1206d8634 0.2.7 final code 2022-11-24 23:38:31 +07:00
68 changed files with 4015 additions and 229 deletions

View file

@ -11,13 +11,15 @@ Module TerminalAPI
Strings.OnceInfo(4) = "!"
If IsConsoleParent = True Then
Console.TopMost = False
Cursor.Hide()
Strings.OnceInfo(7) = Console.Width
Strings.OnceInfo(8) = Console.Height
Console.TextBox1.Font = New Font("Consolas", 11)
Console.ConsoleFontHandle.Stop()
Cursor.Hide()
If Strings.IsFree = True Then
Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user"
Strings.ComputerInfo(7) = 1
Strings.ComputerInfo(7) = 2
Terminal_CheckFeature()
Terminal_PrintPrompt()
Terminal_AssignPrompt()
@ -52,11 +54,17 @@ Module TerminalAPI
End If
End If
Else
Cursor.Show()
Console_Windowed()
Console.TopMost = True
Try
Console.TextBox1.Font = GUISCustomizations.GUIConsoleFont
Catch ex As Exception
Console.TextBox1.Font = New Font("Consolas", 11)
End Try
Terminal_PrintPrompt()
Terminal_AssignPrompt()
Cursor.Show()
Console.ConsoleFontHandle.Start()
End If
Console.CurrentDirectory = Strings.OnceInfo(1)
Console.Pseudodir = Console.CurrentDirectory.Replace(Strings.OnceInfo(1), "!\")
@ -189,6 +197,8 @@ Module TerminalAPI
Case "05tray"
_05tray()
NewLine("you cheater!")
Case "anus"
AnusWM_Menu.Show()
Case "applist"
If IsStartG = True Then
AppList()

View file

@ -1,4 +1,6 @@
Public Class GUISCustomizations
'Desktop Stuff
Public Shared DesktopColor As Color
'Console Stuff
Public Shared GUIConsoleFont As Font
End Class

View file

@ -3,11 +3,11 @@
Public Shared ComputerInfo(7) As String
Public Shared IsFree As Boolean
Public Shared OnceInfo(8) As String
Public Shared AvailableFeature(41) As String
Public Shared AvailableFeature(53) As String
Public Shared CLIInterpreter As String
Public Shared SaveFile As String
Public Shared Achievement As String
Public Shared ProcessID(1) As String
Public Shared ProcessID(15) As String
'STRING CATEGORIZATION WRITING RULES!
'THIS IS IN ORDER TO REMAIN COMPATIBLE WITH OLDER VERSIONS!
@ -96,6 +96,18 @@
'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)
'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)
'43 = DuWM Advanced Read and Write [Expands read and write support for DuWM] (default : 0)
'44 = File Skimmer [A file manager for ShiftOS] (default : 0)
'45 = File Skimmer Folder Support [Supports for reading and writing folder in File Skimmer] (default : 0)
'46 = File Skimmer File Support [Supports for reading and writing file in File Skimmer] (default : 0)
'47 = File Skimmer Delete Support [Adds file deletion function into ShiftOS] (default : 0)
'48 = File Skimmer ZIP Support [Adds ZIP compression function into ShiftOS] (default : 0)
'49 = File Skimmer Properties Pane [Adds a sidebar contains file/directory informations] (default : 0)
'50 = File Skimmer JobBar [Adds a top bar for actions on File Skimmer] (default : 0)
'51 = File Skimmer Small Icons [Adds small icons layout on File Skimmer] (default : 0)
'52 = File Skimmer List [Adds small icons layout on File Skimmer] (default : 0)
'53 = Shifter Console [Adds Console Customization on Shifter] (default : 0)
'
'Features bought hierarchy :
'
@ -142,7 +154,19 @@
'>>DuWM RGB Support (DUWMRGB) (225 CP)
'>>>DuWM 16 Colors Support (DUWMRGB2) (275 CP)
'>>Shifter (SHIFTER) (250 CP)
'>>>Shifter Console (SHR_CONSOLE) (275 CP)
'>>Knowledge Input (KNOWLEDGE) (275 CP)
'>>>KI Animals (KI_ANIMALS) (300 CP)
'>>>KI Fruits (KI_FRUITS) (300 CP)
'>>>KI US States (KI_US) (300 CP)
'>>DuWM Advanced Read and Write support (DUWM_RW) (250 CP)
'>>>File Skimmer (FILESKIMMER) (300 CP)
'>>>>FS Folder Support (FS_FOLDER) (325 CP)
'>>>>>FS File Support (FS_FILE) (350 CP)
'>>>>>>FS Delete Support (FS_DELETE) (400 CP)
'>>>>>>FS ZIP Support (FS_ZIP) (500 CP)
'>>>>FS Properties Pane (FS_PPANE) (350 CP)
'>>>>FS JobBar (FS_JOBBAR) (400 CP)
'>>>>>FS Small Icons Layout (FS_SMALLICONS) (425 CP)
'>>>>>FS List Layout (FS_LIST) (425 CP)
End Class

View file

@ -142,6 +142,9 @@
If Strings.AvailableFeature(36) = 0 Then
NewLine("(shifter | 250 CP) Shifter")
Else
If Strings.AvailableFeature(53) = 0 Then
NewLine("(shr_console | 275 CP) Shifter Console")
End If
If Strings.AvailableFeature(40) = 0 Then
NewLine("(duwmrgb | 225 CP) DuWM RGB Support")
Else
@ -159,6 +162,44 @@
If Strings.AvailableFeature(39) = 0 Then
NewLine("(ki_fruits | 300 CP) KI Fruits")
End If
If Strings.AvailableFeature(42) = 0 Then
NewLine("(ki_us | 300 CP) KI US States")
End If
End If
If Strings.AvailableFeature(43) = 0 Then
NewLine("(duwm_rw | 250 CP) DuWM Advanced Read and Write support")
Else
If Strings.AvailableFeature(44) = 0 Then
NewLine("(fileskimmer | 300 CP) File Skimmer")
Else
If Strings.AvailableFeature(45) = 0 Then
NewLine("(fs_folder | 325 CP) FS Folder Support")
Else
If Strings.AvailableFeature(46) = 0 Then
NewLine("(fs_file | 350 CP) FS File Support")
Else
If Strings.AvailableFeature(47) = 0 Then
NewLine("(fs_delete | 400 CP) FS Delete Support")
End If
If Strings.AvailableFeature(48) = 0 Then
NewLine("(fs_zip | 500 CP) FS ZIP Support")
End If
End If
End If
If Strings.AvailableFeature(49) = 0 Then
NewLine("(fs_ppane | 350 CP) FS Property Pane")
End If
If Strings.AvailableFeature(50) = 0 Then
NewLine("(fs_jobbar | 400 CP) FS JobBar")
Else
If Strings.AvailableFeature(51) = 0 Then
NewLine("(fs_smallicons | 425 CP) FS Small Icons Layout")
End If
If Strings.AvailableFeature(52) = 0 Then
NewLine("(fs_list | 425 CP) FS List Layout")
End If
End If
End If
End If
End If
End Sub
@ -495,6 +536,182 @@
NewLine(ManHeader(1))
NormalCommand()
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 "duwm_rw"
If Strings.AvailableFeature(43) = 0 Then
ManHeader(0) = "DuWM Advanced Read and Write support"
ManHeader(1) = "250 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Expands read and write support for Dual Window Manager")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fileskimmer"
If Strings.AvailableFeature(44) = 0 Then
ManHeader(0) = "File Skimmer"
ManHeader(1) = "300 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("A file manager for ShiftOS")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_folder"
If Strings.AvailableFeature(45) = 0 Then
ManHeader(0) = "FS Folder support"
ManHeader(1) = "325 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds folder read and write support for File Skimmer")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_file"
If Strings.AvailableFeature(46) = 0 Then
ManHeader(0) = "FS File support"
ManHeader(1) = "350 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds file read and write support for File Skimmer")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_delete"
If Strings.AvailableFeature(47) = 0 Then
ManHeader(0) = "FS Delete support"
ManHeader(1) = "400 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Supports file or directory deletion function in ShiftOS")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_zip"
If Strings.AvailableFeature(48) = 0 Then
ManHeader(0) = "FS Delete support"
ManHeader(1) = "500 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Supports ZIP compression function in ShiftOS")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_ppane"
If Strings.AvailableFeature(49) = 0 Then
ManHeader(0) = "FS Property Pane"
ManHeader(1) = "350 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("A sidebar for displaying informations about the file / directory")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_jobbar"
If Strings.AvailableFeature(50) = 0 Then
ManHeader(0) = "FS JobBar"
ManHeader(1) = "400 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("A top panel contains certain actions for File Skimmer")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_smallicons"
If Strings.AvailableFeature(51) = 0 Then
ManHeader(0) = "FS Small Icons Layout"
ManHeader(1) = "425 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds small icons as a display layout in File Skimmer")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "fs_list"
If Strings.AvailableFeature(52) = 0 Then
ManHeader(0) = "FS List"
ManHeader(1) = "425 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds list as a display layout in File Skimmer")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case "shr_console"
If Strings.AvailableFeature(53) = 0 Then
ManHeader(0) = "Shifter Console"
ManHeader(1) = "275 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds Console customability on Shifter")
NewLine(Nothing)
NewLine(ManHeader(1))
NormalCommand()
End If
Case Else
NormalCommand()
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@ -631,6 +848,42 @@
Case "duwmrgb2"
Shiftorium_InstallFeatures(True, "duwmrgb2", 41, 275)
NormalCommand()
Case "ki_us"
Shiftorium_InstallFeatures(True, "ki_us", 42, 300)
NormalCommand()
Case "duwm_rw"
Shiftorium_InstallFeatures(True, "duwm_rw", 43, 250)
NormalCommand()
Case "fileskimmer"
Shiftorium_InstallFeatures(True, "fileskimmer", 44, 300)
NormalCommand()
Case "fs_folder"
Shiftorium_InstallFeatures(True, "fs_folder", 45, 325)
NormalCommand()
Case "fs_file"
Shiftorium_InstallFeatures(True, "fs_file", 46, 350)
NormalCommand()
Case "fs_delete"
Shiftorium_InstallFeatures(True, "fs_delete", 47, 400)
NormalCommand()
Case "fs_zip"
Shiftorium_InstallFeatures(True, "fs_zip", 48, 500)
NormalCommand()
Case "fs_ppane"
Shiftorium_InstallFeatures(True, "fs_ppane", 49, 350)
NormalCommand()
Case "fs_jobbar"
Shiftorium_InstallFeatures(True, "fs_jobbar", 50, 400)
NormalCommand()
Case "fs_smallicons"
Shiftorium_InstallFeatures(True, "fs_smallicons", 51, 425)
NormalCommand()
Case "fs_list"
Shiftorium_InstallFeatures(True, "fs_list", 52, 425)
NormalCommand()
Case "shr_console"
Shiftorium_InstallFeatures(True, "shr_console", 53, 275)
NormalCommand()
Case Else
NormalCommand()
NewLine("Shiftorium: Bad command or not available")
@ -799,18 +1052,22 @@
Strings.AvailableFeature(35) = "1"
Strings.ComputerInfo(7) = 1
GUISCustomizations.DesktopColor = Color.Black
GUISCustomizations.GUIConsoleFont = New Font("Consolas", 11)
Strings.AvailableFeature(36) = "0"
Strings.AvailableFeature(37) = "0"
Strings.AvailableFeature(43) = "0"
success = True
Case "shifter"
Strings.AvailableFeature(36) = "1"
Strings.AvailableFeature(40) = "0"
Strings.AvailableFeature(41) = "0"
Strings.AvailableFeature(53) = "0"
success = True
Case "knowledge"
Strings.AvailableFeature(37) = "1"
Strings.AvailableFeature(38) = "0"
Strings.AvailableFeature(39) = "0"
Strings.AvailableFeature(42) = "0"
success = True
Case "ki_animals"
Strings.AvailableFeature(38) = "1"
@ -825,6 +1082,51 @@
Strings.AvailableFeature(40) = "3"
Strings.AvailableFeature(41) = "1"
success = True
Case "ki_us"
Strings.AvailableFeature(42) = "1"
success = True
Case "duwm_rw"
Strings.AvailableFeature(43) = "1"
Strings.AvailableFeature(44) = "0"
success = True
Case "fileskimmer"
Strings.AvailableFeature(44) = "1"
Strings.AvailableFeature(45) = "0"
Strings.AvailableFeature(49) = "0"
Strings.AvailableFeature(50) = "0"
success = True
Case "fs_folder"
Strings.AvailableFeature(45) = "1"
Strings.AvailableFeature(46) = "0"
success = True
Case "fs_file"
Strings.AvailableFeature(46) = "1"
Strings.AvailableFeature(47) = "0"
Strings.AvailableFeature(48) = "0"
success = True
Case "fs_delete"
Strings.AvailableFeature(47) = "1"
success = True
Case "fs_zip"
Strings.AvailableFeature(48) = "1"
success = True
Case "fs_ppane"
Strings.AvailableFeature(49) = "1"
success = True
Case "fs_jobbar"
Strings.AvailableFeature(50) = "1"
Strings.AvailableFeature(51) = "0"
Strings.AvailableFeature(52) = "0"
success = True
Case "fs_smallicons"
Strings.AvailableFeature(51) = "1"
success = True
Case "fs_list"
Strings.AvailableFeature(52) = "1"
success = True
Case "shr_console"
Strings.AvailableFeature(53) = "1"
success = True
End Select
If success = False Then
If IsCLI = True Then

View file

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

View file

@ -2,7 +2,7 @@
Module SaveLoadSystem
Public Sub NewGameMode()
Public Sub NewGameMode(Chapter As Integer)
'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\SysShiftFS", True)
@ -14,6 +14,8 @@ Module SaveLoadSystem
Strings.ComputerInfo(1) = "user"
Strings.ComputerInfo(2) = "0"
Strings.ComputerInfo(4) = "0"
Select Case Chapter
Case 0
Strings.AvailableFeature(0) = "2"
Strings.AvailableFeature(1) = "2"
Strings.AvailableFeature(2) = "2"
@ -60,6 +62,80 @@ Module SaveLoadSystem
Strings.AvailableFeature(39) = "2"
Strings.AvailableFeature(40) = "2"
Strings.AvailableFeature(41) = "2"
'0.2.8 Features
Strings.AvailableFeature(42) = "2"
Strings.AvailableFeature(43) = "2"
Strings.AvailableFeature(44) = "2"
Strings.AvailableFeature(45) = "2"
Strings.AvailableFeature(46) = "2"
Strings.AvailableFeature(47) = "2"
Strings.AvailableFeature(48) = "2"
Strings.AvailableFeature(49) = "2"
Strings.AvailableFeature(50) = "2"
Strings.AvailableFeature(51) = "2"
Strings.AvailableFeature(52) = "2"
Strings.AvailableFeature(53) = "2"
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"
Strings.AvailableFeature(43) = "2"
Strings.AvailableFeature(44) = "2"
Strings.AvailableFeature(45) = "2"
Strings.AvailableFeature(46) = "2"
Strings.AvailableFeature(47) = "2"
Strings.AvailableFeature(48) = "2"
Strings.AvailableFeature(49) = "2"
Strings.AvailableFeature(50) = "2"
Strings.AvailableFeature(51) = "2"
Strings.AvailableFeature(52) = "2"
Strings.AvailableFeature(53) = "2"
End Select
End Sub
Public Sub FreeRoamMode()
@ -68,7 +144,7 @@ Module SaveLoadSystem
Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user"
Strings.ComputerInfo(2) = "0"
Strings.ComputerInfo(4) = "42"
Strings.ComputerInfo(4) = "53"
Strings.AvailableFeature(0) = "1"
Strings.AvailableFeature(1) = "1"
Strings.AvailableFeature(2) = "1"
@ -115,13 +191,29 @@ Module SaveLoadSystem
Strings.AvailableFeature(39) = "1"
Strings.AvailableFeature(40) = "3"
Strings.AvailableFeature(41) = "1"
'0.2.8 Features
Strings.AvailableFeature(42) = "1"
Strings.AvailableFeature(43) = "1"
Strings.AvailableFeature(44) = "1"
Strings.AvailableFeature(45) = "1"
Strings.AvailableFeature(46) = "1"
Strings.AvailableFeature(47) = "1"
Strings.AvailableFeature(48) = "1"
Strings.AvailableFeature(49) = "1"
Strings.AvailableFeature(50) = "1"
Strings.AvailableFeature(51) = "1"
Strings.AvailableFeature(52) = "1"
Strings.AvailableFeature(53) = "1"
'GUI Customizations
GUISCustomizations.DesktopColor = Color.Black
GUISCustomizations.GUIConsoleFont = New Font("Consolas", 11)
End Sub
Public Sub GodMode()
'Same as new game but codepoints automatically assigned to 9999 and not saved into the FS
Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user"
Strings.ComputerInfo(2) = 9999
Strings.ComputerInfo(2) = 100000
Strings.ComputerInfo(4) = "0"
Strings.AvailableFeature(0) = "2"
Strings.AvailableFeature(1) = "2"
@ -168,6 +260,19 @@ Module SaveLoadSystem
Strings.AvailableFeature(39) = "2"
Strings.AvailableFeature(40) = "2"
Strings.AvailableFeature(41) = "2"
'0.2.8 Features
Strings.AvailableFeature(42) = "2"
Strings.AvailableFeature(43) = "2"
Strings.AvailableFeature(44) = "2"
Strings.AvailableFeature(45) = "2"
Strings.AvailableFeature(46) = "2"
Strings.AvailableFeature(47) = "2"
Strings.AvailableFeature(48) = "2"
Strings.AvailableFeature(49) = "2"
Strings.AvailableFeature(50) = "2"
Strings.AvailableFeature(51) = "2"
Strings.AvailableFeature(52) = "2"
Strings.AvailableFeature(53) = "2"
End Sub
Public Sub SaveGame()
@ -179,6 +284,10 @@ Module SaveLoadSystem
Case 1
Dim DesktopColor As Integer = GUISCustomizations.DesktopColor.ToArgb()
File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_Desktop.sos", DesktopColor.ToString)
Dim ConsoleFont(1) As String
ConsoleFont(0) = GUISCustomizations.GUIConsoleFont.Name
ConsoleFont(1) = GUISCustomizations.GUIConsoleFont.Size
File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_ConsoleFont.sos", ConsoleFont)
End Select
End If
End If
@ -198,6 +307,13 @@ Module SaveLoadSystem
Else
GUISCustomizations.DesktopColor = Color.Black
End If
If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_ConsoleFont.sos") = True Then
Dim ConsoleFont(1) As String
ConsoleFont = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_ConsoleFont.sos")
GUISCustomizations.GUIConsoleFont = New Font(ConsoleFont(0), ConsoleFont(1))
Else
GUISCustomizations.GUIConsoleFont = New Font("Consolas", 11)
End If
End Select
End If
End If

View file

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

View file

@ -29,7 +29,7 @@ Partial Class Console
Me.InfoBarTimer = New System.Windows.Forms.Timer(Me.components)
Me.ToolBar = New System.Windows.Forms.TextBox()
Me.ShortcutHandler = New System.ComponentModel.BackgroundWorker()
Me.DuWMHandle = New System.Windows.Forms.Timer(Me.components)
Me.ConsoleFontHandle = New System.Windows.Forms.Timer(Me.components)
Me.SuspendLayout()
'
'TextBox1
@ -81,7 +81,7 @@ Partial Class Console
Me.ToolBar.TabIndex = 1
Me.ToolBar.Visible = False
'
'DuWMHandle
'ConsoleFontHandle
'
'
'Console
@ -109,5 +109,5 @@ Partial Class Console
Friend WithEvents InfoBarTimer As Timer
Friend WithEvents ToolBar As TextBox
Public WithEvents ShortcutHandler As System.ComponentModel.BackgroundWorker
Friend WithEvents DuWMHandle As Timer
Friend WithEvents ConsoleFontHandle As Timer
End Class

View file

@ -126,7 +126,7 @@
<metadata name="ShortcutHandler.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>274, 17</value>
</metadata>
<metadata name="DuWMHandle.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<metadata name="ConsoleFontHandle.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>415, 17</value>
</metadata>
</root>

View file

@ -22,9 +22,7 @@ Public Class Console
With ShortcutHandler
.WorkerSupportsCancellation = True
End With
'MsgBox("Full!")
Console_Full()
'MsgBox("Initialize!")
InitializeTerminal()
End Sub
@ -227,7 +225,7 @@ Public Class Console
If Strings.OnceInfo(0) = "Yes" Then
InfoBar.Text = InfoBar.Text & " root |"
Else
InfoBar.Text = InfoBar.Text & " user |"
InfoBar.Text = InfoBar.Text & " " & Strings.ComputerInfo(1) & " |"
End If
InfoBar.Text = InfoBar.Text & " " & CurrentInterpreter & " |"
InfoBar.Text = InfoBar.Text & " " & Strings.ComputerInfo(2) & " CP |"
@ -238,7 +236,12 @@ Public Class Console
End Sub
Private Sub DuWMHandle_Tick(sender As Object, e As EventArgs) Handles DuWMHandle.Tick
Private Sub ConsoleFontHandle_Tick(sender As Object, e As EventArgs) Handles ConsoleFontHandle.Tick
If InfoBar.Font IsNot GUISCustomizations.GUIConsoleFont Then
InfoBar.Font = GUISCustomizations.GUIConsoleFont
End If
If ToolBar.Font IsNot GUISCustomizations.GUIConsoleFont Then
ToolBar.Font = GUISCustomizations.GUIConsoleFont
End If
End Sub
End Class

View file

@ -0,0 +1,157 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DuWM_Shifter_Console
Inherits System.Windows.Forms.UserControl
'UserControl 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.lbl_Title = New System.Windows.Forms.Label()
Me.lbl_DescConsole = New System.Windows.Forms.Label()
Me.lbl_ConsoleFont = New System.Windows.Forms.Label()
Me.cmb_ConsoleFont = New System.Windows.Forms.ComboBox()
Me.lbl_ConsoleFontSize = New System.Windows.Forms.Label()
Me.cmb_ConsoleFontSize = New System.Windows.Forms.ComboBox()
Me.lbl_Example = New System.Windows.Forms.Label()
Me.txt_ConsoleExample = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'lbl_Title
'
Me.lbl_Title.AutoSize = True
Me.lbl_Title.Font = New System.Drawing.Font("Segoe UI", 24.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle))
Me.lbl_Title.Location = New System.Drawing.Point(11, 10)
Me.lbl_Title.Name = "lbl_Title"
Me.lbl_Title.Size = New System.Drawing.Size(136, 45)
Me.lbl_Title.TabIndex = 1
Me.lbl_Title.Text = "Console"
'
'lbl_DescConsole
'
Me.lbl_DescConsole.AutoSize = True
Me.lbl_DescConsole.Font = New System.Drawing.Font("Segoe UI", 12.0!)
Me.lbl_DescConsole.ForeColor = System.Drawing.Color.Black
Me.lbl_DescConsole.Location = New System.Drawing.Point(15, 71)
Me.lbl_DescConsole.Name = "lbl_DescConsole"
Me.lbl_DescConsole.Size = New System.Drawing.Size(266, 21)
Me.lbl_DescConsole.TabIndex = 3
Me.lbl_DescConsole.Text = "Choose Console font face and its size"
'
'lbl_ConsoleFont
'
Me.lbl_ConsoleFont.AutoSize = True
Me.lbl_ConsoleFont.Font = New System.Drawing.Font("Segoe UI", 12.0!)
Me.lbl_ConsoleFont.ForeColor = System.Drawing.Color.Black
Me.lbl_ConsoleFont.Location = New System.Drawing.Point(15, 106)
Me.lbl_ConsoleFont.Name = "lbl_ConsoleFont"
Me.lbl_ConsoleFont.Size = New System.Drawing.Size(135, 21)
Me.lbl_ConsoleFont.TabIndex = 4
Me.lbl_ConsoleFont.Text = "Console Font Face"
'
'cmb_ConsoleFont
'
Me.cmb_ConsoleFont.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.cmb_ConsoleFont.Font = New System.Drawing.Font("Segoe UI", 12.0!)
Me.cmb_ConsoleFont.FormattingEnabled = True
Me.cmb_ConsoleFont.Items.AddRange(New Object() {"Consolas", "Courier New", "Lucida Console"})
Me.cmb_ConsoleFont.Location = New System.Drawing.Point(156, 103)
Me.cmb_ConsoleFont.Name = "cmb_ConsoleFont"
Me.cmb_ConsoleFont.Size = New System.Drawing.Size(250, 30)
Me.cmb_ConsoleFont.TabIndex = 5
'
'lbl_ConsoleFontSize
'
Me.lbl_ConsoleFontSize.AutoSize = True
Me.lbl_ConsoleFontSize.Font = New System.Drawing.Font("Segoe UI", 12.0!)
Me.lbl_ConsoleFontSize.ForeColor = System.Drawing.Color.Black
Me.lbl_ConsoleFontSize.Location = New System.Drawing.Point(15, 147)
Me.lbl_ConsoleFontSize.Name = "lbl_ConsoleFontSize"
Me.lbl_ConsoleFontSize.Size = New System.Drawing.Size(133, 21)
Me.lbl_ConsoleFontSize.TabIndex = 6
Me.lbl_ConsoleFontSize.Text = "Console Font Size"
'
'cmb_ConsoleFontSize
'
Me.cmb_ConsoleFontSize.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.cmb_ConsoleFontSize.Font = New System.Drawing.Font("Segoe UI", 12.0!)
Me.cmb_ConsoleFontSize.FormattingEnabled = True
Me.cmb_ConsoleFontSize.Items.AddRange(New Object() {"6", "8", "9", "10", "11", "12", "14", "16"})
Me.cmb_ConsoleFontSize.Location = New System.Drawing.Point(156, 144)
Me.cmb_ConsoleFontSize.Name = "cmb_ConsoleFontSize"
Me.cmb_ConsoleFontSize.Size = New System.Drawing.Size(70, 30)
Me.cmb_ConsoleFontSize.TabIndex = 5
'
'lbl_Example
'
Me.lbl_Example.AutoSize = True
Me.lbl_Example.Font = New System.Drawing.Font("Segoe UI", 12.0!)
Me.lbl_Example.ForeColor = System.Drawing.Color.Black
Me.lbl_Example.Location = New System.Drawing.Point(15, 189)
Me.lbl_Example.Name = "lbl_Example"
Me.lbl_Example.Size = New System.Drawing.Size(75, 21)
Me.lbl_Example.TabIndex = 6
Me.lbl_Example.Text = "Example :"
'
'txt_ConsoleExample
'
Me.txt_ConsoleExample.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txt_ConsoleExample.BackColor = System.Drawing.Color.Black
Me.txt_ConsoleExample.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txt_ConsoleExample.Font = New System.Drawing.Font("Consolas", 11.0!)
Me.txt_ConsoleExample.ForeColor = System.Drawing.Color.White
Me.txt_ConsoleExample.Location = New System.Drawing.Point(19, 218)
Me.txt_ConsoleExample.Multiline = True
Me.txt_ConsoleExample.Name = "txt_ConsoleExample"
Me.txt_ConsoleExample.ReadOnly = True
Me.txt_ConsoleExample.Size = New System.Drawing.Size(600, 243)
Me.txt_ConsoleExample.TabIndex = 7
Me.txt_ConsoleExample.Text = "devx@shiftos $> ver" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ShiftOS 11 build 11.0.9"
'
'DuWM_Shifter_Console
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.txt_ConsoleExample)
Me.Controls.Add(Me.lbl_Example)
Me.Controls.Add(Me.lbl_ConsoleFontSize)
Me.Controls.Add(Me.cmb_ConsoleFontSize)
Me.Controls.Add(Me.cmb_ConsoleFont)
Me.Controls.Add(Me.lbl_ConsoleFont)
Me.Controls.Add(Me.lbl_DescConsole)
Me.Controls.Add(Me.lbl_Title)
Me.ForeColor = System.Drawing.Color.Black
Me.Name = "DuWM_Shifter_Console"
Me.Size = New System.Drawing.Size(640, 480)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lbl_Title As Label
Friend WithEvents lbl_DescConsole As Label
Friend WithEvents lbl_ConsoleFont As Label
Friend WithEvents cmb_ConsoleFont As ComboBox
Friend WithEvents lbl_ConsoleFontSize As Label
Friend WithEvents cmb_ConsoleFontSize As ComboBox
Friend WithEvents lbl_Example As Label
Friend WithEvents txt_ConsoleExample As TextBox
End Class

View file

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

View file

@ -0,0 +1,48 @@
Public Class DuWM_Shifter_Console
Private Sub DuWM_Shifter_Console_Load(sender As Object, e As EventArgs) Handles MyBase.Load
txt_ConsoleExample.Font = Console.TextBox1.Font
cmb_ConsoleFont.Text = GUISCustomizations.GUIConsoleFont.Name
cmb_ConsoleFontSize.Text = GUISCustomizations.GUIConsoleFont.Size
End Sub
Private Sub cmb_ConsoleFont_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_ConsoleFont.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
End If
Dim sf As New StringFormat
Using b As New SolidBrush(e.ForeColor)
e.Graphics.DrawString(cmb_ConsoleFont.GetItemText(cmb_ConsoleFont.Items(e.Index)), e.Font, b, e.Bounds, sf)
End Using
e.DrawFocusRectangle()
End Sub
Private Sub cmb_ConsoleFontSize_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_ConsoleFontSize.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
End If
Dim sf As New StringFormat
Using b As New SolidBrush(e.ForeColor)
e.Graphics.DrawString(cmb_ConsoleFontSize.GetItemText(cmb_ConsoleFontSize.Items(e.Index)), e.Font, b, e.Bounds, sf)
End Using
e.DrawFocusRectangle()
End Sub
Private Sub cmb_ConsoleFont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_ConsoleFont.SelectedIndexChanged
Select Case cmb_ConsoleFont.SelectedItem
Case "Consolas"
txt_ConsoleExample.Font = New Font("Consolas", txt_ConsoleExample.Font.Size)
Case "Courier New"
txt_ConsoleExample.Font = New Font("Courier New", txt_ConsoleExample.Font.Size)
Case "Lucida Console"
txt_ConsoleExample.Font = New Font("Lucida Console", txt_ConsoleExample.Font.Size)
End Select
DuWM_Shifter_Configs.ConsoleFont = txt_ConsoleExample.Font
End Sub
Private Sub cmb_ConsoleFontSize_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_ConsoleFontSize.SelectedIndexChanged
txt_ConsoleExample.Font = New Font(txt_ConsoleExample.Font.Name, cmb_ConsoleFontSize.SelectedItem)
DuWM_Shifter_Configs.ConsoleFont = txt_ConsoleExample.Font
End Sub
End Class

View file

@ -53,7 +53,7 @@ Partial Class DuWM_Shifter
Me.lst_Features.Font = New System.Drawing.Font("Segoe UI", 12.0!)
Me.lst_Features.FormattingEnabled = True
Me.lst_Features.ItemHeight = 21
Me.lst_Features.Items.AddRange(New Object() {"Desktop", "About"})
Me.lst_Features.Items.AddRange(New Object() {"Console", "Desktop", "About"})
Me.lst_Features.Location = New System.Drawing.Point(0, 51)
Me.lst_Features.Name = "lst_Features"
Me.lst_Features.Size = New System.Drawing.Size(200, 399)

View file

@ -5,7 +5,7 @@
Private ChildFeature As String
Private Sub Shifter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CheckAvailability()
End Sub
Private Sub lst_Features_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lst_Features.DrawItem
@ -37,6 +37,12 @@
Else
Select Case lst_Features.SelectedItem
Case "Console"
Dim Shifter_Console As New DuWM_Shifter_Console
Shifter_Console.Size = pnl_Content.Size
ChildFeature = "Console"
pnl_Content.Controls.Clear()
pnl_Content.Controls.Add(Shifter_Console)
Case "Desktop"
Dim Shifter_Desktop As New DuWM_Shifter_Desktop
Shifter_Desktop.Size = pnl_Content.Size
@ -59,6 +65,9 @@
Private Sub Apply()
Select Case lst_Features.SelectedItem
Case "Console"
Console.TextBox1.Font = DuWM_Shifter_Configs.ConsoleFont
GUISCustomizations.GUIConsoleFont = Console.TextBox1.Font
Case "Desktop"
Desktop.BackColor = DuWM_Shifter_Configs.DesktopBackColor
GUISCustomizations.DesktopColor = Desktop.BackColor
@ -69,4 +78,10 @@
Apply()
Close()
End Sub
Private Sub CheckAvailability()
If Strings.AvailableFeature(53) = 0 Then
lst_Features.Items.Remove("Console")
End If
End Sub
End Class

View file

@ -1,3 +1,4 @@
Public Class DuWM_Shifter_Configs
Public Shared DesktopBackColor As Color
Public Shared ConsoleFont As Font
End Class

View file

@ -0,0 +1,315 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Uni_Calculator
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button()
Me.Button12 = New System.Windows.Forms.Button()
Me.Button13 = New System.Windows.Forms.Button()
Me.Button14 = New System.Windows.Forms.Button()
Me.Button15 = New System.Windows.Forms.Button()
Me.Button16 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button1.Location = New System.Drawing.Point(12, 122)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(150, 80)
Me.Button1.TabIndex = 0
Me.Button1.Text = "1"
Me.Button1.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.Font = New System.Drawing.Font("Tahoma", 20.0!, System.Drawing.FontStyle.Italic)
Me.Label1.Location = New System.Drawing.Point(12, 32)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(618, 77)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Fuck you, Calculator!"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Button2
'
Me.Button2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button2.Location = New System.Drawing.Point(168, 122)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(150, 80)
Me.Button2.TabIndex = 0
Me.Button2.Text = "2"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button3.Location = New System.Drawing.Point(324, 122)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(150, 80)
Me.Button3.TabIndex = 0
Me.Button3.Text = "3"
Me.Button3.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button4.Location = New System.Drawing.Point(480, 122)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(150, 80)
Me.Button4.TabIndex = 0
Me.Button4.Text = "+"
Me.Button4.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button5.Location = New System.Drawing.Point(12, 208)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(150, 80)
Me.Button5.TabIndex = 0
Me.Button5.Text = "4"
Me.Button5.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button6.Location = New System.Drawing.Point(168, 208)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(150, 80)
Me.Button6.TabIndex = 0
Me.Button6.Text = "5"
Me.Button6.UseVisualStyleBackColor = True
'
'Button7
'
Me.Button7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button7.Location = New System.Drawing.Point(324, 208)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(150, 80)
Me.Button7.TabIndex = 0
Me.Button7.Text = "6"
Me.Button7.UseVisualStyleBackColor = True
'
'Button8
'
Me.Button8.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button8.Location = New System.Drawing.Point(480, 208)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(150, 80)
Me.Button8.TabIndex = 0
Me.Button8.Text = "-"
Me.Button8.UseVisualStyleBackColor = True
'
'Button9
'
Me.Button9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button9.Location = New System.Drawing.Point(12, 294)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(150, 80)
Me.Button9.TabIndex = 0
Me.Button9.Text = "7"
Me.Button9.UseVisualStyleBackColor = True
'
'Button10
'
Me.Button10.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button10.Location = New System.Drawing.Point(12, 380)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(150, 80)
Me.Button10.TabIndex = 0
Me.Button10.Text = "C"
Me.Button10.UseVisualStyleBackColor = True
'
'Button11
'
Me.Button11.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button11.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button11.Location = New System.Drawing.Point(168, 294)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(150, 80)
Me.Button11.TabIndex = 0
Me.Button11.Text = "8"
Me.Button11.UseVisualStyleBackColor = True
'
'Button12
'
Me.Button12.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button12.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button12.Location = New System.Drawing.Point(168, 380)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(150, 80)
Me.Button12.TabIndex = 0
Me.Button12.Text = "0"
Me.Button12.UseVisualStyleBackColor = True
'
'Button13
'
Me.Button13.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button13.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button13.Location = New System.Drawing.Point(324, 294)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(150, 80)
Me.Button13.TabIndex = 0
Me.Button13.Text = "9"
Me.Button13.UseVisualStyleBackColor = True
'
'Button14
'
Me.Button14.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button14.Location = New System.Drawing.Point(324, 380)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(150, 80)
Me.Button14.TabIndex = 0
Me.Button14.Text = "="
Me.Button14.UseVisualStyleBackColor = True
'
'Button15
'
Me.Button15.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button15.Location = New System.Drawing.Point(480, 294)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(150, 80)
Me.Button15.TabIndex = 0
Me.Button15.Text = "*"
Me.Button15.UseVisualStyleBackColor = True
'
'Button16
'
Me.Button16.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button16.Font = New System.Drawing.Font("Segoe UI", 15.0!)
Me.Button16.Location = New System.Drawing.Point(480, 380)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(150, 80)
Me.Button16.TabIndex = 0
Me.Button16.Text = "/"
Me.Button16.UseVisualStyleBackColor = True
'
'Uni_Calculator
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(640, 480)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button16)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button15)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button14)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button13)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button12)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button11)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button9)
Me.Controls.Add(Me.Button1)
Me.ForeColor = System.Drawing.Color.Black
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Uni_Calculator"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Uni_Calculator"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button1 As Button
Friend WithEvents Label1 As Label
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents Button4 As Button
Friend WithEvents Button5 As Button
Friend WithEvents Button6 As Button
Friend WithEvents Button7 As Button
Friend WithEvents Button8 As Button
Friend WithEvents Button9 As Button
Friend WithEvents Button10 As Button
Friend WithEvents Button11 As Button
Friend WithEvents Button12 As Button
Friend WithEvents Button13 As Button
Friend WithEvents Button14 As Button
Friend WithEvents Button15 As Button
Friend WithEvents Button16 As Button
End Class

View file

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

View file

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

View file

@ -0,0 +1,167 @@
'------------------------------------------------------------------------------
' <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
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend Shared ReadOnly Property ico_zip() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_zip", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Class
End Namespace

View file

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

View file

@ -0,0 +1,137 @@
'------------------------------------------------------------------------------
' <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_refresh() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_refresh", 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_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
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend Shared ReadOnly Property largeico_compress() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("largeico_compress", 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 largeico_deletefile() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("largeico_deletefile", 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 largeico_rename() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("largeico_rename", 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 largeico_uncompress() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("largeico_uncompress", 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 largeico_unknown() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("largeico_unknown", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Class
End Namespace

View file

@ -0,0 +1,142 @@
<?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_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\..\Resources\ico_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
<data name="largeico_compress" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\..\Resources\largeico_compress.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="largeico_deletefile" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\..\Resources\ico_deletefile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="largeico_rename" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\..\Resources\largeico_rename.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="largeico_uncompress" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\..\Resources\largeico_uncompress.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="largeico_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>
</root>

Binary file not shown.

After

Width:  |  Height:  |  Size: 288 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 208 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 345 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 272 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 429 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 594 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 295 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 471 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 251 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.1 KiB

View file

@ -0,0 +1,486 @@
<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 ListViewItem1 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.CompressToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.CloseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.JobBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PropertyPaneToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnl_JobBar = New System.Windows.Forms.Panel()
Me.cmb_Layout = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.btn_CopyPath = New System.Windows.Forms.Button()
Me.btn_Rename = New System.Windows.Forms.Button()
Me.btn_Delete = New System.Windows.Forms.Button()
Me.btn_Compress = New System.Windows.Forms.Button()
Me.btn_NewFolder = New System.Windows.Forms.Button()
Me.pnl_Properties = New System.Windows.Forms.Panel()
Me.pic_Icon = New System.Windows.Forms.PictureBox()
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_Refresh = New System.Windows.Forms.Button()
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.iml_smallicons = New System.Windows.Forms.ImageList(Me.components)
Me.msn_Options.SuspendLayout()
Me.pnl_JobBar.SuspendLayout()
Me.pnl_Properties.SuspendLayout()
CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl_AddressBar.SuspendLayout()
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.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
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.CompressToolStripMenuItem, Me.DeleteToolStripMenuItem, Me.ToolStripSeparator1, Me.CloseToolStripMenuItem})
Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
Me.FileToolStripMenuItem.Size = New System.Drawing.Size(41, 23)
Me.FileToolStripMenuItem.Text = "File"
'
'CompressToolStripMenuItem
'
Me.CompressToolStripMenuItem.Name = "CompressToolStripMenuItem"
Me.CompressToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
Me.CompressToolStripMenuItem.Text = "Compress"
'
'DeleteToolStripMenuItem
'
Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem"
Me.DeleteToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
Me.DeleteToolStripMenuItem.Text = "Delete"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
'
'CloseToolStripMenuItem
'
Me.CloseToolStripMenuItem.Name = "CloseToolStripMenuItem"
Me.CloseToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
Me.CloseToolStripMenuItem.Text = "Close"
'
'OptionsToolStripMenuItem
'
Me.OptionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.JobBarToolStripMenuItem, Me.PropertyPaneToolStripMenuItem})
Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem"
Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(70, 23)
Me.OptionsToolStripMenuItem.Text = "Options"
'
'JobBarToolStripMenuItem
'
Me.JobBarToolStripMenuItem.CheckOnClick = True
Me.JobBarToolStripMenuItem.Name = "JobBarToolStripMenuItem"
Me.JobBarToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
Me.JobBarToolStripMenuItem.Text = "JobBar"
'
'PropertyPaneToolStripMenuItem
'
Me.PropertyPaneToolStripMenuItem.CheckOnClick = True
Me.PropertyPaneToolStripMenuItem.Name = "PropertyPaneToolStripMenuItem"
Me.PropertyPaneToolStripMenuItem.Size = New System.Drawing.Size(180, 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_JobBar
'
Me.pnl_JobBar.BackColor = System.Drawing.Color.Silver
Me.pnl_JobBar.Controls.Add(Me.cmb_Layout)
Me.pnl_JobBar.Controls.Add(Me.Label1)
Me.pnl_JobBar.Controls.Add(Me.Label2)
Me.pnl_JobBar.Controls.Add(Me.btn_CopyPath)
Me.pnl_JobBar.Controls.Add(Me.btn_Rename)
Me.pnl_JobBar.Controls.Add(Me.btn_Delete)
Me.pnl_JobBar.Controls.Add(Me.btn_Compress)
Me.pnl_JobBar.Controls.Add(Me.btn_NewFolder)
Me.pnl_JobBar.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl_JobBar.Location = New System.Drawing.Point(0, 27)
Me.pnl_JobBar.Name = "pnl_JobBar"
Me.pnl_JobBar.Size = New System.Drawing.Size(800, 70)
Me.pnl_JobBar.TabIndex = 1
'
'cmb_Layout
'
Me.cmb_Layout.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.cmb_Layout.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.cmb_Layout.FormattingEnabled = True
Me.cmb_Layout.Items.AddRange(New Object() {"Large Icons", "Small Icons", "List"})
Me.cmb_Layout.Location = New System.Drawing.Point(369, 36)
Me.cmb_Layout.Name = "cmb_Layout"
Me.cmb_Layout.Size = New System.Drawing.Size(121, 26)
Me.cmb_Layout.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.Label1.Location = New System.Drawing.Point(365, 10)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(51, 19)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Layout"
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Tahoma", 30.0!)
Me.Label2.ForeColor = System.Drawing.Color.Gray
Me.Label2.Location = New System.Drawing.Point(567, 35)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(247, 48)
Me.Label2.TabIndex = 2
Me.Label2.Text = "File Skimmer"
'
'btn_CopyPath
'
Me.btn_CopyPath.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_CopyPath.Font = New System.Drawing.Font("Segoe UI", 7.0!)
Me.btn_CopyPath.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
Me.btn_CopyPath.Location = New System.Drawing.Point(213, 0)
Me.btn_CopyPath.Name = "btn_CopyPath"
Me.btn_CopyPath.Size = New System.Drawing.Size(72, 70)
Me.btn_CopyPath.TabIndex = 0
Me.btn_CopyPath.Text = "Copy path"
Me.btn_CopyPath.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.btn_CopyPath.UseVisualStyleBackColor = True
'
'btn_Rename
'
Me.btn_Rename.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_Rename.Font = New System.Drawing.Font("Segoe UI", 7.0!)
Me.btn_Rename.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
Me.btn_Rename.Location = New System.Drawing.Point(142, 0)
Me.btn_Rename.Name = "btn_Rename"
Me.btn_Rename.Size = New System.Drawing.Size(72, 70)
Me.btn_Rename.TabIndex = 0
Me.btn_Rename.Text = "Rename"
Me.btn_Rename.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.btn_Rename.UseVisualStyleBackColor = True
'
'btn_Delete
'
Me.btn_Delete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_Delete.Font = New System.Drawing.Font("Segoe UI", 7.0!)
Me.btn_Delete.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
Me.btn_Delete.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btn_Delete.Location = New System.Drawing.Point(71, 0)
Me.btn_Delete.Name = "btn_Delete"
Me.btn_Delete.Size = New System.Drawing.Size(72, 70)
Me.btn_Delete.TabIndex = 0
Me.btn_Delete.Text = "Delete"
Me.btn_Delete.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btn_Delete.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.btn_Delete.UseVisualStyleBackColor = True
'
'btn_Compress
'
Me.btn_Compress.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_Compress.Font = New System.Drawing.Font("Segoe UI", 7.0!)
Me.btn_Compress.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
Me.btn_Compress.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btn_Compress.Location = New System.Drawing.Point(284, 0)
Me.btn_Compress.Name = "btn_Compress"
Me.btn_Compress.Size = New System.Drawing.Size(72, 70)
Me.btn_Compress.TabIndex = 0
Me.btn_Compress.Text = "Compress"
Me.btn_Compress.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btn_Compress.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.btn_Compress.UseVisualStyleBackColor = True
'
'btn_NewFolder
'
Me.btn_NewFolder.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_NewFolder.Font = New System.Drawing.Font("Segoe UI", 7.0!)
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, 70)
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
'
'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, 133)
Me.pnl_Properties.Name = "pnl_Properties"
Me.pnl_Properties.Size = New System.Drawing.Size(200, 317)
Me.pnl_Properties.TabIndex = 2
Me.pnl_Properties.Visible = 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
'
'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, 181)
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, 165)
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.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(181, 44)
Me.lbl_filename.TabIndex = 1
Me.lbl_filename.Text = "filename"
Me.lbl_filename.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'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_unknown.bmp")
Me.iml_icons.Images.SetKeyName(2, "ico_textfile.bmp")
Me.iml_icons.Images.SetKeyName(3, "ico_zip.png")
Me.iml_icons.Images.SetKeyName(4, "ico_picture.bmp")
Me.iml_icons.Images.SetKeyName(5, "ico_up.bmp")
Me.iml_icons.Images.SetKeyName(6, "ico_url.bmp")
Me.iml_icons.Images.SetKeyName(7, "ico_video.bmp")
Me.iml_icons.Images.SetKeyName(8, "ico_sfp.png")
Me.iml_icons.Images.SetKeyName(9, "ico_exe.png")
'
'pnl_AddressBar
'
Me.pnl_AddressBar.Controls.Add(Me.btn_Refresh)
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, 97)
Me.pnl_AddressBar.Name = "pnl_AddressBar"
Me.pnl_AddressBar.Size = New System.Drawing.Size(800, 36)
Me.pnl_AddressBar.TabIndex = 4
'
'btn_Refresh
'
Me.btn_Refresh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btn_Refresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_Refresh.Location = New System.Drawing.Point(5, 5)
Me.btn_Refresh.Name = "btn_Refresh"
Me.btn_Refresh.Size = New System.Drawing.Size(24, 24)
Me.btn_Refresh.TabIndex = 2
Me.btn_Refresh.UseVisualStyleBackColor = True
'
'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(28, 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(129, 5)
Me.txt_AddressBar.Name = "txt_AddressBar"
Me.txt_AddressBar.Size = New System.Drawing.Size(659, 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(58, 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.Font = New System.Drawing.Font("Segoe UI", 8.0!)
Me.lsv_Content.HideSelection = False
Me.lsv_Content.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1})
Me.lsv_Content.LargeImageList = Me.iml_icons
Me.lsv_Content.Location = New System.Drawing.Point(0, 133)
Me.lsv_Content.MultiSelect = False
Me.lsv_Content.Name = "lsv_Content"
Me.lsv_Content.Size = New System.Drawing.Size(600, 317)
Me.lsv_Content.SmallImageList = Me.iml_smallicons
Me.lsv_Content.Sorting = System.Windows.Forms.SortOrder.Ascending
Me.lsv_Content.TabIndex = 5
Me.lsv_Content.UseCompatibleStateImageBehavior = False
'
'iml_smallicons
'
Me.iml_smallicons.ImageStream = CType(resources.GetObject("iml_smallicons.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.iml_smallicons.TransparentColor = System.Drawing.Color.Transparent
Me.iml_smallicons.Images.SetKeyName(0, "ico_folder.bmp")
Me.iml_smallicons.Images.SetKeyName(1, "ico_unknown.bmp")
Me.iml_smallicons.Images.SetKeyName(2, "ico_textfile.bmp")
Me.iml_smallicons.Images.SetKeyName(3, "ico_zip.png")
Me.iml_smallicons.Images.SetKeyName(4, "ico_picture.bmp")
Me.iml_smallicons.Images.SetKeyName(5, "ico_up.bmp")
Me.iml_smallicons.Images.SetKeyName(6, "ico_url.bmp")
Me.iml_smallicons.Images.SetKeyName(7, "ico_video.bmp")
Me.iml_smallicons.Images.SetKeyName(8, "ico_sfp.png")
Me.iml_smallicons.Images.SetKeyName(9, "ico_exe.png")
'
'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_JobBar)
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_JobBar.ResumeLayout(False)
Me.pnl_JobBar.PerformLayout()
Me.pnl_Properties.ResumeLayout(False)
Me.pnl_Properties.PerformLayout()
CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnl_AddressBar.ResumeLayout(False)
Me.pnl_AddressBar.PerformLayout()
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_JobBar 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
Friend WithEvents btn_Refresh As Button
Friend WithEvents btn_Delete As Button
Friend WithEvents btn_Rename As Button
Friend WithEvents btn_CopyPath As Button
Friend WithEvents btn_Compress As Button
Friend WithEvents cmb_Layout As ComboBox
Friend WithEvents Label1 As Label
Friend WithEvents iml_smallicons As ImageList
Friend WithEvents JobBarToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Label2 As Label
Friend WithEvents CompressToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DeleteToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
End Class

View file

@ -0,0 +1,331 @@
<?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
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAA+
GAAAAk1TRnQBSQFMAgEBCgEAAbgBAAG4AQABKgEAASoBAAT/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/AP8AeAAm7F0A
HP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0A
HP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0A
HP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0A
HP8JAAHsJP8B7F0AHP8JAAHsJP8B7F0AHP8JAAHsJP8D7IAAAewk/wHsAf8B7IAAAewk/wHsAf8B7IAA
Aewk/wHsAf8B7IAAAewk/wHsAf8B7F8AFP8NAAHsJP8B7AH/AexfAA7/BAAC/w0AAewk/wHsAf8B7F8A
Dv8EAAL/DQAm7AH/AexfAA7/BAAC/w0AHewCAAHsAgAB7AIAAewB/wHsXwAO/wQAAv8NAB3sAgAB7AIA
AewCAAHsAf8B7F8ADv8EAAL/DQAm7AH/AexfAA7/BAAC/xEAAewi/wHsXwAU/xEAAewi/wHsXwAU/xEA
Aewi/wHshAAk7IQAG+wCAAHsAgAB7AIAAeyEABvsAgAB7AIAAewCAAHshAAk7P8AZAAK/5MACv8BAAr/
AQAB7AP/jgAJ/wEADP8BAAHsAv+OAAn/AQAM/wEAAewC/zMAKOwCACjsCQAI/wEADf8BAAHsAv8zACjs
AgAP7AoAD+wJAAf/AQAD/wEACv8BAAHsAv8zACjsAgAP7AEACP8BAA/sCQAH/wEAAv8CAAL/AQAC/wEA
Av8BAAH/AQAB7AL/MwAo7AIAD+wBAAj/AQAP7AkACP8CAAHsAQAC/wEAAv8BAAL/AQAB/wEAAewC/wkA
KP8CACjsAgAP7AEACP8BAA/sCQAL/wEAAv8BAAL/AQAC/wIAAewD/wkAKP8CACjsAgAP7AEACP8BAA/s
CQAL/wEAAv8BAAL/AwAB7AX/CQAo/wIAJOwE/wIAD+wBAAj/AQAP7AkAC/8BAAL/AwAB7Aj/CQAo/wIA
IewH/wIAD+wBAAj/AQAP7AkAC/8BAAL/AQAB7Ar/CQAP/wEAGP8CAAX/GuwJ/wIAD+wBAAj/AQAP7AkA
C/8BAAL/AQAB7Ar/CQAP/wIAF/8CAAj/FuwF/wHsBP8CAA/sAQAI/wEAD+wJAAv/AQAC/wEAAewK/wkA
D/8DABb/AgAP/wvsCf8C7AP/AgAP7AEACP8BAA/sCQAL/wEAAv8BAAHsCv8JAA//BAAV/wIAHv8B7AX/
AewD/wIAD+wBAAj/AQAP7AkAAv8J/AEAAv8BAAHsCv8JAA//BQAU/wIAHv8C7AT/AuwC/wIAD+wBAAj/
AQAP7AkADP8CAAHsC/8JAA//BgAT/wIAF/8D7AX/AuwE/wHsAv8CAA/sAQAI/wEAD+wJAAP/BPwC/wH8
BP8B/Av/CQAP/wcAEv8CABn/AuwF/wHsBP8B7AL/AgAP7AEACP8BAA/sCQAC/wH8BP8B/AH/AfwE/wH8
C/8JAA//CAAR/wIAGv8B7AX/AewE/wHsAv8CAA/sAQAI/wEAD+wJAAL/AfwE/wH8Af8B/AT/AfwL/wkA
D/8JABD/AgAa/wLsBP8B7AT/AuwB/wIAD+wBAAj/AQAP7AkAAv8B/AT/AfwB/wL8A/8B/Av/CQAP/woA
D/8CABP/BOwE/wLsCf8B7AH/AgAK7AYACP8HAAnsCQAC/wH8BP8B/AH/AfwB/wL8Af8B/Av/CQAP/woA
D/8CABb/AuwF/wHsCv8CAArsAQAT/wEACewJAAL/AfwE/wH8Bv8B/Av/CQAP/wkAEP8CABf/AewJ/wbs
Af8CAAvsAQAR/wEACuwJAAL/AfwE/wH8Bv8B/Av/CQAP/wgAEf8CABf/AuwG/wnsAgAM7AEAD/8BAAvs
CQAC/wH8BP8B/Ab/AfwL/wkAD/8HABL/AgAQ/wHsB/8C7AT/CuwCAA3sAQAN/wEADOwJAAL/AfwE/wH8
Bv8B/Av/CQAP/wYAE/8CABD/A+wG/wLsAv8L7AIADuwBAAv/AQAN7AkAGv8JAA//BQAU/wIAEv8D7Af/
DOwCAA/sAQAJ/wEADuwJABr/CQAP/wQAFf8CABT/AuwG/wzsAgAQ7AEAB/8BAA/sCQAa/wkAD/8DABb/
AgAV/wLsBP8N7AIAEewBAAX/AQAQ7AkAGv8JAA//AgAX/wIADf8E7AX/A+wC/w3sAgAS7AEAA/8BABHs
CQAa/wkAD/8BABj/AgAQ/wLsCf8N7AIAE+wBAAH/AQAS7AkAGv8JACj/AgAR/wHsCf8N7AIAFOwBABPs
CQAa/wkAKP8CABH/COwC/w3sAgAo7AkAGv8JACj/AgAb/w3sAgAo7AkAGv8JACj/AgAc/wzsMwAU/zkA
HP8M7AIAD+wiABT/AQAC/wLsXgAO7CMAFP8BAAH/AuyQABT/AQAC7JEAFP8BAAHskgAU//8AuAAh/wkA
If9dACH/CQAh/10AIf8JACH/LwAo7AYAIf8JAAT/GuwD/wUAKOwCACjsBgAh/wkAIf8FACjsAgAo7AYA
Dv8E7A//CQAh/wUAKOwCACjsBgAO/wTsD/8JAAP/GuwE/wUAKOwCACjsBgAO/wTsD/8JACH/BQAo7AIA
KOwGAA7/BOwP/wkAIf8FACjsAgAo7AYAIf8JAAT/GuwD/wUAKOwCACjsBgAh/wkAIf8FACjsAgAo7AYA
If8JACH/BQAo7AIAKOwGAA7/AZID7A//CQAD/xrsBP8FACjsAgAo7AYADv8BkgPsD/8JACH/BQAo7AIA
KOwGAA7/AZID7AHyDv8JACH/BQAo7AIAKOwGAA7/AQcD7AG8Dv8JAAT/GuwD/wUAKOwCACjsBgAO/wHx
BOwO/wkAIf8FACjsAgAo7AYAD/8E7AHvDf8JACH/BQAo7AIAKOwGAA//AfEE7AHvDP8JAAP/GuwE/wYA
A+wBAAPsAQAD7AEAA+wBAAPsAQAD7AEAA+wBAAPsAQAD7AEAA+wCACjsBgAQ/wG8BOwB7wH0Cv8JACH/
BQAB7AEAAewBAAHsAQAB7AEAAewBAAHsAQAB7AEAAewBAAHsAQAB7AEAAewBAAHsAQAB7AEAAewBAAHs
AQAB7AEAAewBAAHsAQAB7AEAAewDACjsBgAR/wG8BOwB7QH0Cf8JACH/BQAC7AEAA+wBAAPsAQAD7AEA
A+wBAAPsAQAD7AEAA+wBAAPsAQAD7AEAAewCACjsBgAS/wHwBOwBkgn/CQAE/xrsA/8FACjsAgAo7AYA
E/8B8gTsAe8I/wkAIf8FACjsAgAo7AYAFP8B8gTsAfIH/wkAIf8FACjsAgAo7AYAFf8BvAPsAe8H/wkA
A/8a7AT/BQAo7AIAKOwGABb/BOwH/wkAIf8FACjsAgAo7AYABv8B8wHvAZIB7AHvC/8BkgPsB/8JACH/
BQAo7AIAKOwGAAb/AfQD7AHtC/8B7QPsB/8JAAT/GuwD/wUAKOwCACjsBgAH/wTsAfIJ/wHzA+wB7Qf/
CQAh/wUAKOwCACjsBgAH/wEHA+wB9wn/AfcD7AHvB/8JACH/BQAo7AIAKOwGAAf/AfQE7AHvB/8B7wTs
AfMH/wkAA/8a7AT/BQAo7AIAKOwGAAj/AQcE7AGSAfAB9AH/AfQB8AGSBOwBBwj/CQAh/wUAKOwCACjs
BgAJ/wHvDewB7wn/CQAh/wUAKOwCACjsBgAK/wHwC+wB8Ar/CQAE/xrsA/8FACjsMAAL/wH0AbwB9wTs
Ae0B7wG8DP8JACH/LwAP7B8AIf8JACH/BQAP7BsADuwgACH/CQAD/xrsBP8FAA7sSgAh/wkAIf9dACH/
CQAh/10AIf8JACH/1gABQgFNAT4HAAE+AwABKAMAAagDAAF+AwABAQEAAQEFAAHQAQsWAAP/AQAK/wHw
DQAK/wHwDQAB8AMAAQMF/wHwDQAB8AMAAQMF/wHwDQAB8AMAAQMF/wHwDQAB8AMAAQMB8AQAATANAAHw
AwABAwHwBAABMA0AAfADAAEDAfAEAAEwDQAB8AMAAQMB8AQAATANAAHwAwABAwHwBAABMA0AAfADAAED
AfAEAAEwDQAB8AMAAQMB8AQAATANAAHwAwABAwHwBAABMA0AAfADAAEDAfAEAAEwDQAB8AMAAQMB8AQA
ATANAAHwAwABAwHwBAABMA0AAfADAAEDAfAEAAEwDQAB8AMAAQMB8AQAATANAAHwAwABAwHwBAABMA0A
AfADAAEDAfAEAAEwDQAB8AMAAQMB8AQAATANAAHwAwABAwHwBAABMA0AAfADAAEDAfAEAAEwDQAB8AMA
AQMB8BIAAfADAAEDAfASAAHwAwABAwHwEgAB8AMAAQMB8BIAAfADAAEDAfASAAHwAwABAwHwEgAB8AMA
AQMB8BIAAfADAAEDAfASAAHwAwABAwHwEgAB8AMAAQMB8BIAAfADAAEHAfASAAHwAwABDwH/EgAB8AMA
AR8B/xIAAfADAAEfAf8SAAb/EgAG/xIABv8SAAb/EgAK/wHwDQAL/wHgAgABAQb/AwAL/wHgAgABAQb/
AwAL/wHgAgABAQb/DQABDwHgAgABAQb/DQABDwHgAgABAQb/DQABDwHgAgABAQb/DQABDwHgAgABAQH8
EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8
EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8
EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8
EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8
EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8
EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8EgABDwHgAgABAQH8DwABHwP/AeACAAED
Bv8KAAE/A/8B4AIAAQcG/wMABf8BwAEAAX8D/wHgAgABDwb/AwAL/wHgAgABHwb/AwAL/wHgAgABPwb/
AwAL/wHgAgABfwb/AwAF/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/BAABHwX/
CAABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEc
DQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEc
DQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEc
DQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEc
DQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEc
DQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEc
DQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcCgABfwL/AfwEAAF/BAABHAEAAQED/wUA
A/8B/AQAAX8EAAEcAQABAwP/BAABAQP/AfwEAAF/BAABHAEAAQcD/wMABf8B/AQAAX8EAAEfBf8DAAX/
AfwEAAF/BAABHwX/AwAF/wH8BAABfwQAAR8F/wMACw==
</value>
</data>
<metadata name="iml_smallicons.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>250, 17</value>
</metadata>
<data name="iml_smallicons.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAB2
EwAAAk1TRnQBSQFMAgEBCgEAAXABAAFwAQABGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABYAMAAUgDAAEBAQABCAYAARsYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/2MAAe9fAAHvFgAB9BXz
MwAB7wEAEP8FAAHvFP8BBzMAAe8BABD/BQAB7xT/AQczAAHvAQAQ/wUAAe8U/wEHMwAB7wEAEP8FAAHv
FP8BBzMAAe8BABD/BQAB7xT/AQczAAHvAQAQ/wUAAe8U/wEHMwAB7wEAEP8FAAHvFP8BBzMAAe8BABD/
BQAB7xT/AQczAAHvAQAQ/wUAAe8U/wEHMwAB7wEAEP8FAAHvFP8BBzMAAe8BABDsBQAB7xT/AQcB7zIA
Ae8WAAHvFP8BBwHyMgAB7xYAAe8U/wEHAfIyAAHvAwAB7Af/AfcCFAH/BwAB7xT/AQcB8jIAAe8DAAHs
B/8B7AIAAf8HAAHvEOwBFAHrARQBEgFtAfIyAAHvAwAB7Af/AewCAAH/AwABEgMAAe8Q7AEQAW0BEAEV
ARIB8jIAAe8DAAHsB/8B7AIAAf8JAAHzE/8B8jIAAe8DAAHsC/8JAAHzE/8B8ksAAfMP7AEUAewBFAFt
ARJLAAHzD+wBEAHsARABEgEVxQAFBwFtBv8BEwEHAewcADDvBQAF/wHsBv8BFAIHHQAW7AFtAQAI7AZt
COwBbQUABP8BbQH/AbwF/wEUAgcdABbsAW0BAAjsARAE/wnsAW0FAAT/AQcB7AEUAf8BBwHsAf8BAAEU
AgcdABbsAW0BAAjsARAE/wnsAW0FAAT/AbwB8AEUAf8BBwHsAf8BAAHqAfQBBwUAFv8BBwEAFOwB7wEH
Ae0BAAjsARAE/wnsAW0FAAb/ARQB/wJtAewBBwL/AQcFABb/AQcBAAL3AZIO7AHtAQcD/wEHAQAI7AEQ
BP8J7AFtBQAG/wEUAf8BbQX/AQcFAAj/ARQB8Qz/AQcBAAT/AfcM7AP/AfIB/wEHAQAI7AEQBP8J7AFt
BQAG/wEUAf8BbQX/AQcFAAj/ARQBAAz/AQcBAAj/AfMF8gHzAv8B8AL/AZIB/wEHAQAI7AEQBP8J7AFt
BQAB/wXIARQB/wFtBf8BBwUACP8BFAEAAQ4L/wEHAQAN/wEHAfAC/wH3AfAB/wHwAgcBAAjsARAE/wns
AW0FAAH/Ad0C1gH/Ad0B8QHsAd0F/wEHBQAI/wEUAwAB8Qn/AQcBAA7/AZID/wH3Av8CBwEACOwBEAT/
CewBbQUAAf8B1gL/Ad0B1gL/Ad0F/wEHBQAI/wEUBAAB8Qj/AQcBAA7/AfIB7AL/AfcC/wHsAQcBAAjs
ARAE/wnsAW0FAAH/AdYC/wHdAfwC/wHdBf8BBwUACP8BFAUACP8BBwEAC/8B8gGSAfAB/wHyAe8E/wH0
AQcBAAXsARQDBwT/AfEDBwEUBOwBbQUAAf8B1gL/Ad0BGQHdAf8B3QX/AQcFAAj/ARQEAAFtCP8BBwEA
Df8B9wP/AfIB7wPsAe0BAAbsARIJ/wESBewBbQUAAf8B1gL/Ad0D/wHdBf8BBwUACP8BFAMAAW0J/wEH
AQAJ/wHvAfMC/wHwAZIB/wHzBewBbQEAB+wBEAHzBf8B8wEQBuwBbQUAAf8B1gL/Ad0D/wHdBf8BBwUA
CP8BFAIAARQK/wEHAQAK/wLsBP8G7AFtAQAI7AEQBf8BEAfsAW0FAA7/AQcFAAj/ARQBAAEUC/8BBwEA
C/8B8gGSAv8B9wbsAW0BAAnsARID/wESCOwBbQUADv8BBwUACP8BFAFtDP8BBwEAB/8CBwH3Av8B8AEH
Af8H7AFtAQAK7AESAf8BEgnsAW0FAA7/AQcFAAj/AfcN/wEHAQAJ/wEHBPIB/wfsAW0BAAvsARAK7AFt
BQAO/wEHBQAW/wEHAQAP/wfsAW0BABbsAW0FAA7/AQcFABb/AQcBABD/BuwBbQEACG0BDw7yBQAL/wEA
AQcBbQESBAAY8hjvAQAIFAH0EwAL/wEAAe0B7FIAC/8BAAFtmAAB7xMHAe8DAAHvEwcB7xkAGO8CAAHv
E/8B7wMAAe8T/wHvAQAY7wEAFuwBbQIAAe8T/wHvAwAB7wL/AQcO9wL/Ae8CABbsAW0BABbsAW0CAAHv
CP8C7AHyCP8B7wMAAe8T/wHvAgAW7AFtAQAW7AFtAgAB7wj/AuwB8gj/Ae8DAAHvAv8O8gHzAv8B7wIA
FuwBbQEAFuwBbQIAAe8I/wIHAfQI/wHvAwAB7wL/AfAOBwL/Ae8CABbsAW0BABbsAW0CAAHvE/8B7wMA
Ae8T/wHvAgAW7AFtAQAW7AFtAgAB7wj/Ae0B7AHyCP8B7wMAAe8C/w7sAfcC/wHvAgAW7AFtAQAW7AFt
AgAB7wj/Ae0B7AHwCP8B7wMAAe8T/wHvAgAW7AFtAQAW7AFtAgAB7wj/AQcB7AH3CP8B7wMAAe8C/wHw
DgcC/wHvAgAW7AFtAQAW7AFtAgAB7wj/AfIC7AG8B/8B7wMAAe8C/w7yAfMC/wHvAgAC7AFtAewBbQTs
AesB7AFtAewB6wTsAW0B7AFtAewBbQEAFuwBbQIAAe8J/wG8AuwBBwb/Ae8DAAHvE/8B7wIAARABFAFt
AewBbQEUARABAAEQARQBbQHsAW0BFAEQAQABEAEUAW0B7AFtARQCABbsAW0CAAHvCv8BvALsAe8F/wHv
AwAB7wL/AQcO9wL/Ae8CAAHsAesB7AFtAewB6wTsAW0B7AFtBOwB6wHsAW0B7AHrAW0BABbsAW0CAAHv
C/8B8ALsAfEE/wHvAwAB7xP/Ae8CABbsAW0BABbsAW0CAAHvDP8BBwHsAZIE/wHvAwAB7wL/DvcBBwL/
Ae8CABbsAW0BABbsAW0CAAHvA/8B9AHvAewB8wX/AfIC7AT/Ae8DAAHvE/8B7wIAFuwBbQEAFuwBbQIA
Ae8E/wLsAfAF/wHwAuwE/wHvAwAB7wL/AfMO8gL/Ae8CABbsAW0BABbsAW0CAAHvBP8BBwHsAe0B8wP/
AfMB7QHsAQcE/wHvAwAB7wL/DgcB8AL/Ae8CABbsAW0BABbsAW0CAAHvBP8B9AHtAuwBvAHyAbwC7AHt
AfQE/wHvAwAB7xP/Ae8CABbsAW0BABbsAW0CAAHvBv8BkgXsAZIG/wHvAwAB7wL/AfcO7AL/Ae8CABbs
AW0BAAhtAQ8O8gIAAe8H/wHzA/IB8wf/Ae8DAAHvE/8B7wIACG0BDw7yAQAIFAH0EAAB7xP/Ae8DAAHv
Av8OBwHwAv8B7wIACBQB9CgAAe8T/wHvAwAB7xP/Ae8zAAHvEwAB7wMAAe8TAAHvGQABQgFNAT4HAAE+
AwABKAMAAWADAAFIAwABAQEAAQEFAAFgAQMWAAP/AQAG/wYAAcABAAEDA/8GAAHAAQABAwGAAQABAQYA
AcABAAEDAYABAAEBBgABwAEAAQMBgAEAAQEGAAHAAQABAwGAAQABAQYAAcABAAEDAYABAAEBBgABwAEA
AQMBgAEAAQEGAAHAAQABAwGAAQABAQYAAcABAAEDAYABAAEBBgABwAEAAQMBgAEAAQEGAAHAAQABAwGA
AQABAQYAAcABAAEDAYABAAEBBgABwAEAAQMBgAgAAcABAAEDAYAIAAHAAQABAwGACAABwAEAAQMBgAgA
AcABAAEDAYAIAAHAAQABAwGACAABwAEAAQcB4AgAAcABAAEPAeAIAAP/AeAIAAP/AeAIAAb/BgAG/wHw
AQABDwP/BgAB8AEAAQ8D/wYAAfABAAEPA/8GAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8JAAHwAQABDwkA
AfABAAEPCQAB8AEAAQ8JAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8JAAHwAQABDwkAAfABAAEPCQAB8AEA
AQ8JAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8JAAHwAQABDwkAAfABAAEPCQAB8AEAAQ8HAAE/Af8B8AEA
AR8J/wHwAQABPwn/AfABAAF/Bv8BwAEAAQEBwAEAAQED/wMAAcABAAEBAcABAAEBBgABwAEAAQEBwAEA
AQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYA
AcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEA
AQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHA
AQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEB
BgABwAEAAQEBwAEAAQEEAAE/Af8BwAEAAQEBwAEAAQEBAAE/BP8BwAEAAQEBwAEAAQEG/wHAAQABAQHA
AQABAQP/Cw==
</value>
</data>
</root>

View file

@ -0,0 +1,466 @@
Imports System.IO
Imports System.IO.Compression
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
CheckAvailable()
'End thingy
CurrentDir = Strings.OnceInfo(1)
txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!\")
ShowContent()
End Sub
Private Sub CheckAvailable()
If Strings.AvailableFeature(47) = 1 Then
btn_Delete.Image = My.Resources.FileSkimmerFunctionIcons.largeico_deletefile
DeleteToolStripMenuItem.Visible = True
Else
btn_Delete.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
btn_Delete.Text = "???"
DeleteToolStripMenuItem.Visible = False
End If
If Strings.AvailableFeature(48) = 1 Then
btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_compress
CompressToolStripMenuItem.Visible = True
Else
btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
btn_Compress.Text = "???"
CompressToolStripMenuItem.Visible = False
End If
If Strings.AvailableFeature(49) = 1 Then
PropertyPaneToolStripMenuItem.Checked = True
pnl_Properties.Visible = True
Else
PropertyPaneToolStripMenuItem.Checked = False
PropertyPaneToolStripMenuItem.Visible = False
pnl_Properties.Visible = False
End If
If Strings.AvailableFeature(50) = 1 Then
JobBarToolStripMenuItem.Checked = True
pnl_JobBar.Visible = True
Else
JobBarToolStripMenuItem.Checked = False
JobBarToolStripMenuItem.Visible = False
pnl_JobBar.Visible = False
End If
'Sets icons for buttons in here, for some reason
btn_NewFolder.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
btn_NewFolder.Text = "???"
btn_Rename.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
btn_Rename.Text = "???"
btn_CopyPath.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
btn_CopyPath.Text = "???"
If Strings.AvailableFeature(51) = 1 Then
Else
cmb_Layout.Items.Remove("Small Icons")
End If
If Strings.AvailableFeature(52) = 1 Then
Else
cmb_Layout.Items.Remove("List")
End If
btn_Up.BackgroundImage = My.Resources.FileSkimmerFunctionIcons.ico_up1
btn_Refresh.BackgroundImage = My.Resources.FileSkimmerFunctionIcons.ico_refresh
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 JobBarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles JobBarToolStripMenuItem.Click
If JobBarToolStripMenuItem.CheckState = False Then
pnl_JobBar.Visible = False
Else
pnl_JobBar.Visible = True
End If
End Sub
Private Sub CompressToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CompressToolStripMenuItem.Click
If Strings.AvailableFeature(48) = 1 Then
FS_Compression()
End If
End Sub
Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
FS_Delete()
End Sub
Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click
Dispose()
End Sub
Private Sub btn_Delete_Click(sender As Object, e As EventArgs) Handles btn_Delete.Click
FS_Delete()
End Sub
Private Sub btn_Compress_Click(sender As Object, e As EventArgs) Handles btn_Compress.Click
If Strings.AvailableFeature(48) = 1 Then
FS_Compression()
Else
End If
End Sub
Private Sub cmb_Layout_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_Layout.SelectedIndexChanged
Select Case cmb_Layout.SelectedItem.ToString
Case "Large Icons"
lsv_Content.View = View.LargeIcon
Case "Small Icons"
lsv_Content.View = View.SmallIcon
Case "List"
lsv_Content.View = View.List
End Select
End Sub
Private Sub cmb_Layout_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_Layout.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
End If
Dim sf As New StringFormat
Using b As New SolidBrush(e.ForeColor)
e.Graphics.DrawString(cmb_Layout.GetItemText(cmb_Layout.Items(e.Index)), e.Font, b, e.Bounds, sf)
End Using
e.DrawFocusRectangle()
End Sub
Private Sub btn_Up_Click(sender As Object, e As EventArgs) Handles btn_Up.Click
Try
If txt_AddressBar.Text = "!\" Or txt_AddressBar.Text = "!" Then
Else
Dim directoryInfo As System.IO.DirectoryInfo
directoryInfo = System.IO.Directory.GetParent(CurrentDir.Replace("!\", Strings.OnceInfo(1) & "\"))
'Dim endloop As Boolean = False
'lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
'While endloop = False
' Try
' If lbllocation.Text.Substring(lbllocation.Text.Length - 1) = "/" Then
' endloop = True
' Else
' lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
' End If
' Catch
' infobox.title = "File Skimmer - Error!"
' infobox.textinfo = "Unable to move into a higher directory due to error reading the requested folder on the drive." & Environment.NewLine & Environment.NewLine & "An error occured going up"
' infobox.Show()
' End Try
'End While
Dim DirFullName As String = directoryInfo.FullName
txt_AddressBar.Text = DirFullName.Replace(Strings.OnceInfo(1), "!")
CurrentDir = DirFullName
If txt_AddressBar.Text = "!" Then
txt_AddressBar.Text = txt_AddressBar.Text & "\"
End If
ShowContent()
End If
Catch ex As Exception
End Try
End Sub
Private Sub btn_Refresh_Click(sender As Object, e As EventArgs) Handles btn_Refresh.Click
ShowContent()
End Sub
Private Sub txt_AddressBar_TextChanged(sender As Object, e As KeyEventArgs) Handles txt_AddressBar.KeyDown
If e.KeyCode = Keys.Enter Then
If txt_AddressBar.Text Like "!*" Then
Dim BackupCurrentDir As String = txt_AddressBar.Text
BackupCurrentDir = BackupCurrentDir.Replace("!", Strings.OnceInfo(1))
If BackupCurrentDir Like "*.*" Then
Else
If Directory.Exists(BackupCurrentDir) = True Then
txt_AddressBar.Text = BackupCurrentDir.Replace(Strings.OnceInfo(1), "!")
CurrentDir = BackupCurrentDir
ShowContent()
End If
End If
Else
txt_AddressBar.Text = "!\"
CurrentDir = Strings.OnceInfo(1)
ShowContent()
End If
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
Dim IsCompressed As Boolean = False
If lsv_Content.SelectedItems(0).Text Like "*.zip" Then
IsCompressed = True
End If
If pnl_Properties.Visible = True Then
Dim IsFile As Boolean = False
If lsv_Content.SelectedItems(0).Text = Nothing Then
pic_Icon.Image = Nothing
lbl_filename.Visible = False
lbl_filetype.Visible = False
lbl_filesize.Visible = False
Else
lbl_filename.Visible = True
lbl_filetype.Visible = True
If lsv_Content.SelectedItems(0).Text Like "*.txt" Then
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_textfile
lbl_filetype.Text = "Text File"
IsFile = True
ElseIf lsv_Content.SelectedItems(0).Text Like "*.zip" Then
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_zip
lbl_filetype.Text = "Compressed ZIP File"
IsFile = True
ElseIf lsv_Content.SelectedItems(0).Text Like "*.*" Then
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown
lbl_filetype.Text = "Unknown File Type"
IsFile = True
ElseIf lsv_Content.SelectedItems(0).Text = "???" Then
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown
lbl_filetype.Text = "Unknown Type"
End If
If IsFile = True Then
lbl_filesize.Visible = True
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
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_folder
lbl_filetype.Text = "Folder"
lbl_filesize.Visible = False
End If
lbl_filename.Text = lsv_Content.SelectedItems(0).Text
End If
End If
If Strings.AvailableFeature(48) = 1 Then
If IsCompressed = True Then
btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_uncompress
btn_Compress.Text = "Extract"
CompressToolStripMenuItem.Text = "Extract"
Else
btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_compress
btn_Compress.Text = "Compress"
CompressToolStripMenuItem.Text = "Compress"
End If
End If
End Select
End Sub
Public Sub ExecuteFile(path As String)
If path Like "*.*" Then
If path Like "*.txt" Then
ElseIf path Like "*.zip" Then
End If
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 Folder In Folders
Dim FolderName As String = Folder.Name
If Strings.AvailableFeature(45) = 1 Then
lsv_Content.Items.Add(FolderName, 0)
Else
lsv_Content.Items.Add("???", 1)
End If
Next
For Each File In Files
Dim filename As String = File.Name
Dim fileex As String = File.Extension
FileType = GetFileType(fileex)(0)
If Strings.AvailableFeature(46) = 1 Then
lsv_Content.Items.Add(filename, FileType)
Else
lsv_Content.Items.Add("???", 1)
End If
Next
End Sub
Public Function GetFileType(fileex As String)
Dim FileType As Integer
Dim Program As String
Select Case fileex
Case ".txt"
FileType = 2
Program = "Text Document"
Case ".zip"
FileType = 3
Program = "Compressed ZIP file"
'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 = 1
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
Private Sub FS_Compression()
Dim NothingIn As Boolean = True
Dim ZipRandomInt As Integer
Dim ZipRandom As New Random
Dim UnzipRandomInt As Integer
Dim UnzipRandom As New Random
Try
If lsv_Content.SelectedItems(0).Text Like "*.zip" Then
UnzipRandomInt = UnzipRandom.Next(1, 1000000)
Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt)
ZipFile.ExtractToDirectory(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt)
Directory.CreateDirectory(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text.Replace(".zip", ""))
CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt, CurrentDir & "\" & lsv_Content.SelectedItems(0).Text.Replace("zip", ""))
Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt, True)
ElseIf lsv_Content.SelectedItems(0).Text Like "*.*" Then
ZipRandomInt = ZipRandom.Next(1, 1000000)
Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt)
File.Copy(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt & "\" & lsv_Content.SelectedItems(0).Text)
Dim Numbering As String = lsv_Content.SelectedItems(0).Text.Length
Dim TheNaming As String = lsv_Content.SelectedItems(0).Text.Substring(0, Numbering - 3) & "zip"
ZipFile.CreateFromDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt, CurrentDir & "\" & TheNaming)
Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt, True)
NothingIn = False
ElseIf lsv_Content.SelectedItems(0).Text Like "*" Then
If Directory.Exists(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text) = True Then
ZipFile.CreateFromDirectory(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text, CurrentDir & "\" & lsv_Content.SelectedItems(0).Text & ".zip")
NothingIn = False
Else
End If
End If
ShowContent()
Catch ex As Exception
End Try
End Sub
Private Sub FS_Delete()
If Strings.AvailableFeature(47) = 0 Then
Else
Try
If lsv_Content.SelectedItems(0).Text Like "*.*" Then
File.Delete(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text)
ElseIf lsv_Content.SelectedItems(0).Text Like "*" Then
Directory.Delete(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text)
End If
ShowContent()
Catch ex As Exception
End Try
End If
End Sub
End Class

View file

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

View file

@ -145,7 +145,7 @@ Namespace My.Resources
'''argentina
'''armenia
'''australia
'''austia
'''austria
'''azerbaijan
'''bahamas
'''bahrain
@ -161,7 +161,7 @@ Namespace My.Resources
'''botswana
'''brazil
'''brunei
'''bulgraia
'''bulgaria
'''burkina faso
'''burundi
'''cambodia
@ -175,13 +175,14 @@ Namespace My.Resources
'''colombia
'''comoros
'''democratic republic of the congo
'''republic of the congocosta rica
'''republic of the congo
'''costa rica
'''croatia
'''cuba
'''cyprus
'''czechia
'''denmark
'''djibou [rest of string was truncated]&quot;;.
'''dji [rest of string was truncated]&quot;;.
'''</summary>
Friend Shared ReadOnly Property Countries() As String
Get
@ -250,5 +251,62 @@ Namespace My.Resources
Return ResourceManager.GetString("Fruits", resourceCulture)
End Get
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 Namespace

View file

@ -127,4 +127,7 @@
<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>
</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>

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

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.ForeColor = System.Drawing.Color.Black
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.Name = "cmb_Category"
Me.cmb_Category.Size = New System.Drawing.Size(266, 31)

View file

@ -1,9 +1,10 @@
Imports System.IO
Public Class Uni_KnowledgeInput
Public Countries(193) As String
Public Countries(194) As String
Public Animals(226) As String
Public Fruits(75) As String
Public US_States(50) As String
Public TotalGuessed As Integer
Public CurrentCategory As String
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)
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
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)
@ -91,6 +99,12 @@ Public Class Uni_KnowledgeInput
End If
Available = True
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
If Available = True Then
TotalGuessed = lst_Guessed.Items.Count
@ -102,6 +116,8 @@ Public Class Uni_KnowledgeInput
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length
Case "Fruits"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length
Case "US States"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & US_States.Length
End Select
Level = Math.Ceiling((TotalGuessed / 10))
CheckLevel()
@ -116,6 +132,9 @@ Public Class Uni_KnowledgeInput
If Strings.AvailableFeature(39) = 0 Then
cmb_Category.Items.Remove("Fruits")
End If
If Strings.AvailableFeature(42) = 0 Then
cmb_Category.Items.Remove("US States")
End If
End Sub
Private Sub CheckLevel()
@ -177,6 +196,20 @@ Public Class Uni_KnowledgeInput
Lines = Lines + 1
End If
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
If Correct = True Then
lst_Guessed.Items.Add(Input)
@ -189,6 +222,8 @@ Public Class Uni_KnowledgeInput
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length
Case "Fruits"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length
Case "US States"
lbl_TotalGuess.Text = lbl_TotalGuess.Text & US_States.Length
End Select
CheckLevel()
SaveCategory()
@ -206,6 +241,9 @@ Public Class Uni_KnowledgeInput
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\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 Sub
End Class

View file

@ -23,7 +23,9 @@ Module DesktopManager
If Strings.OnceInfo(6) = "story" Then
SaveGame()
End If
If Strings.ComputerInfo(7) = 1 Then
MsgBox("this is not a bug, this is a feature") 'Use this messagebox to hold Console to stay open, because removing this line closes Console all together for some reason
End If
Console.Show()
Desktop.Hide()
End Sub
@ -44,6 +46,8 @@ Module DesktopManager
Select Case Strings.ComputerInfo(7)
Case 1
DuWM_Initiate()
Case 2
AnusWM_Initiate()
End Select
End Sub
End Module

View file

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

View file

@ -31,6 +31,7 @@
If Opacity = 1 Then
Strings.ComputerInfo(3) = "0"
Strings.IsFree = False
IsConsoleParent = True
Console.Show()
Close()
Else

View file

@ -52,6 +52,14 @@ Public Class ShiftOSMenu
btn_Aboot.Text = "About"
btn_Aboot.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 Sub

View file

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

View file

@ -0,0 +1,6 @@
Module AnusWM_Main
Public Sub AnusWM_Initiate()
AnusWM_Menu.Show()
AnusWM_Menu.Location = New Point(25, 25)
End Sub
End Module

View file

@ -0,0 +1,142 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class AnusWM_Menu
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.mnu_Main = New System.Windows.Forms.MenuStrip()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ApplicationsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ShifterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StopAnusWMToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RestartToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ShutdownToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.lbl_Title = New System.Windows.Forms.Label()
Me.mnu_Main.SuspendLayout()
Me.SuspendLayout()
'
'mnu_Main
'
Me.mnu_Main.Dock = System.Windows.Forms.DockStyle.Fill
Me.mnu_Main.Font = New System.Drawing.Font("Segoe UI", 12.0!)
Me.mnu_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ApplicationsToolStripMenuItem, Me.ShifterToolStripMenuItem, Me.AboutToolStripMenuItem, Me.ExitToolStripMenuItem})
Me.mnu_Main.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
Me.mnu_Main.Location = New System.Drawing.Point(0, 25)
Me.mnu_Main.Name = "mnu_Main"
Me.mnu_Main.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Me.mnu_Main.Size = New System.Drawing.Size(139, 112)
Me.mnu_Main.TabIndex = 0
Me.mnu_Main.Text = "MenuStrip1"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(132, 4)
'
'ApplicationsToolStripMenuItem
'
Me.ApplicationsToolStripMenuItem.Name = "ApplicationsToolStripMenuItem"
Me.ApplicationsToolStripMenuItem.Size = New System.Drawing.Size(132, 25)
Me.ApplicationsToolStripMenuItem.Text = "Applications"
'
'ShifterToolStripMenuItem
'
Me.ShifterToolStripMenuItem.Name = "ShifterToolStripMenuItem"
Me.ShifterToolStripMenuItem.Size = New System.Drawing.Size(132, 25)
Me.ShifterToolStripMenuItem.Text = "Shifter"
'
'AboutToolStripMenuItem
'
Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(132, 25)
Me.AboutToolStripMenuItem.Text = "About"
'
'ExitToolStripMenuItem
'
Me.ExitToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StopAnusWMToolStripMenuItem, Me.RestartToolStripMenuItem, Me.ShutdownToolStripMenuItem})
Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(132, 25)
Me.ExitToolStripMenuItem.Text = "Exit"
'
'StopAnusWMToolStripMenuItem
'
Me.StopAnusWMToolStripMenuItem.Name = "StopAnusWMToolStripMenuItem"
Me.StopAnusWMToolStripMenuItem.Size = New System.Drawing.Size(179, 26)
Me.StopAnusWMToolStripMenuItem.Text = "Stop AnusWM"
'
'RestartToolStripMenuItem
'
Me.RestartToolStripMenuItem.Name = "RestartToolStripMenuItem"
Me.RestartToolStripMenuItem.Size = New System.Drawing.Size(179, 26)
Me.RestartToolStripMenuItem.Text = "Restart"
'
'ShutdownToolStripMenuItem
'
Me.ShutdownToolStripMenuItem.Name = "ShutdownToolStripMenuItem"
Me.ShutdownToolStripMenuItem.Size = New System.Drawing.Size(179, 26)
Me.ShutdownToolStripMenuItem.Text = "Shutdown"
'
'lbl_Title
'
Me.lbl_Title.BackColor = System.Drawing.Color.Gray
Me.lbl_Title.Dock = System.Windows.Forms.DockStyle.Top
Me.lbl_Title.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic)
Me.lbl_Title.ForeColor = System.Drawing.Color.Black
Me.lbl_Title.Location = New System.Drawing.Point(0, 0)
Me.lbl_Title.Name = "lbl_Title"
Me.lbl_Title.Size = New System.Drawing.Size(139, 25)
Me.lbl_Title.TabIndex = 1
Me.lbl_Title.Text = "Toolchest"
Me.lbl_Title.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'AnusWM_Menu
'
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(139, 137)
Me.Controls.Add(Me.mnu_Main)
Me.Controls.Add(Me.lbl_Title)
Me.ForeColor = System.Drawing.Color.Gray
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MainMenuStrip = Me.mnu_Main
Me.Name = "AnusWM_Menu"
Me.Text = "AnusWM_Menu"
Me.mnu_Main.ResumeLayout(False)
Me.mnu_Main.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents mnu_Main As MenuStrip
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ApplicationsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ShifterToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ExitToolStripMenuItem As ToolStripMenuItem
Friend WithEvents StopAnusWMToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RestartToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ShutdownToolStripMenuItem As ToolStripMenuItem
Friend WithEvents lbl_Title As Label
End Class

View file

@ -0,0 +1,123 @@
<?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="mnu_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

View file

@ -0,0 +1,17 @@
Public Class AnusWM_Menu
Private Sub StopAnusWMToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StopAnusWMToolStripMenuItem.Click
StopG()
End Sub
Private Sub RestartToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RestartToolStripMenuItem.Click
End Sub
Private Sub ShutdownToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShutdownToolStripMenuItem.Click
TerminateShiftOS()
End Sub
Private Sub ApplicationToolStripMenuSubItem_Click(sender As Object, e As ToolStripItemClickedEventArgs) Handles ApplicationsToolStripMenuItem.DropDownItemClicked
MsgBox(e.ClickedItem.Text.ToString)
End Sub
End Class

View file

@ -61,7 +61,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Looks up a localized string similar to 0.2.6.
''' Looks up a localized string similar to 0.2.7.
'''</summary>
Friend ReadOnly Property CurrentVersion() As String
Get
@ -81,6 +81,16 @@ Namespace My.Resources
End Get
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>
''' Looks up a localized string similar to A basic command-line tool for simple calculation.
'''

View file

@ -121,94 +121,97 @@
<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>
</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">
<value>..\resources\man manuals\username.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<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>
</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">
<value>..\resources\man manuals\zip.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<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>
</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">
<value>..\Resources\Menu Picture\ShiftOS_MenuBanner2.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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_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>

View file

@ -15,12 +15,12 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
@ -29,7 +29,7 @@ Namespace My
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If

View file

@ -1 +1 @@
0.2.7
0.2.8

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 676 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.1 KiB

View file

@ -105,6 +105,12 @@
<Compile Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_About.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_Console.Designer.vb">
<DependentUpon>DuWM_Shifter_Console.vb</DependentUpon>
</Compile>
<Compile Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_Console.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_Desktop.Designer.vb">
<DependentUpon>DuWM_Shifter_Desktop.vb</DependentUpon>
</Compile>
@ -118,6 +124,28 @@
<Compile Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="MainForms\Applications\Universal\Calculator\Uni_Calculator.Designer.vb">
<DependentUpon>Uni_Calculator.vb</DependentUpon>
</Compile>
<Compile Include="MainForms\Applications\Universal\Calculator\Uni_Calculator.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="MainForms\Applications\Universal\File Skimmer\Icons\FileSkimmerFileIcons.Designer.vb">
<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">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
@ -205,6 +233,13 @@
</Compile>
<Compile Include="API\ConsoleAPI.vb" />
<Compile Include="API\TerminalAPI.vb" />
<Compile Include="MainForms\WindowManager\codename AnusWM\AnusWM_Main.vb" />
<Compile Include="MainForms\WindowManager\codename AnusWM\AnusWM_Menu.Designer.vb">
<DependentUpon>AnusWM_Menu.vb</DependentUpon>
</Compile>
<Compile Include="MainForms\WindowManager\codename AnusWM\AnusWM_Menu.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="MainForms\WindowManager\DualWindowManager\DuWM_Main.vb" />
<Compile Include="MainForms\WindowManager\DualWindowManager\DuWM_WindowContainer.Designer.vb">
<DependentUpon>DuWM_WindowContainer.vb</DependentUpon>
@ -270,12 +305,31 @@
<EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_About.resx">
<DependentUpon>DuWM_Shifter_About.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_Console.resx">
<DependentUpon>DuWM_Shifter_Console.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\Categories\DuWM_Shifter_Desktop.resx">
<DependentUpon>DuWM_Shifter_Desktop.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.resx">
<DependentUpon>DuWM_Shifter.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\Applications\Universal\Calculator\Uni_Calculator.resx">
<DependentUpon>Uni_Calculator.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\Applications\Universal\File Skimmer\Icons\FileSkimmerFileIcons.resx">
<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">
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>ResXFileCodeGenerator</Generator>
@ -311,6 +365,9 @@
<EmbeddedResource Include="MainForms\Applications\Console.resx">
<DependentUpon>Console.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\WindowManager\codename AnusWM\AnusWM_Menu.resx">
<DependentUpon>AnusWM_Menu.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\WindowManager\DualWindowManager\DuWM_WindowContainer.resx">
<DependentUpon>DuWM_WindowContainer.vb</DependentUpon>
</EmbeddedResource>
@ -352,10 +409,27 @@
</ItemGroup>
<ItemGroup>
<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" />
<None Include="MainForms\Applications\Universal\File Skimmer\Icons\ico_zip.png" />
<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\Fruits.txt" />
<Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\US_States.txt" />
<Content Include="MainForms\rev.txt" />
<None Include="Resources\ico_up1.png" />
<None Include="Resources\ico_refresh.png" />
<None Include="Resources\ico_deletefile.png" />
<None Include="Resources\largeico_compress.png" />
<None Include="Resources\largeico_uncompress.png" />
<None Include="Resources\largeico_rename.png" />
<Content Include="Resources\man Manuals\zip.txt" />
<Content Include="Resources\man Manuals\textpad.txt" />
<Content Include="Resources\Fortunes.txt" />

View file

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

View file

@ -17,6 +17,7 @@
End Sub
Public Sub MQ_GiveQuestion()
Try
Dim RandomNum As New Random
MQ_1stNum = RandomNum.Next(1, 10)
MQ_2ndNum = RandomNum.Next(1, 10)
@ -40,14 +41,16 @@
End While
MQ_Operation = " / "
MQ_ShouldResult = MQ_1stNum / MQ_2ndNum
Case Else
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
Public Sub MQ_CheckAnswer()
Try
Dim TheAnswer As Integer = command
If TheAnswer = MQ_ShouldResult Then
NewLine("You got the right answer! You got " & MQ_ShouldResult & " Codepoint(s)")
@ -57,5 +60,8 @@
NewLine("You got the wrong answer! Try again")
MQ_GiveQuestion()
End If
Catch ex As Exception
NewLine("Invalid number or command")
End Try
End Sub
End Module

View file

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

View file

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

View file

@ -3,6 +3,9 @@
NewLine("ShiftOS Graphical Application List")
NewLine("To run a program, you can type 'app ' and the name of the program listed below (along with its underscore or any symbols included)")
NewLine(Nothing)
If Strings.AvailableFeature(44) = 1 Then
NewLine("FILE_SKIMMER A file manager for ShiftOS")
End If
If Strings.AvailableFeature(37) = 1 Then
NewLine("KNOWLEDGE_INPUT Simple puzzle game where you guess as many things as you can")
End If

View file

@ -19,11 +19,18 @@
Select Case Strings.ComputerInfo(7)
Case 1
AddLine("Dual Window Manager")
Case 2
AddLine("Anus Window Manager")
End Select
End If
NewLine(" ^@@! : @Y .:::^~:. 7# Y@^ Window Manager Theme: -")
NewLine(" ^@@! : @Y .:::^~:. 7# Y@^ Desktop Environment: -")
NewLine(" 7@@: ! B@&BBBBGPPB@#Y. :&^ ^@? Terminal: shiftos-terminal")
NewLine(" ?@@: 7 :??7~:. 5@@5 :&^ .&? Terminal Font: Consolas, 11pt")
NewLine(" ?@@: 7 :??7~:. 5@@5 :&^ .&? Terminal Font: ")
If IsStartG = True Then
AddLine(GUISCustomizations.GUIConsoleFont.Name & ", " & GUISCustomizations.GUIConsoleFont.Size & "pt")
Else
AddLine("Consolas, 11pt (default)")
End If
NewLine(" ~@@! !@ G#&B!. Y@@B 7#. Y~ CPU: " & My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing))
NewLine(" B@G B@J ...~&G. 7@@@? .#? 7 GPU: N/A")
Dim TripleDigitRAM As String