Updated to 0.2c

Author: simonmkwii

HACToolGUI.vbproj

@@ -24,7 +24,7 @@
     <UpdatePeriodically>false</UpdatePeriodically>
     <UpdateRequired>false</UpdateRequired>
     <MapFileExtensions>true</MapFileExtensions>
-    <ApplicationRevision>7</ApplicationRevision>
+    <ApplicationRevision>8</ApplicationRevision>
     <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <PublishWizardCompleted>true</PublishWizardCompleted>
@@ -69,13 +69,13 @@
     <ApplicationIcon>favicon.ico</ApplicationIcon>
   </PropertyGroup>
   <PropertyGroup>
-    <SignManifests>false</SignManifests>
+    <SignManifests>true</SignManifests>
   </PropertyGroup>
   <PropertyGroup>
     <ManifestCertificateThumbprint>751D5AC4EF2A98BC633CAD03296A0859F6475168</ManifestCertificateThumbprint>
   </PropertyGroup>
   <PropertyGroup>
-    <SignAssembly>false</SignAssembly>
+    <SignAssembly>true</SignAssembly>
   </PropertyGroup>
   <PropertyGroup>
     <AssemblyOriginatorKeyFile>HacTool.pfx</AssemblyOriginatorKeyFile>

KeyForm.Designer.vb

@@ -3,6 +3,7 @@
         MKey00_TextBox.Text = "C2CA"
         MKey01_TextBox.Text = "54E1"
         MKey02_TextBox.Text = "4F6B"
+        MKey03_TextBox.Text = "84E0"
         Header_TextBox.Text = "AEAA"
         AKEK_TextBox.Text = "4D87"
         AKey_TextBox.Text = "8961"
@@ -15,6 +16,7 @@
         IO.File.WriteAllText("keys.dat", ("master_key_00 = " + MKey00_TextBox.Text + vbNewLine +
                              "master_key_01 = " + MKey01_TextBox.Text + vbNewLine +
                              "master_key_02 = " + MKey02_TextBox.Text + vbNewLine +
+                             "master_key_03 = " + MKey03_TextBox.Text + vbNewLine +
                              "header_key = " + Header_TextBox.Text + vbNewLine +
                              "aes_kek_generation_source = " + AKEK_TextBox.Text + vbNewLine +
                              "aes_key_generation_source = " + AKey_TextBox.Text + vbNewLine +

KeyForm.vb

@@ -117,9 +117,6 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

MainForm.Designer.vb

@@ -8,12 +8,13 @@ System.Windows.Forms.Keys.Left, System.Windows.Forms.Keys.Right,
 System.Windows.Forms.Keys.B, System.Windows.Forms.Keys.A}
     Dim index As Integer = 0
     Dim sequence() As Boolean = {False, False, False, False, False, False, False, False, False, False}
-    Dim URL As String = "http://simolabs.com.au/hactoolgui/currentversion.txt"
+    Dim UpdateCheck As String = "http://simolabs.com.au/hactoolgui/currentversion.txt"
+    Dim Notify As String = "http://simolabs.com.au/hactoolgui/news.txt"
     Dim Web As WebClient = New WebClient()
-    Dim Rd As StreamReader = New StreamReader(Web.OpenRead(URL))
+    Dim Rd As StreamReader = New StreamReader(Web.OpenRead(UpdateCheck))
     Dim GBATemp As String = "https://gbatemp.net/threads/release-hactoolgui-v0-1-a-very-simple-gui-for-hactool.499526/"
     Dim LatestVersion As String = Rd.ReadToEnd
-    Dim CurrentVersion As String = "0.2b"
+    Dim CurrentVersion As String = "0.2c"
     Public Sub New()
         InitializeComponent()
         Me.KeyPreview = True
@@ -50,14 +51,9 @@ System.Windows.Forms.Keys.B, System.Windows.Forms.Keys.A}
         Else
         End If
         If LatestVersion = CurrentVersion Then
+            Label1.Text = "HACToolGUI is up to date."
         Else
-            Dim UpdateMsg As Integer = MessageBox.Show("An update is available!" + vbNewLine + "Current Version: " + CurrentVersion + vbNewLine + "Newest version: " + LatestVersion + vbNewLine + "Would you like to see GBATemp for more details?", "Version " + LatestVersion + " is available!", MessageBoxButtons.YesNo)
-            If UpdateMsg = DialogResult.No Then
-                ToolStripStatusLabel1.Text = "An update is available."
-            ElseIf UpdateMsg = DialogResult.Yes Then
-                Process.Start(GBATemp)
-                Close()
-            End If
+            Label1.Text = "Version " + LatestVersion + " is available."
         End If
     End Sub
 
@@ -92,4 +88,11 @@ System.Windows.Forms.Keys.B, System.Windows.Forms.Keys.A}
     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
         KIP1Form.Show()
     End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+        If Label1.Text = "HACToolGUI is up to date." Then
+        Else
+            Process.Start(GBATemp)
+        End If
+    End Sub
 End Class