Changed the workflow to remove the copy to clipboard button and hid the URL text box.

Copied indicator has been added. Added Update button to the About form. Fix the spinny boy on the About page Removed the sound the played
2025-09-18 21:42:27 +10:00
parent 0c6ded6b61
commit 1c4b41d474
13 changed files with 76 additions and 43 deletions
--- a/HelloWorld/Form1.Designer.vb
+++ b/HelloWorld/Form1.Designer.vb
@@ -22,6 +22,7 @@ Partial Class Form1
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.btnClickThis = New System.Windows.Forms.Button()
        Me.lblHelloWorld = New System.Windows.Forms.Label()
@@ -34,12 +35,14 @@ Partial Class Form1
        Me.btnDHLShipping = New System.Windows.Forms.Button()
        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
        Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.lblCoppiedNotifyer = New System.Windows.Forms.Label()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        Me.MenuStrip1.SuspendLayout()
        Me.SuspendLayout()
        '
        'btnClickThis
        '
-        Me.btnClickThis.Location = New System.Drawing.Point(12, 148)
+        Me.btnClickThis.Location = New System.Drawing.Point(11, 203)
        Me.btnClickThis.Name = "btnClickThis"
        Me.btnClickThis.Size = New System.Drawing.Size(138, 23)
        Me.btnClickThis.TabIndex = 0
@@ -49,7 +52,7 @@ Partial Class Form1
        'lblHelloWorld
        '
        Me.lblHelloWorld.AutoSize = True
-        Me.lblHelloWorld.Location = New System.Drawing.Point(9, 101)
+        Me.lblHelloWorld.Location = New System.Drawing.Point(8, 161)
        Me.lblHelloWorld.Name = "lblHelloWorld"
        Me.lblHelloWorld.Size = New System.Drawing.Size(99, 13)
        Me.lblHelloWorld.TabIndex = 1
@@ -57,7 +60,7 @@ Partial Class Form1
        '
        'txtFinalUrl
        '
-        Me.txtFinalUrl.Location = New System.Drawing.Point(12, 121)
+        Me.txtFinalUrl.Location = New System.Drawing.Point(12, 177)
        Me.txtFinalUrl.Name = "txtFinalUrl"
        Me.txtFinalUrl.ReadOnly = True
        Me.txtFinalUrl.Size = New System.Drawing.Size(652, 20)
@@ -120,7 +123,7 @@ Partial Class Form1
        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.Size = New System.Drawing.Size(587, 24)
        Me.MenuStrip1.TabIndex = 13
        Me.MenuStrip1.Text = "MenuStrip1"
        '
@@ -130,11 +133,24 @@ Partial Class Form1
        Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(52, 20)
        Me.AboutToolStripMenuItem.Text = "About"
        '
+        'lblCoppiedNotifyer
+        '
+        Me.lblCoppiedNotifyer.AutoSize = True
+        Me.lblCoppiedNotifyer.Location = New System.Drawing.Point(13, 100)
+        Me.lblCoppiedNotifyer.Name = "lblCoppiedNotifyer"
+        Me.lblCoppiedNotifyer.Size = New System.Drawing.Size(92, 13)
+        Me.lblCoppiedNotifyer.TabIndex = 14
+        Me.lblCoppiedNotifyer.Text = "lblCoppiedNotifyer"
+        '
+        'Timer1
+        '
+        '
        '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, 181)
+        Me.ClientSize = New System.Drawing.Size(587, 122)
+        Me.Controls.Add(Me.lblCoppiedNotifyer)
        Me.Controls.Add(Me.btnDHLShipping)
        Me.Controls.Add(Me.btnFedexShipping)
        Me.Controls.Add(Me.Button1)
@@ -168,4 +184,6 @@ Partial Class Form1
    Friend WithEvents btnDHLShipping As Button
    Friend WithEvents MenuStrip1 As MenuStrip
    Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents lblCoppiedNotifyer As Label
+    Friend WithEvents Timer1 As Timer
 End Class
--- a/HelloWorld/Form1.resx
+++ b/HelloWorld/Form1.resx
@@ -120,6 +120,9 @@
  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>132, 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>
--- a/HelloWorld/Form1.vb
+++ b/HelloWorld/Form1.vb
@@ -1,20 +1,16 @@

+Imports System.Media
 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
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        lblCoppiedNotifyer.Text = ""
+        Timer1.Stop()
    End Sub
-
-
    Private Sub btnEditBaseUrl_Click(sender As Object, e As EventArgs) Handles btnEditBaseUrl.Click
        Dim rawRMA As String
        rawRMA = txtRMA.Text
@@ -22,6 +18,10 @@ Public Class Form1
        Dim encodedRMA As String = Uri.EscapeDataString(rawRMA)

        txtFinalUrl.Text = "https://www.tnt.com/express/en_au/site/shipping-tools/tracking.html?searchType=ref&cons=" & encodedRMA
+        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
+        lblCoppiedNotifyer.Text = "Copied!"
+        Timer1.Interval = 5000
+        Timer1.Start()
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
@@ -31,6 +31,10 @@ Public Class Form1
        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
+        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
+        lblCoppiedNotifyer.Text = "Copied!"
+        Timer1.Interval = 5000
+        Timer1.Start()
    End Sub

    Private Sub btnFedexShipping_Click(sender As Object, e As EventArgs) Handles btnFedexShipping.Click
@@ -40,6 +44,10 @@ Public Class Form1
        Dim encodedRMA As String = Uri.EscapeDataString(rawRMA)

        txtFinalUrl.Text = "https://www.fedex.com/fedextrack/?trknbr=" & encodedRMA
+        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
+        lblCoppiedNotifyer.Text = "Copied!"
+        Timer1.Interval = 5000
+        Timer1.Start()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnDHLShipping.Click
@@ -49,15 +57,19 @@ Public Class Form1
        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
-
+        My.Computer.Clipboard.SetText(txtFinalUrl.Text)
+        lblCoppiedNotifyer.Text = "Copied!"
+        Timer1.Interval = 5000
+        Timer1.Start()
    End Sub

    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
        Dim box = New Form3()
        box.Show()
    End Sub
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        lblCoppiedNotifyer.Text = ""
+    End Sub
 End Class

--- a/HelloWorld/Form3.Designer.vb
+++ b/HelloWorld/Form3.Designer.vb
@@ -24,25 +24,35 @@ Partial Class Form3
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form3))
        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btnUpdates = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.AutoSize = True
-        Me.Label1.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label1.Cursor = System.Windows.Forms.Cursors.Arrow
        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.Text = "Verson 1.0.6.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
+        '
+        'btnUpdates
+        '
+        Me.btnUpdates.Location = New System.Drawing.Point(87, 66)
+        Me.btnUpdates.Name = "btnUpdates"
+        Me.btnUpdates.Size = New System.Drawing.Size(75, 23)
+        Me.btnUpdates.TabIndex = 2
+        Me.btnUpdates.Text = "Updates"
+        Me.btnUpdates.UseVisualStyleBackColor = 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.ClientSize = New System.Drawing.Size(246, 101)
+        Me.Controls.Add(Me.btnUpdates)
        Me.Controls.Add(Me.Label1)
        Me.ForeColor = System.Drawing.Color.Black
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
@@ -58,4 +68,5 @@ Partial Class Form3
    End Sub

    Friend WithEvents Label1 As Label
+    Friend WithEvents btnUpdates As Button
 End Class
--- a/HelloWorld/Form3.resx
+++ b/HelloWorld/Form3.resx
@@ -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="$this.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</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>
--- a/HelloWorld/Form3.vb
+++ b/HelloWorld/Form3.vb
@@ -1,5 +1,10 @@
 Public Class Form3
-    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnUpdates.Click
+        Dim webAddress As String = "https://gitea.apointless.space/bsncubed/ShippingTracker/releases"
+        Process.Start(webAddress)
+    End Sub
+
+    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
 End Class
--- a/Project/About.vb
+++ b/Project/About.vb
@@ -1,3 +0,0 @@
-Public Class About
-
-End Class
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyTitle("Shipping Tracker")>
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
-<Assembly: AssemblyProduct("TNT Tracking Link Creator")>
+<Assembly: AssemblyProduct("Shipping Tracker")>
 <Assembly: AssemblyCopyright("Copyright © 2025 Ben Nicholson")>
 <Assembly: AssemblyTrademark("")>

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

-<Assembly: AssemblyVersion("1.0.5.3")>
-<Assembly: AssemblyFileVersion("1.0.5.3")>
+<Assembly: AssemblyVersion("1.0.6.0")>
+<Assembly: AssemblyFileVersion("1.0.6.0")>
 <Assembly: NeutralResourcesLanguage("en-AU")>
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -59,14 +59,5 @@ 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
@@ -118,7 +118,7 @@
    <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">
+	<!--  <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>
+  </data> -->
 </root>
--- a/HelloWorld/TNT
+++ b/HelloWorld/TNT
@@ -228,7 +228,6 @@
  </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
--- a/exe/1.0.6.0/Shipping
+++ b/exe/1.0.6.0/Shipping