bsncubed/ShippingTracker
1
0
Fork 0
Code Issues Pull Requests Releases 3 Wiki Activity

Delete HelloWorld/Form1.vb

Browse Source
This commit is contained in:
Ben Nicholson
2024-06-26 23:35:38 +10:00
parent 1f46c622e7
commit d6992862ac
1 changed files with 0 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
HelloWorld/Form1.vb
View File

@@ -1,40 +0,0 @@
Imports System.Net
Imports System.Net.Http
Imports System.Security.Cryptography.X509Certificates
Imports System.Text
Public Class Form1
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles btnClickThis.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="
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="
End Sub
Private Sub btnFedexShipping_Click(sender As Object, e As EventArgs) Handles btnFedexShipping.Click
txtBaseURL.Text = "https://www.fedex.com/fedextrack/?trknbr="
End Sub
End Class