bsncubed
1c4b41d474
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
76 lines
2.6 KiB
VB.net
76 lines
2.6 KiB
VB.net
|
|
Imports System.Media
|
|
Imports System.Net
|
|
Imports System.Net.Http
|
|
Imports System.Security.Cryptography.X509Certificates
|
|
Imports System.Text
|
|
|
|
|
|
Public Class Form1
|
|
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
|
|
|
|
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
|
|
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
|
|
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
|
|
Dim rawRMA As String
|
|
rawRMA = txtRMA.Text
|
|
|
|
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
|
|
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
|
|
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
|
|
|