diff --git a/HelloWorld/Form1.Designer.vb b/HelloWorld/Form1.Designer.vb index 425a998..f511482 100644 --- 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. 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 diff --git a/HelloWorld/Form1.resx b/HelloWorld/Form1.resx index a997aca..9c16103 100644 --- a/HelloWorld/Form1.resx +++ b/HelloWorld/Form1.resx @@ -120,6 +120,9 @@ 17, 17 + + 132, 17 + diff --git a/HelloWorld/Form1.vb b/HelloWorld/Form1.vb index cb8944a..38b40a2 100644 --- 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 diff --git a/HelloWorld/Form3.Designer.vb b/HelloWorld/Form3.Designer.vb index 06bb095..7197b39 100644 --- 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 diff --git a/HelloWorld/Form3.resx b/HelloWorld/Form3.resx index 60d051e..5cd09b6 100644 --- a/HelloWorld/Form3.resx +++ b/HelloWorld/Form3.resx @@ -117,9 +117,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - True - diff --git a/HelloWorld/Form3.vb b/HelloWorld/Form3.vb index c9b4abb..118ceb4 100644 --- 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 \ No newline at end of file diff --git a/HelloWorld/My Project/About.vb b/HelloWorld/My Project/About.vb deleted file mode 100644 index a9f1f9f..0000000 --- a/HelloWorld/My Project/About.vb +++ /dev/null @@ -1,3 +0,0 @@ -Public Class About - -End Class diff --git a/HelloWorld/My Project/AssemblyInfo.vb b/HelloWorld/My Project/AssemblyInfo.vb index 765c7c3..b23bad6 100644 --- a/HelloWorld/My Project/AssemblyInfo.vb +++ b/HelloWorld/My Project/AssemblyInfo.vb @@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices - + @@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - - + + diff --git a/HelloWorld/My Project/Resources.Designer.vb b/HelloWorld/My Project/Resources.Designer.vb index 983363f..18e4298 100644 --- a/HelloWorld/My Project/Resources.Designer.vb +++ b/HelloWorld/My Project/Resources.Designer.vb @@ -59,14 +59,5 @@ Namespace My.Resources resourceCulture = value End Set End Property - - ''' - ''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. - ''' - Friend ReadOnly Property WindowsXPCriticalStop() As System.IO.UnmanagedMemoryStream - Get - Return ResourceManager.GetStream("WindowsXPCriticalStop", resourceCulture) - End Get - End Property End Module End Namespace diff --git a/HelloWorld/My Project/Resources.resx b/HelloWorld/My Project/Resources.resx index 47e677a..d801fd5 100644 --- a/HelloWorld/My Project/Resources.resx +++ b/HelloWorld/My Project/Resources.resx @@ -118,7 +118,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + \ No newline at end of file diff --git a/HelloWorld/TNT Tracking Link.vbproj b/HelloWorld/TNT Tracking Link.vbproj index b3714eb..6daa8c1 100644 --- a/HelloWorld/TNT Tracking Link.vbproj +++ b/HelloWorld/TNT Tracking Link.vbproj @@ -228,7 +228,6 @@ - diff --git a/HelloWorld/WindowsXPCriticalStop.wav b/HelloWorld/WindowsXPCriticalStop.wav deleted file mode 100644 index 1be1479..0000000 Binary files a/HelloWorld/WindowsXPCriticalStop.wav and /dev/null differ diff --git a/exe/1.0.6.0/Shipping Tracker.exe b/exe/1.0.6.0/Shipping Tracker.exe new file mode 100644 index 0000000..4f18781 Binary files /dev/null and b/exe/1.0.6.0/Shipping Tracker.exe differ