ウェブページは非同期に

Question

を読み込みが完了しません下記のコードを参照してください：

Public Shared Async Sub AsyncMain() 
     Dim a As AsyncronousTest = New AsyncronousTest 
     Dim task As Task = a.LoadWebpage() 

     Do While 1 = 1 
      If a.bool = True Then 
       Exit Do 
      End If 
     Loop 
     MsgBox("test") 
    End Sub 

Public Class AsyncronousTest 

    Public bool As Boolean = False 

    Public Sub Callback() 
     bool = True 
    End Sub 

    Public Async Function LoadWebpage() As Task(Of Integer) 
     Dim webC As WebClient = New WebClient() 
     Dim newUri As Uri = New Uri("http://webpagetocache") 
     Dim task1 As Task = webC.DownloadStringTaskAsync(newUri) 
     Await task1 
     Callback() 
     Return 1 
    End Function 
End Class 

msgbox("test")に達することはありません。どうして？

この目的は、asp.netを使用してキャッシュできるように夜間にWebページを読み込むことです。

Answer 1

LoadWebPageを呼び出していますが、タスクは返されていますが、このタスクは実行されないため、LoadWebPage内の実際のコードは決して実行されません。 タスクを実行して実行する必要があります。

Public Async Sub AsyncMain() 
    Dim a As AsyncronousTest = New AsyncronousTest 
    Dim task As Task(Of Integer) = a.LoadWebpage() ' Here you generate the task 

    Dim actualResult = Await task ' Here you perform the task 

    Do While 1 = 1 
     If a.bool = True Then 
      Exit Do 
     End If 
    Loop 

    MsgBox("test") 
End Sub