Code: Select all
Dim client As New HttpClient
Dim url As String = "https://mysite/validate.json"
Dim headers As String[]
headers.Add("accept: application/json")
headers.Add("key: " & Me.Key)
client.Async = False
client.Timeout = 20
client.Encoding = "utf-8"
client.URL = url
client.UserAgent = Me.CustomUA
client.Debug = True
client.Head(headers) '-> Error in this line. Cannot load class 'String[]] : Out of bounds
client.Get
Code: Select all
client.Head(["accept: application/json","key: " & Me.key])