fixed some stuff

Noxyntious · Mar 18, 2023 · 93925c8 · 93925c8
1 parent 16f58c0
commit 93925c8
Show file tree

Hide file tree

Showing 25 changed files with 80 additions and 127 deletions.
diff --git a/SHitSHell/DbgMenu.Designer.vb b/SHitSHell/DbgMenu.Designer.vb
diff --git a/SHitSHell/DbgMenu.vb b/SHitSHell/DbgMenu.vb
@@ -10,4 +10,12 @@
         'My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SHitSHell", "Appearance", "dark")
         MsgBox("successfully set dark mode", MsgBoxStyle.Information, "sukcess!")
     End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+
+    End Sub
+
+    Private Sub DbgMenu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Label1.Text = getDefaultBrowser()
+    End Sub
 End Class
diff --git a/SHitSHell/My Project/Resources.Designer.vb b/SHitSHell/My Project/Resources.Designer.vb
diff --git a/SHitSHell/My Project/Resources.resx b/SHitSHell/My Project/Resources.resx
@@ -121,15 +121,9 @@
   <data name="internet" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\internet.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="imageres_1023" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\imageres_1023.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="shutdown" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\shutdown.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="shell32_16744" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\shell32_16744.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="terminal" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\terminal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -142,16 +136,7 @@
   <data name="pc" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="imageres_165" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\imageres_165.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="settings" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="imageres_27" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\imageres_27.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="imageres_101" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\imageres_101.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
 </root>
diff --git a/SHitSHell/Resources/explorer.png b/SHitSHell/Resources/explorer.png
diff --git a/SHitSHell/Resources/imageres_101.ico b/SHitSHell/Resources/imageres_101.ico
diff --git a/SHitSHell/Resources/imageres_1023.ico b/SHitSHell/Resources/imageres_1023.ico
diff --git a/SHitSHell/Resources/imageres_165.ico b/SHitSHell/Resources/imageres_165.ico
diff --git a/SHitSHell/Resources/imageres_27.ico b/SHitSHell/Resources/imageres_27.ico
diff --git a/SHitSHell/Resources/internet.png b/SHitSHell/Resources/internet.png
diff --git a/SHitSHell/Resources/pc.png b/SHitSHell/Resources/pc.png
diff --git a/SHitSHell/Resources/settings.png b/SHitSHell/Resources/settings.png
diff --git a/SHitSHell/Resources/shell32_16744.ico b/SHitSHell/Resources/shell32_16744.ico
diff --git a/SHitSHell/Resources/shutdown.png b/SHitSHell/Resources/shutdown.png
diff --git a/SHitSHell/Resources/terminal.png b/SHitSHell/Resources/terminal.png
diff --git a/SHitSHell/SHitDock.Designer.vb b/SHitSHell/SHitDock.Designer.vb
diff --git a/SHitSHell/SHitDock.resx b/SHitSHell/SHitDock.resx
@@ -120,7 +120,4 @@
   <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
-  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
 </root>
diff --git a/SHitSHell/SHitDock.vb b/SHitSHell/SHitDock.vb
@@ -55,20 +55,8 @@ SystemInformation.WorkingArea
     End Sub
 
     Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles InternetIcon.Click
-        'Attempts to load Firefox, if you don't have Firefox, it will attempt to launch Chrome, if you don't have Chrome, it will attempt to launch Edge, if you don't have Edge it will attempt to launch Internet Explorer.
-        Try
-            Process.Start("Firefox.exe")
-        Catch
-            Try
-                Process.Start("Chrome.exe")
-            Catch
-                Try
-                    Process.Start("ms-edge")
-                Catch
-                    Process.Start("iexplore.exe")
-                End Try
-            End Try
-        End Try
+        'Launches the default browser.
+        Process.Start(getDefaultBrowser)
     End Sub
 
     Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click

diff --git a/SHitSHell/SHitLauncher.Designer.vb b/SHitSHell/SHitLauncher.Designer.vb
diff --git a/SHitSHell/SHitLauncher.vb b/SHitSHell/SHitLauncher.vb
@@ -41,7 +41,7 @@ SystemInformation.WorkingArea
         Exit Sub
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) 
         DbgMenu.Show()
     End Sub
 End Class
diff --git a/SHitSHell/SHitSHell.vb b/SHitSHell/SHitSHell.vb
@@ -1,4 +1,5 @@
 Imports System.Runtime.InteropServices
+Imports Microsoft.Win32
 
 #Region "Various Settings"
 Module ShareefDontLikeIt
@@ -9,7 +10,17 @@ Module ShareefDontLikeIt
     <DllImport("user32.dll", SetLastError:=True)>
     Private Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As SetWindowPosFlags) As Boolean
     End Function
-
+    <DllImport("shell32.dll", EntryPoint:="FindExecutableW")>
+    Public Function FindExecutableW(<InAttribute(), MarshalAs(UnmanagedType.LPTStr)> ByVal lpFile As String, <InAttribute(), MarshalAs(UnmanagedType.LPTStr)> ByVal lpDirectory As String, <MarshalAs(UnmanagedType.LPWStr)> ByVal lpResult As System.Text.StringBuilder) As IntPtr
+    End Function
+    Public Function getDefaultBrowser() As String
+        Dim tmpFile As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "fake.html")
+        IO.File.WriteAllText(tmpFile, "")
+        Dim sb As New System.Text.StringBuilder(260)
+        FindExecutableW(tmpFile, Nothing, sb)
+        If IO.File.Exists(tmpFile) Then IO.File.Delete(tmpFile)
+        Return sb.ToString
+    End Function
     <Flags>
     Private Enum SetWindowPosFlags As UInteger
         SynchronousWindowPosition = &H4000

diff --git a/SHitSHell/SHitSHell.vbproj b/SHitSHell/SHitSHell.vbproj
@@ -95,17 +95,17 @@
     <Compile Include="DbgMenu.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
     <Compile Include="Settings.Designer.vb">
       <DependentUpon>Settings.vb</DependentUpon>
     </Compile>
     <Compile Include="Settings.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="My Project\Resources.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>Resources.resx</DependentUpon>
-    </Compile>
     <Compile Include="SHitDock.Designer.vb">
       <DependentUpon>SHitDock.vb</DependentUpon>
     </Compile>
@@ -233,20 +233,5 @@
   <ItemGroup>
     <None Include="Resources\shitshell.png" />
   </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\imageres_1023.ico" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\imageres_27.ico" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\shell32_16744.ico" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\imageres_165.ico" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\imageres_101.ico" />
-  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>