Added HomeView in Views Folder, added function to it for checking the version of DLLs of Current, Backup and Hack.

Minor code changes to other forms

Author: Sahil12524

Minecraft Launch Script/Views/HomeView.Designer.vb

@@ -1,64 +1,4 @@
-<?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.
-    -->
+<root>
   <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">

Minecraft Launch Script/Views/HomeView.resx

@@ -1,3 +1,41 @@
-Public Class HomeView
+Imports System.IO
 
+Public Class HomeView
+    Private Sub HomeView_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        Dim fileReader As String
+        Shell("cmd.exe /c wmic datafile where name=""C:\\Windows\\System32\\Windows.ApplicationModel.Store.dll"" Get Version /value > ""CurSystem32Ver.txt"" && wmic datafile where name=""C:\\Windows\\SysWOW64\\Windows.ApplicationModel.Store.dll"" Get Version /value > ""CurSysWOW64Ver.txt"" ")
+        Threading.Thread.Sleep(800)
+        Try
+            fileReader = My.Computer.FileSystem.ReadAllText("CurSystem32Ver.txt").Replace("Version=", "")
+            lblCurrentSystem32DllVersion.Text = fileReader.Trim
+            fileReader = My.Computer.FileSystem.ReadAllText("CurSysWOW64Ver.txt").Replace("Version=", "")
+            lblCurrentSysWOW64DllVersion.Text = fileReader.Trim
+        Catch ex As FileNotFoundException
+            MsgBox(ex.ToString)
+            Shell("Cmd.exe /c type nul > CurSystem32Ver.txt && type nul > CurSysWOW64Ver.txt")
+        End Try
+
+        Try
+            Dim backupSystem32Dll As FileVersionInfo = FileVersionInfo.GetVersionInfo("bin\dlls\Original Dlls Backup\System32\Windows.ApplicationModel.Store.dll")
+            lblBackupSystem32DllVersion.Text = backupSystem32Dll.ProductVersion.ToString
+            Dim backupSysWOW64Dll As FileVersionInfo = FileVersionInfo.GetVersionInfo("bin\dlls\Original Dlls Backup\SysWOW64\Windows.ApplicationModel.Store.dll")
+            lblBackupSysWOW64DllVersion.Text = backupSystem32Dll.ProductVersion.ToString
+        Catch ex As FileNotFoundException
+            lblBackupSystem32DllVersion.Text = "Backup not found"
+            lblBackupSysWOW64DllVersion.Text = "Backup not found"
+        End Try
+    End Sub
+
+    Private Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click
+        Application.Restart()
+    End Sub
+
+    Private Sub HomeView_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
+        Shell("cmd.exe /c del /f CurSystem32Ver.txt CurSysWOW64Ver.txt")
+    End Sub
+
+    Private Sub HomeView_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
+        Shell("cmd.exe /c del /f CurSystem32Ver.txt CurSysWOW64Ver.txt")
+    End Sub
 End Class

Minecraft Launch Script/Views/HomeView.vb

@@ -1,4 +1,5 @@
-Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Status
+Imports System.IO
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Status
 Public Class MainPage
     Sub switchPanel(ByVal panel As Form)
         Panel3.Controls.Clear()
@@ -12,14 +13,15 @@ Public Class MainPage
         GC.Collect()
         GC.WaitForPendingFinalizers()
         GC.Collect()
-        switchPanel(NewMethodBypassView)
+        switchPanel(HomeView)
     End Sub
 
     Private Sub btnNewMethodBypass_Click(sender As Object, e As EventArgs) Handles btnNewMethodBypass.Click
         GC.Collect()
         GC.WaitForPendingFinalizers()
         GC.Collect()
         switchPanel(NewMethodBypassView)
+        Shell("cmd.exe /c del /f CurSystem32Ver.txt CurSysWOW64Ver.txt")
     End Sub
 
     Private Sub btnOldMethod_Click(sender As Object, e As EventArgs) Handles btnOldMethod.Click
@@ -41,5 +43,34 @@ Public Class MainPage
         GC.WaitForPendingFinalizers()
         GC.Collect()
         switchPanel(HomeView)
+        Dim fileReader As String
+        Shell("cmd.exe /c wmic datafile where name=""C:\\Windows\\System32\\Windows.ApplicationModel.Store.dll"" Get Version /value > ""CurSystem32Ver.txt"" && wmic datafile where name=""C:\\Windows\\SysWOW64\\Windows.ApplicationModel.Store.dll"" Get Version /value > ""CurSysWOW64Ver.txt"" ")
+        Threading.Thread.Sleep(800)
+        Try
+            fileReader = My.Computer.FileSystem.ReadAllText("CurSystem32Ver.txt").Replace("Version=", "")
+            HomeView.lblCurrentSystem32DllVersion.Text = fileReader.Trim
+            fileReader = My.Computer.FileSystem.ReadAllText("CurSysWOW64Ver.txt").Replace("Version=", "")
+            HomeView.lblCurrentSysWOW64DllVersion.Text = fileReader.Trim
+        Catch ex As FileNotFoundException
+            MsgBox(ex.ToString)
+            Shell("Cmd.exe /c type nul > CurSystem32Ver.txt && type nul > CurSysWOW64Ver.txt")
+        End Try
+        Try
+            Dim backupSystem32Dll As FileVersionInfo = FileVersionInfo.GetVersionInfo("bin\dlls\Original Dlls Backup\System32\Windows.ApplicationModel.Store.dll")
+            HomeView.lblBackupSystem32DllVersion.Text = backupSystem32Dll.ProductVersion.ToString
+            Dim backupSysWOW64Dll As FileVersionInfo = FileVersionInfo.GetVersionInfo("bin\dlls\Original Dlls Backup\SysWOW64\Windows.ApplicationModel.Store.dll")
+            HomeView.lblBackupSysWOW64DllVersion.Text = backupSystem32Dll.ProductVersion.ToString
+        Catch ex As FileNotFoundException
+            HomeView.lblBackupSystem32DllVersion.Text = "Backup not found"
+            HomeView.lblBackupSysWOW64DllVersion.Text = "Backup not found"
+        End Try
+    End Sub
+
+    Private Sub MainPage_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
+        Shell("cmd.exe /c del /f CurSystem32Ver.txt CurSysWOW64Ver.txt")
+    End Sub
+
+    Private Sub MainPage_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
+        Shell("cmd.exe /c del /f CurSystem32Ver.txt CurSysWOW64Ver.txt")
     End Sub
 End Class

Minecraft Launch Script/Views/MainPage.Designer.vb

@@ -14,6 +14,7 @@
         GC.Collect()
         GC.WaitForPendingFinalizers()
         GC.Collect()
+        HomeView.Close()
     End Sub
 
     Private Sub New_Method_Bypass_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
@@ -52,4 +53,5 @@
             Shell("logoff")
         End If
     End Sub
+
 End Class