ASP.net VB Async WaitingForActivation error

Hi, I'm using this code below. Not getting ant try/catch errors but am getting this:

"Id = 9, Status = WaitingForActivation {1}, Method = "{null}", Result = "{Not yet computed}"

I've been stuck for many hours and can't seem to figure this out. I hope someone can help or provide a good example.
My task is to get MS oAuth to return a token so I can access an API.

Thank You

Code:

---

Public Class Tforce
    Inherits System.Web.UI.Page

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles form1.Load
        Dim Test = AsyncCall(Nothing)

    End Sub

    Protected Async Function AsyncCall(ByVal e As System.EventArgs) As Task

        Dim clientId As String = "4e502cbc-a55f-4341-a498-69cfbe19ee7b"
        Dim clientSecret As String = "My Secret goes here "
        Dim credentials = String.Format("{0}:{1}", clientId, clientSecret)
        Dim headerValue = Convert.ToBase64String(Encoding.UTF8.GetBytes(credentials))

        Dim content = New FormUrlEncodedContent(New Dictionary(Of String, String) From {
                                            {"client_id", clientId},
                                            {"client_secret", clientSecret},
                                            {"grant_type", "client_crdentials"},
                                            {"scope", "https://tffproduction.onmicrosoft.com/04cc9749-dbe5-4914-b262-d866b907756b/.default"}
                                            })

        Dim requestMessage = New HttpRequestMessage(HttpMethod.Post, "https://login.microsoftonline.com/ca4f5969-c10f-40d4-8127-e74b691f95de/oauth2/v2.0/token")
        requestMessage.Headers.Authorization = New AuthenticationHeaderValue("Basic", headerValue)
        requestMessage.Content = content

        Dim responsemessage As HttpResponseMessage

        Dim client As New HttpClient

        Try
            responsemessage = Await client.SendAsync(requestMessage)
        Catch ex As Exception
            Dim showerror As String = ex.Message
        End Try


    End Function


End Class

---

Dim Test = await AsyncCall(Nothing)

Thanks you Black river but now I get
Dim Test = await AsyncCall(Nothing) Expression does not a value produce a value :(

You have a function that currently does not return anything. A function needs to return something..In your case, a Task(of something)...

So in this case, you can just return your response content...

Code:

---


Protected Async Function AsyncCall(ByVal e As System.EventArgs) As Task(Of String)

    Dim clientId As String = "4e502cbc-a55f-4341-a498-69cfbe19ee7b"
    Dim clientSecret As String = "My Secret goes here "
    Dim credentials = String.Format("{0}:{1}", clientId, clientSecret)
    Dim headerValue = Convert.ToBase64String(Encoding.UTF8.GetBytes(credentials))

    Dim content = New FormUrlEncodedContent(New Dictionary(Of String, String) From {
                                        {"client_id", clientId},
                                        {"client_secret", clientSecret},
                                        {"grant_type", "client_credentials"},
                                        {"scope", "https://tffproduction.onmicrosoft.com/04cc9749-dbe5-4914-b262-d866b907756b/.default"}
                                        })

    Dim requestMessage = New HttpRequestMessage(HttpMethod.Post, "https://login.microsoftonline.com/ca4f5969-c10f-40d4-8127-e74b691f95de/oauth2/v2.0/token")
    requestMessage.Headers.Authorization = New AuthenticationHeaderValue("Basic", headerValue)
    requestMessage.Content = content

    Dim responsemessage As HttpResponseMessage

    Dim client As New HttpClient

    Try
        responsemessage = Await client.SendAsync(requestMessage)
        ' Check if the response is successful
        If responsemessage.IsSuccessStatusCode Then
            Dim responseContent As String = Await responsemessage.Content.ReadAsStringAsync()
            ' Return the response content
            Return responseContent
        Else
            ' If response is not successful, return an error message or handle accordingly
            Return "Error: " & responsemessage.StatusCode.ToString()
        End If
    Catch ex As Exception
        ' If an exception occurs during the request, return the error message
        Return "Error: " & ex.Message
    End Try

End Function

---

had to add a page directive " async="true" to get the page to run.
Then I added a button to fire off the function. After about 2 min's I received the ex.message of "Error: A task was canceled."
This is weird. I pasted your code in and added a button to call the function

Protected Async Sub BtnGo_Click(sender As Object, e As EventArgs) Handles BtnGo.Click
Dim Test = Await AsyncCall(Nothing)
End Sub

Aghhh

any ideas?

Well, at this point you need to debug your code and figure out what is happening. Set some breakpoints inside your try..catch and then step through after the breakpoint is hit.

If I had to guess, I would say you are running into a timeout on your httpclient.

Thanks Black River. I'll give it another whirl tomorrow. Appreciate all you've done