DNS Example

This example specifies a custom IP address that will be used instead of a DNS lookup for a specific hostname.

  Dim dns As New libcURL.ListPtr
  Dim host, IP As String
  host = "www.example.com:80"
  IP = "192.168.1.4"
  Call dns.Append(host + ":" + IP)
  Dim curl As New cURLClient
  Call curl.SetOption(libcURL.Opts.RESOLVE, dns)
  If Not curl.Get("http://www.example.com/") Then
    MsgBox(libcURL.FormatError(curl.LastError))
  End If