Added DHL

2025-09-06 09:47:08 +10:00
parent e145d6529c
commit 0c6ded6b61
15 changed files with 2630 additions and 131 deletions
--- a/HelloWorld/Form1
+++ b/HelloWorld/Form1
--- a/HelloWorld/Form1.Designer.vb
+++ b/HelloWorld/Form1.Designer.vb
@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class Form1
    '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()> _
+    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.btnClickThis = New System.Windows.Forms.Button()
@@ -28,38 +28,36 @@ Partial Class Form1
        Me.txtFinalUrl = New System.Windows.Forms.TextBox()
        Me.txtRMA = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
-        Me.txtBaseURL = New System.Windows.Forms.TextBox()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
-        Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.btnEditBaseUrl = New System.Windows.Forms.Button()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.btnFedexShipping = New System.Windows.Forms.Button()
+        Me.btnDHLShipping = New System.Windows.Forms.Button()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.MenuStrip1.SuspendLayout()
        Me.SuspendLayout()
        '
        'btnClickThis
        '
-        Me.btnClickThis.Location = New System.Drawing.Point(12, 180)
+        Me.btnClickThis.Location = New System.Drawing.Point(12, 148)
        Me.btnClickThis.Name = "btnClickThis"
        Me.btnClickThis.Size = New System.Drawing.Size(138, 23)
        Me.btnClickThis.TabIndex = 0
-        Me.btnClickThis.Text = "Go && Copy to Clipboard"
+        Me.btnClickThis.Text = "Copy to Clipboard"
        Me.btnClickThis.UseVisualStyleBackColor = True
        '
        'lblHelloWorld
        '
        Me.lblHelloWorld.AutoSize = True
-        Me.lblHelloWorld.Location = New System.Drawing.Point(9, 137)
+        Me.lblHelloWorld.Location = New System.Drawing.Point(9, 101)
        Me.lblHelloWorld.Name = "lblHelloWorld"
-        Me.lblHelloWorld.Size = New System.Drawing.Size(54, 13)
+        Me.lblHelloWorld.Size = New System.Drawing.Size(99, 13)
        Me.lblHelloWorld.TabIndex = 1
-        Me.lblHelloWorld.Text = "TNT URL"
+        Me.lblHelloWorld.Text = "Final Tracking URL"
        '
        'txtFinalUrl
        '
-        Me.txtFinalUrl.Location = New System.Drawing.Point(12, 154)
+        Me.txtFinalUrl.Location = New System.Drawing.Point(12, 121)
        Me.txtFinalUrl.Name = "txtFinalUrl"
        Me.txtFinalUrl.ReadOnly = True
        Me.txtFinalUrl.Size = New System.Drawing.Size(652, 20)
@@ -69,7 +67,7 @@ Partial Class Form1
        '
        Me.txtRMA.Location = New System.Drawing.Point(12, 41)
        Me.txtRMA.Name = "txtRMA"
-        Me.txtRMA.Size = New System.Drawing.Size(183, 20)
+        Me.txtRMA.Size = New System.Drawing.Size(197, 20)
        Me.txtRMA.TabIndex = 3
        '
        'Label1
@@ -77,57 +75,13 @@ Partial Class Form1
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(9, 24)
        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(188, 13)
+        Me.Label1.Size = New System.Drawing.Size(200, 13)
        Me.Label1.TabIndex = 4
-        Me.Label1.Text = "Customer Refrance or Shiping Number"
-        '
-        'txtBaseURL
-        '
-        Me.txtBaseURL.Location = New System.Drawing.Point(12, 79)
-        Me.txtBaseURL.Name = "txtBaseURL"
-        Me.txtBaseURL.ReadOnly = True
-        Me.txtBaseURL.Size = New System.Drawing.Size(652, 20)
-        Me.txtBaseURL.TabIndex = 5
-        Me.txtBaseURL.Text = "https://www.tnt.com/express/en_au/site/shipping-tools/tracking.html?searchType=re" &
-    "f&cons="
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(9, 63)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(56, 13)
-        Me.Label2.TabIndex = 6
-        Me.Label2.Text = "Base URL"
-        '
-        'MenuStrip1
-        '
-        Me.MenuStrip1.Enabled = False
-        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionsToolStripMenuItem, Me.AboutToolStripMenuItem})
-        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
-        Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(687, 24)
-        Me.MenuStrip1.TabIndex = 8
-        Me.MenuStrip1.Text = "MenuStrip1"
-        '
-        'OptionsToolStripMenuItem
-        '
-        Me.OptionsToolStripMenuItem.Enabled = False
-        Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem"
-        Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(97, 20)
-        Me.OptionsToolStripMenuItem.Text = "Ajust Base URL"
-        Me.OptionsToolStripMenuItem.Visible = False
-        '
-        'AboutToolStripMenuItem
-        '
-        Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
-        Me.AboutToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.D6), System.Windows.Forms.Keys)
-        Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(52, 20)
-        Me.AboutToolStripMenuItem.Text = "About"
+        Me.Label1.Text = "Customer Reference or Shipping Number"
        '
        'btnEditBaseUrl
        '
-        Me.btnEditBaseUrl.Location = New System.Drawing.Point(12, 106)
+        Me.btnEditBaseUrl.Location = New System.Drawing.Point(12, 70)
        Me.btnEditBaseUrl.Name = "btnEditBaseUrl"
        Me.btnEditBaseUrl.Size = New System.Drawing.Size(137, 23)
        Me.btnEditBaseUrl.TabIndex = 9
@@ -136,7 +90,7 @@ Partial Class Form1
        '
        'Button1
        '
-        Me.Button1.Location = New System.Drawing.Point(155, 106)
+        Me.Button1.Location = New System.Drawing.Point(155, 70)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(137, 23)
        Me.Button1.TabIndex = 10
@@ -145,23 +99,46 @@ Partial Class Form1
        '
        'btnFedexShipping
        '
-        Me.btnFedexShipping.Location = New System.Drawing.Point(298, 106)
+        Me.btnFedexShipping.Location = New System.Drawing.Point(298, 70)
        Me.btnFedexShipping.Name = "btnFedexShipping"
        Me.btnFedexShipping.Size = New System.Drawing.Size(137, 23)
        Me.btnFedexShipping.TabIndex = 11
        Me.btnFedexShipping.Text = "FedEx Shipping Number"
        Me.btnFedexShipping.UseVisualStyleBackColor = True
        '
+        'btnDHLShipping
+        '
+        Me.btnDHLShipping.Location = New System.Drawing.Point(441, 69)
+        Me.btnDHLShipping.Name = "btnDHLShipping"
+        Me.btnDHLShipping.Size = New System.Drawing.Size(137, 23)
+        Me.btnDHLShipping.TabIndex = 12
+        Me.btnDHLShipping.Text = "DHL Shipping Number"
+        Me.btnDHLShipping.UseVisualStyleBackColor = True
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AboutToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(687, 24)
+        Me.MenuStrip1.TabIndex = 13
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'AboutToolStripMenuItem
+        '
+        Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
+        Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(52, 20)
+        Me.AboutToolStripMenuItem.Text = "About"
+        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(687, 213)
+        Me.ClientSize = New System.Drawing.Size(687, 181)
+        Me.Controls.Add(Me.btnDHLShipping)
        Me.Controls.Add(Me.btnFedexShipping)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.btnEditBaseUrl)
-        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.txtBaseURL)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.txtRMA)
        Me.Controls.Add(Me.txtFinalUrl)
@@ -170,10 +147,9 @@ Partial Class Form1
        Me.Controls.Add(Me.MenuStrip1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.MainMenuStrip = Me.MenuStrip1
        Me.MaximizeBox = False
        Me.Name = "Form1"
-        Me.Text = "TNT & FexEx Tacking Link Creator"
+        Me.Text = "Shipping Tracker"
        Me.MenuStrip1.ResumeLayout(False)
        Me.MenuStrip1.PerformLayout()
        Me.ResumeLayout(False)
@@ -186,12 +162,10 @@ Partial Class Form1
    Friend WithEvents txtFinalUrl As TextBox
    Friend WithEvents txtRMA As TextBox
    Friend WithEvents Label1 As Label
-    Friend WithEvents txtBaseURL As TextBox
-    Friend WithEvents Label2 As Label
-    Friend WithEvents MenuStrip1 As MenuStrip
-    Friend WithEvents OptionsToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents btnEditBaseUrl As Button
    Friend WithEvents Button1 As Button
    Friend WithEvents btnFedexShipping As Button
+    Friend WithEvents btnDHLShipping As Button
+    Friend WithEvents MenuStrip1 As MenuStrip
+    Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/HelloWorld/Form1.vb
+++ b/HelloWorld/Form1.vb
@@ -3,38 +3,61 @@ Imports System.Net
 Imports System.Net.Http
 Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
+Imports System.Media


 Public Class Form1
    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles btnClickThis.Click
+        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
+        Using player As New SoundPlayer(My.Resources.WindowsXPCriticalStop)
+            player.Play()
+        End Using
+    End Sub
+
+
+    Private Sub btnEditBaseUrl_Click(sender As Object, e As EventArgs) Handles btnEditBaseUrl.Click
        Dim rawRMA As String
-        Dim baseURL As String
        rawRMA = txtRMA.Text
-        baseURL = txtBaseURL.Text

        Dim encodedRMA As String = Uri.EscapeDataString(rawRMA)

-        txtFinalUrl.Text = baseURL & encodedRMA
-
-        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
-    End Sub
-
-
-    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
-        Dim box = New About()
-        box.Show()
-    End Sub
-
-    Private Sub btnEditBaseUrl_Click(sender As Object, e As EventArgs) Handles btnEditBaseUrl.Click
-        txtBaseURL.Text = "https://www.tnt.com/express/en_au/site/shipping-tools/tracking.html?searchType=ref&cons="
+        txtFinalUrl.Text = "https://www.tnt.com/express/en_au/site/shipping-tools/tracking.html?searchType=ref&cons=" & encodedRMA
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
-        txtBaseURL.Text = "https://www.tnt.com/express/en_au/site/shipping-tools/tracking.html?searchType=con&cons="
+        Dim rawRMA As String
+        rawRMA = txtRMA.Text
+
+        Dim encodedRMA As String = Uri.EscapeDataString(rawRMA)
+
+        txtFinalUrl.Text = "https://www.tnt.com/express/en_au/site/shipping-tools/tracking.html?searchType=con&cons=" & encodedRMA
    End Sub

    Private Sub btnFedexShipping_Click(sender As Object, e As EventArgs) Handles btnFedexShipping.Click
-        txtBaseURL.Text = "https://www.fedex.com/fedextrack/?trknbr="
+        Dim rawRMA As String
+        rawRMA = txtRMA.Text
+
+        Dim encodedRMA As String = Uri.EscapeDataString(rawRMA)
+
+        txtFinalUrl.Text = "https://www.fedex.com/fedextrack/?trknbr=" & encodedRMA
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnDHLShipping.Click
+        Dim rawRMA As String
+        rawRMA = txtRMA.Text
+
+        Dim encodedRMA As String = Uri.EscapeDataString(rawRMA)
+
+        txtFinalUrl.Text = "https://www.dhl.com/au-en/home/tracking/tracking-express.html?submit=1&tracking-id=" & encodedRMA
+    End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+
+    End Sub
+
+    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
+        Dim box = New Form3()
+        box.Show()
    End Sub
 End Class

--- a/HelloWorld/Form2.Designer.vb
+++ b/HelloWorld/Form2.Designer.vb
@@ -23,26 +23,14 @@ Partial Class About
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(About))
-        Me.Label1 = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(13, 20)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(222, 39)
-        Me.Label1.TabIndex = 0
-        Me.Label1.Text = "Verson 1.0.2.0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Made by Ben Nicholson - All Rights Reserved" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
-        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        Me.Label1.UseWaitCursor = True
-        '
        'About
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(248, 80)
-        Me.Controls.Add(Me.Label1)
+        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
@@ -50,9 +38,6 @@ Partial Class About
        Me.Text = "About"
        Me.UseWaitCursor = True
        Me.ResumeLayout(False)
-        Me.PerformLayout()

    End Sub
-
-    Friend WithEvents Label1 As Label
 End Class
--- a/HelloWorld/Form2.vb
+++ b/HelloWorld/Form2.vb
@@ -2,4 +2,8 @@
    Private Sub About_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) 
+
+    End Sub
 End Class
--- a/HelloWorld/Form3.Designer.vb
+++ b/HelloWorld/Form3.Designer.vb
@@ -0,0 +1,61 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form3
+    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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form3))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label1.Location = New System.Drawing.Point(12, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(222, 39)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Verson 1.0.5.3 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Made by Ben Nicholson - All Rights Reserved" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.Label1.UseWaitCursor = True
+        '
+        'Form3
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(246, 60)
+        Me.Controls.Add(Me.Label1)
+        Me.ForeColor = System.Drawing.Color.Black
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "Form3"
+        Me.ShowInTaskbar = False
+        Me.Text = "About"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+End Class
--- a/HelloWorld/Form3.resx
+++ b/HelloWorld/Form3.resx
--- a/HelloWorld/Form3.vb
+++ b/HelloWorld/Form3.vb
@@ -0,0 +1,5 @@
+Public Class Form3
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+
+    End Sub
+End Class
--- a/Project/Application.myapp
+++ b/Project/Application.myapp
@@ -1,11 +1,12 @@
 <?xml version="1.0" encoding="utf-8"?>
-<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <MySubMain>true</MySubMain>
  <MainForm>Form1</MainForm>
  <SingleInstance>false</SingleInstance>
  <ShutdownMode>0</ShutdownMode>
  <EnableVisualStyles>true</EnableVisualStyles>
  <AuthenticationMode>0</AuthenticationMode>
-  <ApplicationType>0</ApplicationType>
+  <MinimumSplashScreenDisplayTime>0</MinimumSplashScreenDisplayTime>
  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
-</MyApplicationData>
+  <HighDpiMpde>false</HighDpiMpde>
+</MyApplicationData>
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -9,11 +9,11 @@ Imports System.Runtime.InteropServices

 ' Review the values of the assembly attributes

-<Assembly: AssemblyTitle("TNT Tracking Link Creator")>
+<Assembly: AssemblyTitle("Shipping Tracker")>
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("TNT Tracking Link Creator")>
-<Assembly: AssemblyCopyright("Copyright © 2024 Ben Nicholson")>
+<Assembly: AssemblyCopyright("Copyright © 2025 Ben Nicholson")>
 <Assembly: AssemblyTrademark("")>

 <Assembly: ComVisible(False)>
@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>

-<Assembly: AssemblyVersion("1.0.0.1")>
-<Assembly: AssemblyFileVersion("1.0.0.1")>
+<Assembly: AssemblyVersion("1.0.5.3")>
+<Assembly: AssemblyFileVersion("1.0.5.3")>
 <Assembly: NeutralResourcesLanguage("en-AU")>
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -59,5 +59,14 @@ Namespace My.Resources
                resourceCulture = value
            End Set
        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
+        '''</summary>
+        Friend ReadOnly Property WindowsXPCriticalStop() As System.IO.UnmanagedMemoryStream
+            Get
+                Return ResourceManager.GetStream("WindowsXPCriticalStop", resourceCulture)
+            End Get
+        End Property
    End Module
 End Namespace
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -46,7 +46,7 @@
    
    mimetype: application/x-microsoft.net.object.binary.base64
    value   : The object must be serialized with 
-            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            : and then encoded with base64 encoding.
    
    mimetype: application/x-microsoft.net.object.soap.base64
@@ -60,6 +60,7 @@
            : 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">
@@ -68,9 +69,10 @@
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" />
              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" />
+              <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">
@@ -85,9 +87,10 @@
                <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" msdata:Ordinal="1" />
+              <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">
@@ -109,9 +112,13 @@
    <value>2.0</value>
  </resheader>
  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <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="WindowsXPCriticalStop" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\WindowsXPCriticalStop.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
 </root>
--- a/HelloWorld/TNT
+++ b/HelloWorld/TNT
@@ -8,7 +8,7 @@
    <OutputType>WinExe</OutputType>
    <StartupObject>TNTTracking.My.MyApplication</StartupObject>
    <RootNamespace>TNTTracking</RootNamespace>
-    <AssemblyName>TNTTracking</AssemblyName>
+    <AssemblyName>Shipping Tracker</AssemblyName>
    <FileAlignment>512</FileAlignment>
    <MyType>WindowsForms</MyType>
    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
@@ -16,7 +16,7 @@
    <Deterministic>true</Deterministic>
    <TargetFrameworkProfile />
    <IsWebBootstrapper>false</IsWebBootstrapper>
-    <PublishUrl>publish\</PublishUrl>
+    <PublishUrl>C:\Users\Ben\Desktop\</PublishUrl>
    <Install>true</Install>
    <InstallFrom>Disk</InstallFrom>
    <UpdateEnabled>false</UpdateEnabled>
@@ -27,8 +27,8 @@
    <UpdateRequired>false</UpdateRequired>
    <MapFileExtensions>true</MapFileExtensions>
    <AutorunEnabled>true</AutorunEnabled>
-    <ApplicationRevision>1</ApplicationRevision>
-    <ApplicationVersion>1.0.2.%2a</ApplicationVersion>
+    <ApplicationRevision>3</ApplicationRevision>
+    <ApplicationVersion>1.0.5.%2a</ApplicationVersion>
    <UseApplicationTrust>false</UseApplicationTrust>
    <PublishWizardCompleted>true</PublishWizardCompleted>
    <BootstrapperEnabled>true</BootstrapperEnabled>
@@ -40,7 +40,7 @@
    <DefineDebug>true</DefineDebug>
    <DefineTrace>true</DefineTrace>
    <OutputPath>bin\Debug\</OutputPath>
-    <DocumentationFile>TNTTracking.xml</DocumentationFile>
+    <DocumentationFile>Shipping Tracker.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
@@ -50,7 +50,7 @@
    <DefineTrace>true</DefineTrace>
    <Optimize>true</Optimize>
    <OutputPath>bin\Release\</OutputPath>
-    <DocumentationFile>TNTTracking.xml</DocumentationFile>
+    <DocumentationFile>Shipping Tracker.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
    <Prefer32Bit>false</Prefer32Bit>
  </PropertyGroup>
@@ -71,7 +71,7 @@
    <DefineDebug>true</DefineDebug>
    <DefineTrace>true</DefineTrace>
    <OutputPath>bin\x64\Debug\</OutputPath>
-    <DocumentationFile>TNTTracking.xml</DocumentationFile>
+    <DocumentationFile>Shipping Tracker.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
    <DebugType>full</DebugType>
    <PlatformTarget>x64</PlatformTarget>
@@ -80,7 +80,7 @@
  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
    <DefineTrace>true</DefineTrace>
    <OutputPath>bin\x64\Release\</OutputPath>
-    <DocumentationFile>TNTTracking.xml</DocumentationFile>
+    <DocumentationFile>Shipping Tracker.xml</DocumentationFile>
    <Optimize>true</Optimize>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
    <DebugType>pdbonly</DebugType>
@@ -112,12 +112,12 @@
    <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
  </PropertyGroup>
  <PropertyGroup>
-    <SignManifests>true</SignManifests>
+    <SignManifests>false</SignManifests>
  </PropertyGroup>
  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'cv|AnyCPU'">
    <DefineTrace>true</DefineTrace>
    <OutputPath>bin\cv\</OutputPath>
-    <DocumentationFile>TNTTracking.xml</DocumentationFile>
+    <DocumentationFile>Shipping Tracker.xml</DocumentationFile>
    <Optimize>true</Optimize>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
    <DebugType>pdbonly</DebugType>
@@ -126,7 +126,7 @@
  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'cv|x64'">
    <DefineTrace>true</DefineTrace>
    <OutputPath>bin\x64\cv\</OutputPath>
-    <DocumentationFile>TNTTracking.xml</DocumentationFile>
+    <DocumentationFile>Shipping Tracker.xml</DocumentationFile>
    <Optimize>true</Optimize>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
    <DebugType>pdbonly</DebugType>
@@ -172,7 +172,10 @@
    <Compile Include="Form2.vb">
      <SubType>Form</SubType>
    </Compile>
-    <Compile Include="My Project\About.vb">
+    <Compile Include="Form3.Designer.vb">
+      <DependentUpon>Form3.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Form3.vb">
      <SubType>Form</SubType>
    </Compile>
    <Compile Include="My Project\AssemblyInfo.vb" />
@@ -199,6 +202,9 @@
    <EmbeddedResource Include="Form2.resx">
      <DependentUpon>Form2.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="Form3.resx">
+      <DependentUpon>Form3.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="My Project\Resources.resx">
      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
@@ -222,6 +228,7 @@
  </ItemGroup>
  <ItemGroup>
    <Content Include="TNT.ico" />
+    <None Include="WindowsXPCriticalStop.wav" />
  </ItemGroup>
  <ItemGroup>
    <BootstrapperPackage Include=".NETFramework,Version=v4.8">
--- a/HelloWorld/WindowsXPCriticalStop.wav
+++ b/HelloWorld/WindowsXPCriticalStop.wav