Webseite nie fertig geladen asynchron

Question

Bitte beachten Sie den Code unten:

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") nie erreicht wird. Warum?

Der Zweck ist, eine Webseite über Nacht zu laden, damit sie mit asp.net zwischengespeichert werden kann.

Answer 1

Sie rufen LoadWebPage und es gibt die Aufgabe zurück, aber diese Aufgabe wird nie ausgeführt, daher wird der eigentliche Code innerhalb LoadWebPage nie ausgeführt. Sie müssen die Aufgabe ausführen, um sie auszuführen.

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