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.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