Imports System

Imports System.IO

Imports System.Net

Imports Newtonsoft.Json.Linq

Imports System.Text

Public Module Module1

    Public Sub Main()

        Dim request As WebRequest = WebRequest.Create("https://anti-cheat.fvpa-esport.com/api/authenticate")

        request.Method = "POST"

        Dim postData As String

        dim user as String = "factest18"

        dim pass as string = "i2PX#x%1"

        postData = "username=" & user & "&password=" & pass

        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)

        request.ContentType = "application/x-www-form-urlencoded"

        request.ContentLength = byteArray.Length

        Dim dataStream As Stream = request.GetRequestStream()

        dataStream.Write(byteArray, 0, byteArray.Length)

        dataStream.Close()

        Dim response As WebResponse = request.GetResponse()

        Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)

        dataStream = response.GetResponseStream()

        Dim reader As New StreamReader(dataStream)

        Dim responseFromServer As String = reader.ReadToEnd()

        Dim result As JObject = JObject.Parse(responseFromServer)

​

        dim message as string

        dim token as string = nothing

        dim success as boolean

        For Each item in result

            dim key as string = item.Key

            dim value = item.Value

            if (key.Equals("message"))

                message = value

            elseif (key.Equals("token"))

                token = value

            elseif (key.Equals("success"))

                success = value

            end if

        Next

    Console.WriteLine(success)

    Console.WriteLine(message)

    Console.WriteLine(token)

​

        reader.Close()

        dataStream.Close()

        response.Close()

    End Sub

End Module