Let us examine this simple program. We first add an "Imports System.Net.Http" statement at the top. In Main we create a Task.
Imports System.Net.Http
Module Module1
Sub Main()
' Create new Task.
' ... Use AddressOf to reference a method.
Dim t As Task = New Task(AddressOf DownloadPageAsync)
' Start the task.
t.Start()
' Print a message as the page downloads.
Console.WriteLine(
"Downloading page...")
Console.ReadLine()
End Sub
Async Sub DownloadPageAsync()
Dim page As String =
"http://en.wikipedia.org/"
' Use HttpClient in Using-statement.
' ... Use GetAsync to get the page data.
Using client As HttpClient = New HttpClient()
Using response As HttpResponseMessage = Await client.GetAsync(page)
Using content As HttpContent = response.Content
' Get contents of page as a String.
Dim result As String = Await content.ReadAsStringAsync()
' If data exists, print a substring.
If result IsNot Nothing And result.Length > 50 Then
Console.WriteLine(result.Substring(0, 50) +
"...")
End If
End Using
End Using
End Using
End Sub
End Module
Downloading page...
<!DOCTYPE html>
<html lang=
"en" dir=
"ltr" class="c...