DNSUtilMBS.ClassNumber(dnsClass as string, byref n as Integer) as boolean

dim n as Integer

if DNSUtilMBS.ClassNumber("CH", n) then
  MsgBox str(n) // shows 3
end if

Returns true on success.

DNSUtilMBS.ClassString(dnsclass as Integer) as string

MsgBox DNSUtilMBS.ClassString(DNSUtilMBS.ClassCHAOS) // shows "CH"

DNSUtilMBS.Lookup(name as string, dnsclass as Integer, dnsType as Integer) as DNSReplyMBS

// lookup MX record for email sending
dim r as DNSReplyMBS = DNSUtilMBS.Lookup("macsw.de", DNSUtilMBS.ClassINTERNET, DNSUtilMBS.TypeMX)
if r <> nil then
  MsgBox "macsw.de -> "+r.Answer(0).MX.name
end if

Use the Class* constants for the dnsclass parameter. And use the Type* constants for the dnsType parameter.

DNSUtilMBS.LookupMT(name as string, dnsclass as Integer, dnsType as Integer) as DNSReplyMBS

Use the Class* constants for the dnsclass parameter. And use the Type* constants for the dnsType parameter.

The work is performed on a preemptive thread, so this function does not block the application and can yield time to other Xojo threads. Must be called in a Xojo thread to enjoy benefits. If called in main thread will block, but keep other background threads running.

DNSUtilMBS.TypeNumber(dnsType as string, byref n as Integer) as boolean

dim n as Integer

if DNSUtilMBS.TypeNumber("AAAA", n) then
  MsgBox str(n) // shows 28
end if

Returns true on success.

DNSUtilMBS.TypeString(dnstype as Integer) as string

MsgBox DNSUtilMBS.TypeString(DNSUtilMBS.TypeMD) // shows "MD"