Imports System.IO
Imports System.Net
Imports System.Text

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Sub SendHTTPSPost()
        ' Create a request using a URL that can receive a post. 
        Dim request As WebRequest = WebRequest.Create("")
        'Dim request As WebRequest = WebRequest.Create("")
        ' Set the Method property of the request to POST.
        request.Method = "POST"
        ' Create POST data and convert it to a byte array.
        Dim XML As String
        XML = "<LocationRQ xmlns='' version='2.6' street-address-lookup='full'>"
        XML &= "<authentication version='2.0'>"
        If True Then
            XML &= "<key key='PUTYOUR-KEYHERE' username='name'/>"
            XML &= "<simple>"
            XML &= "<username>beta</username>"
            XML &= "<realm></realm>"
            XML &= "</simple>"
        End If
        XML &= "</authentication>"

        XML &= "<access-point>"
        XML &= "<mac>10DA438900E0</mac>"
        XML &= "<signal-strength>-50</signal-strength>"
        XML &= "</access-point>"
        XML &= "</LocationRQ>"

        'Dim postData As String = "Content-Length: " & XMLExploit.Length & vbCrLf & vbCrLf & XMLExploit
        Dim postData As String = XML
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
        ' Set the ContentType property of the WebRequest.
        request.ContentType = "text/xml"
        ' Set the ContentLength property of the WebRequest.
        request.ContentLength = byteArray.Length
        ' Get the request stream.
        Dim dataStream As Stream = request.GetRequestStream()
        ' Write the data to the request stream.
        dataStream.Write(byteArray, 0, byteArray.Length)
        ' Close the Stream object.
        ' Get the response.
        Dim response As WebResponse = request.GetResponse()
        ' Display the status.
        Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
        ' Get the stream containing content returned by the server.
        dataStream = response.GetResponseStream()
        ' Open the stream using a StreamReader for easy access.
        Dim reader As New StreamReader(dataStream)
        ' Read the content.
        Dim responseFromServer As String = reader.ReadToEnd()
        ' Display the content.
        RichTextBox1.Text &= responseFromServer
        ' Clean up the streams.
    End Sub

End Class

Leave a Reply

Your email address will not be published. Required fields are marked *