Imports System

Imports System.IO

Imports System.Net

Imports Newtonsoft.Json.Linq

Imports System.Text

Imports System.Collections.Generic

Imports Newtonsoft.Json

​

Public Module Module1

    Public Class Login

        Public Property username As String

        Public Property password As String

    End Class

    Public Class Cheat

        Public Property gameStatus As Boolean

        Public Property cheatInstalled As Boolean

        Public Property cheatStatus As Boolean

    End Class

    Public Sub Main()

​

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

        request.Method = "POST"

        Dim postData As Login

        postData = New Login With {.username = "antoleb14", .password = "katruvi1440"}

        Dim serializedResult = JsonConvert.SerializeObject(postData)

        Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes(serializedResult)

        request.ContentType = "application/json"

        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 token As String = Nothing

        dim message 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("token")) Then

                token = value

                Console.WriteLine(token)

            ElseIf (key.Equals("success")) Then

                success = value

            ElseIf (key.Equals("message")) Then

                message = value

            End If

        Next

​

        if success then

            update(token)

        else

            ' print error authenticating

        end if

​

        disconnect(token)               

        reader.Close()

        dataStream.Close()

        response.Close()

    End Sub

​

    private sub update(token)

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

        request.Method = "POST"

        Dim postData As Cheat

        postData = New Cheat With {.cheatStatus = true, .cheatInstalled = true, .gameStatus = true}

        Dim serializedResult = JsonConvert.SerializeObject(postData)

        dim gameStatus as boolean = true

        dim cheatInstalled as boolean = false

        dim cheatStatus as boolean = true

        request.Headers.Add("x-access-token", token)

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

        request.ContentType = "application/json"

        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 responseContent As JObject = JObject.Parse(responseFromServer)

    console.WriteLine("xx")

    Dim result As new Dictionary(of string, string)

        dim message as string = nothing

        dim success as boolean

    For Each item In responseContent

            Dim key As String = item.Key

            Dim value = item.Value

            If (key.Equals("result")) Then

            for each element in ctype(value, jObject)

                result.add(element.key, element.value)

            next

            ElseIf (key.Equals("success")) Then

                success = value

            ElseIf (key.Equals("message")) Then

                message = value

            End If

        Next

        if success then

             'show the message and the result 

        for each v  in result

            console.WriteLine("key:{0},value:{1}", v.key, v.value)

        next

        else

            'show error

    console.WriteLine(message)

        end if

    end sub

    private sub disconnect(token)

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

        request.Method = "POST"

        request.Headers.Add("x-access-token", token)

        request.ContentType = "application/json"

        Dim dataStream As Stream = request.GetRequestStream()

​

        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 responseContent As JObject = JObject.Parse(responseFromServer)

        Dim result As new Dictionary(of string, string)

        dim message as string = nothing

        dim success as boolean

        For Each item In responseContent

            Dim key As String = item.Key

            Dim value = item.Value

            If (key.Equals("result")) Then

            for each element in ctype(value, jObject)

                result.add(element.key, element.value)

            next

            ElseIf (key.Equals("success")) Then

                success = value

            ElseIf (key.Equals("message")) Then

                message = value

            End If

        Next

        if success then

             'show the message and the result 

        for each v  in result

            console.WriteLine("key:{0},value:{1}", v.key, v.value)

        next

        else

            'show error

        console.WriteLine(message)

        end if

    end sub 

End Module