您的代码中有许多错误,但您似乎被编译器错误所困扰,这表明:
方法参数必须用括号括起来
这是因为您尚未将该方法标记为
Async
因此编译器假设
Await
是一个函数。所以只需在签名上加上:
Private Async Sub AAA(campanaRep As ClassInstance)
此外,代码的其余部分完全是一团糟,这里稍微整理一下:
Private Async Sub AAA(campanaRep As ClassInstance)
Using client As New System.Net.Http.HttpClient()
client.BaseAddress = New Uri("")
client.DefaultRequestHeaders.Accept.Clear()
Dim response As System.Net.Http.HttpResponseMessage = _
Await client.PutAsJsonAsync("Http"+ "WebMethod", campanaRep)
If (response.IsSuccessStatusCode)
bol = Await response.Content.ReadAsAsync(Of Boolean)
End If
End Using
End Sub