1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Private Sub get_data() Dim client = New RestClient() client.BaseUrl = "http://www.bing.com" Dim request = New RestRequest() request.Resource = "search?q=""widget+foo""" request.Method = Method.POST 'Async call made with sub class client.ExecuteAsync(request, Sub(res) MessageBox.Show(res.Content) 'Show Data Content Here with Message Box End Sub) End Sub |