Skyhook API with VB.net

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 = "&lt;LocationRQ xmlns='https://skyhookwireless.com/wps/2005' version='2.6' street-address-lookup='full'&gt;"
        XML &amp;= "&lt;authentication version='2.0'&gt;"
        If True Then
            XML &amp;= "&lt;key key='PUTYOUR-KEYHERE' username='name'/&gt;"
        Else
            XML &amp;= "&lt;simple&gt;"
            XML &amp;= "&lt;username&gt;beta&lt;/username&gt;"
            XML &amp;= "&lt;realm&gt;js.loki.com&lt;/realm&gt;"
            XML &amp;= "&lt;/simple&gt;"
        End If
        XML &amp;= "&lt;/authentication&gt;"
        XML &amp;= "&lt;access-point&gt;"
        XML &amp;= "&lt;mac&gt;10DA438900E0&lt;/mac&gt;"
        XML &amp;= "&lt;signal-strength&gt;-50&lt;/signal-strength&gt;"
        XML &amp;= "&lt;/access-point&gt;"
        XML &amp;= "&lt;/LocationRQ&gt;"
        'Dim postData As String = "Content-Length: " &amp; XMLExploit.Length &amp; vbCrLf &amp; vbCrLf &amp; 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 &amp;= responseFromServer
        ' Clean up the streams.
        reader.Close()
        dataStream.Close()
        response.Close()
    End Sub
End Class

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 comment

Cancel reply