Simple vb.net function to simply obtain a shortened url

Since I'm already sending SMS, I needed to simply figure out how to do the url shortening. Below is vb.net designed to simply get a shortened url.

 Public Class ShortenedUrl
     Public Property ShortUrl As String
 End Class

 <FunctionName("SendSMSUrlShortener")>
 Async Function Run(
 <HttpTrigger(AuthorizationLevel.Anonymous, "get", "post", Route:=Nothing)> ByVal urltoshorten As String) As Task(Of String)
     Dim client = New HttpClient()
     Dim requestData = New With {Key .Url = urltoshorten}
     Dim requestBody = JsonSerializer.Serialize(requestData)
     Dim httpContent = New StringContent(requestBody, Encoding.UTF8, "application/json")
     Dim response = Task.Run(Function() client.PostAsync(urlshortener, httpContent))
     response.Wait()
     Dim content = Await response.Result.Content.ReadAsStringAsync()
     Dim url As String = ""
     Dim data = System.Text.Json.JsonSerializer.Deserialize(Of ShortenedUrl)(content)
     url = data.ShortUrl
     Return url
 End Function

Document Details

⚠ Do not edit this section. It is required for learn.microsoft.com ➟ GitHub issue linking.

ID: 5a4a91cb-6636-83ac-3c65-21c89f177c2a
Version Independent ID: ed1bd43a-0e62-2f79-29d4-ac0671d010a2
Content: Tutorial - Send shortener links through SMS with Azure Communication Services - An Azure Communication Services tutorial
Content Source: articles/communication-services/tutorials/sms-url-shortener.md
Service: azure-communication-services
Sub-service: sms
GitHub Login: @tophpalmer
Microsoft Alias: chpalm

MicrosoftDocs / azure-docs

Simple vb.net function to simply obtain a shortened url #123180

Document Details