diff --git a/HelloWorld/Form1.vb b/HelloWorld/Form1.vb deleted file mode 100644 index 9c11ac3..0000000 --- a/HelloWorld/Form1.vb +++ /dev/null @@ -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 -