Imports System

Imports System.Net

Imports Newtonsoft.Json

Public Module Module1

    Sub Main()

        Console.Write(GetAccountInfoFromApi())

    End Sub

    Private Function GetAccountInfoFromApi() As String

        Dim accountInformationUrl As String = "https://cutt.ly/api/api.php?key=579f0be4cdfa11b55d3106e1e314dfeca774b&short=www.learn-php.org/en/Arrays_with_keys"

        Dim webClient As WebClient = New WebClient()

​

        Dim retOutResult As String

        retOutResult = "Error"

        Dim retString As String

​

        Try

            retString = webClient.DownloadString(New Uri(accountInformationUrl))

            Dim obj As Container

            obj = JsonConvert.DeserializeObject(Of Container)(retString)

            If obj IsNot Nothing And obj.url IsNot Nothing Then

                If obj.url.status = 7 Then

                    retOutResult = obj.url.shortLink

                End If

            End If

        Catch ex As WebException

            If ex.Status = WebExceptionStatus.ProtocolError AndAlso ex.Response IsNot Nothing Then

                Dim resp = DirectCast(ex.Response, HttpWebResponse)

                If resp.StatusCode = HttpStatusCode.NotFound Then

                    ' HTTP 404

                    'other steps you want here

                End If

            End If

            'throw any other exception - this should not occur

            Throw

        End Try

        Return retOutResult

    End Function

    Public Class JSON_result

        Public status As Integer

        Public fullLink As String

        Public [date] As String

        Public shortLink As String

        Public title As String

    End Class

    Public Class Container

        Public url As JSON_result

    End Class

End Module