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
        SendHTTPSPost()
    End Sub
    Sub SendHTTPSPost()
        ' Create a request using a URL that can receive a post. 
        Dim request As WebRequest = WebRequest.Create("https://api.skyhookwireless.com/wps2/location")
        'Dim request As WebRequest = WebRequest.Create("https://global.skyhookwireless.com/wps2/location")
        ' 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='https://skyhookwireless.com/wps/2005' version='2.6' street-address-lookup='full'>"
        XML &= "<authentication version='2.0'>"
        If True Then
            XML &= "<key key='PUTYOUR-KEYHERE' username='name'/>"
        Else
            XML &= "<simple>"
            XML &= "<username>beta</username>"
            XML &= "<realm>js.loki.com</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.
        dataStream.Close()
        ' 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.
        reader.Close()
        dataStream.Close()
        response.Close()
    End Sub

End Class

Leave a Reply

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