Imports System

Imports System.Net

Imports Newtonsoft.Json

​

Public Module Module1

    Public Sub Main()

        'variables

        Dim Table As String = "BucketList"

        Dim InsertKey As String = "3InDNvlJnYzSGAHRjT2tUEB4MRygJtuV"

        Dim DeleteKey As String = "LqNQuiJ5Eg8FSzWBJZj2FLO0n0PDrM7L"

        Dim InsertUrl = String.Format("https://mysafeinfo.com/wick/{0}/tables/{1}", InsertKey, Table)

        Dim PostResult As New PostResult 

        Dim WickResult As New WickResult

        Dim BucketList as New BucketList() With { .Description = "Run a mini-marathon", .Notes = "2016 OneAmerica 500 Festival Mini-Marathon", .Date = "May 2016" }

        'use Json.NET (Newtonsoft.Json) to serialize the data object

        'https://www.nuget.org/packages/Newtonsoft.Json

        Dim Data = JsonConvert.SerializeObject(BucketList)

        'post the data to the MySafeInfo WICK API

        PostResult = SubmitRequest(Url:=InsertUrl, Data:=Data)

        'use Json.NET (Newtonsoft.Json) to deserialize json result into a strongly typed data object

        'https://www.nuget.org/packages/Newtonsoft.Json

        If PostResult.Success Then

            WickResult = JsonConvert.DeserializeObject(Of WickResult)(PostResult.Message)

        End If

        'debug

        Console.WriteLine(string.Format("WICK Input: {0}", Data))

        Console.WriteLine(string.Format("WICK Output: {0}", PostResult.Message))

        Console.WriteLine(string.Format("ID: {0}", WickResult.ID))

        Console.WriteLine(string.Format("Success: {0}", WickResult.Success))

        Console.WriteLine(string.Format("Message: {0}", WickResult.Message))

        'just for fun we are going to delete the record to show how simple a delete is

        If WickResult.Success Then

            Console.WriteLine(string.Format("Delete: {0}", SubmitRequest(Url:=String.Format("https://mysafeinfo.com/wick/{0}/tables/{1}/{2}", DeleteKey, Table, WickResult.ID), Method:="DELETE").Message))

        End If

    End Sub

    Public Function SubmitRequest(ByVal Url As String, Optional ByVal Data As String = "", Optional Method As String = "POST", Optional ContentType As String = "application/json; charset=utf-8") As PostResult

        'variables

        Dim Result As New PostResult

        Try

            'web client

            Using Client as New WebClient()

                'content type

                Client.Headers(HttpRequestHeader.ContentType) = ContentType

                'post data and get result

                Result.Message = Client.UploadString(address:= Url, method:= Method, data:= Data)

                Result.Success = True

            End Using

        Catch ex As Exception

            Result.Message = ex.Message

        End Try

​

        'return

        Return Result

    End Function

​

    'helper classes

    Public Class BucketList

        Public Property Description As String = String.Empty

        Public Property Notes As String = String.Empty

        Public Property [Date] As String = String.Empty

    End Class

​

    Public Class PostResult

        Public Property Success As Boolean = False

        Public Property Message As String = String.Empty

    End Class

​

    Public Class WickResult

        Public Property ID As Integer = 0

        Public Property Success As Boolean = False

        Public Property Message As String = String.Empty

    End Class

End Module