VB.NET Requires Chilkat v11.0.0+
VB.NET
RDAP Domain Lookup using rdap.org
See more HTTP Misc Examples
Demonstrates doing an RDAP domain lookup using the rdap.org public RDAP server.Chilkat VB.NET Downloads
Dim success As Boolean = False
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As New Chilkat.Http
' Send HTTP requests to https://rdap.org/<type>/<object>, where <type> is the object type (one of domain, ip, autnum, entity etc)
' and <object> is the object identifier (eg example.com, 192.168.0.1, 64496, etc).
' For example, here's a lookup for "oracle.com"
Dim sbResponse As New Chilkat.StringBuilder
success = http.QuickGetSb("https://rdap.org/domain/oracle.com",sbResponse)
If (success = False) Then
Debug.WriteLine(http.LastErrorText)
Exit Sub
End If
Dim statusCode As Integer = http.LastStatus
If (statusCode <> 200) Then
Debug.WriteLine("Error response:")
Debug.WriteLine(sbResponse.GetAsString())
Debug.WriteLine("status code: " & statusCode)
Exit Sub
End If
' Load the JSON response and examine..
' Use this online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON
Dim json As New Chilkat.JsonObject
json.LoadSb(sbResponse)
json.EmitCompact = False
Debug.WriteLine(json.Emit())
' Here's a sample response, and the parsing code generated from the above online tool follows..
' {
' "objectClassName": "domain",
' "handle": "607513_DOMAIN_COM-VRSN",
' "ldhName": "ORACLE.COM",
' "links": [
' {
' "value": "https:\/\/rdap.verisign.com\/com\/v1\/domain\/ORACLE.COM",
' "rel": "self",
' "href": "https:\/\/rdap.verisign.com\/com\/v1\/domain\/ORACLE.COM",
' "type": "application\/rdap+json"
' },
' {
' "value": "https:\/\/rdap.markmonitor.com\/rdap\/domain\/ORACLE.COM",
' "rel": "related",
' "href": "https:\/\/rdap.markmonitor.com\/rdap\/domain\/ORACLE.COM",
' "type": "application\/rdap+json"
' }
' ],
' "status": [
' "client delete prohibited",
' "client transfer prohibited",
' "client update prohibited",
' "server delete prohibited",
' "server transfer prohibited",
' "server update prohibited"
' ],
' "entities": [
' {
' "objectClassName": "entity",
' "handle": "292",
' "roles": [
' "registrar"
' ],
' "publicIds": [
' {
' "type": "IANA Registrar ID",
' "identifier": "292"
' }
' ],
' "vcardArray": [
' "vcard",
' [
' [
' "version",
' {},
' "text",
' "4.0"
' ],
' [
' "fn",
' {},
' "text",
' "MarkMonitor Inc."
' ]
' ]
' ],
' "entities": [
' {
' "objectClassName": "entity",
' "roles": [
' "abuse"
' ],
' "vcardArray": [
' "vcard",
' [
' [
' "version",
' {},
' "text",
' "4.0"
' ],
' [
' "fn",
' {},
' "text",
' ""
' ],
' [
' "tel",
' {
' "type": "voice"
' },
' "uri",
' "tel:+1.2086851750"
' ],
' [
' "email",
' {},
' "text",
' "abusecomplaints@markmonitor.com"
' ]
' ]
' ]
' }
' ]
' }
' ],
' "events": [
' {
' "eventAction": "registration",
' "eventDate": "1988-12-02T05:00:00Z"
' },
' {
' "eventAction": "expiration",
' "eventDate": "2025-12-01T05:00:00Z"
' },
' {
' "eventAction": "last changed",
' "eventDate": "2024-10-30T09:32:52Z"
' },
' {
' "eventAction": "last update of RDAP database",
' "eventDate": "2024-11-26T14:11:14Z"
' }
' ],
' "secureDNS": {
' "delegationSigned": false
' },
' "nameservers": [
' {
' "objectClassName": "nameserver",
' "ldhName": "A1-160.AKAM.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "A11-66.AKAM.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "A13-65.AKAM.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "A18-67.AKAM.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "NS1.P201.DNS.ORACLECLOUD.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "NS2.P201.DNS.ORACLECLOUD.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "NS3.P201.DNS.ORACLECLOUD.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "NS4.P201.DNS.ORACLECLOUD.NET"
' }
' ],
' "rdapConformance": [
' "rdap_level_0",
' "icann_rdap_technical_implementation_guide_0",
' "icann_rdap_response_profile_0"
' ],
' "notices": [
' {
' "title": "Terms of Use",
' "description": [
' "Service subject to Terms of Use."
' ],
' "links": [
' {
' "href": "https:\/\/www.verisign.com\/domain-names\/registration-data-access-protocol\/terms-service\/index.xhtml",
' "type": "text\/html"
' }
' ]
' },
' {
' "title": "Status Codes",
' "description": [
' "For more information on domain status codes, please visit https:\/\/icann.org\/epp"
' ],
' "links": [
' {
' "href": "https:\/\/icann.org\/epp",
' "type": "text\/html"
' }
' ]
' },
' {
' "title": "RDDS Inaccuracy Complaint Form",
' "description": [
' "URL of the ICANN RDDS Inaccuracy Complaint Form: https:\/\/icann.org\/wicf"
' ],
' "links": [
' {
' "href": "https:\/\/icann.org\/wicf",
' "type": "text\/html"
' }
' ]
' }
' ]
' }
Dim value As String
Dim rel As String
Dim href As String
Dim v_type As String
Dim strVal As String
Dim j As Integer
Dim count_j As Integer
Dim identifier As String
Dim k As Integer
Dim count_k As Integer
Dim json1 As New Chilkat.JsonObject
Dim i1 As Integer
Dim count_i1 As Integer
Dim j1 As Integer
Dim count_j1 As Integer
Dim eventAction As String
Dim eventDate As String
Dim title As String
Dim objectClassName As String = json.StringOf("objectClassName")
Dim handle As String = json.StringOf("handle")
Dim ldhName As String = json.StringOf("ldhName")
Dim DelegationSigned As Boolean = json.BoolOf("secureDNS.delegationSigned")
Dim i As Integer = 0
Dim count_i As Integer = json.SizeOfArray("links")
While i < count_i
json.I = i
value = json.StringOf("links[i].value")
rel = json.StringOf("links[i].rel")
href = json.StringOf("links[i].href")
v_type = json.StringOf("links[i].type")
i = i + 1
End While
i = 0
count_i = json.SizeOfArray("status")
While i < count_i
json.I = i
strVal = json.StringOf("status[i]")
i = i + 1
End While
i = 0
count_i = json.SizeOfArray("entities")
While i < count_i
json.I = i
objectClassName = json.StringOf("entities[i].objectClassName")
handle = json.StringOf("entities[i].handle")
j = 0
count_j = json.SizeOfArray("entities[i].roles")
While j < count_j
json.J = j
strVal = json.StringOf("entities[i].roles[j]")
j = j + 1
End While
j = 0
count_j = json.SizeOfArray("entities[i].publicIds")
While j < count_j
json.J = j
v_type = json.StringOf("entities[i].publicIds[j].type")
identifier = json.StringOf("entities[i].publicIds[j].identifier")
j = j + 1
End While
j = 0
count_j = json.SizeOfArray("entities[i].vcardArray")
While j < count_j
json.J = j
strVal = json.StringOf("entities[i].vcardArray[j]")
k = 0
count_k = json.SizeOfArray("entities[i].vcardArray[j]")
While k < count_k
json.K = k
json.ObjectOf2("entities[i].vcardArray[j][k]",json1)
i1 = 0
count_i1 = json1.SizeOfArray("")
While i1 < count_i1
json1.I = i1
strVal = json1.StringOf("[i]")
i1 = i1 + 1
End While
k = k + 1
End While
j = j + 1
End While
j = 0
count_j = json.SizeOfArray("entities[i].entities")
While j < count_j
json.J = j
objectClassName = json.StringOf("entities[i].entities[j].objectClassName")
k = 0
count_k = json.SizeOfArray("entities[i].entities[j].roles")
While k < count_k
json.K = k
strVal = json.StringOf("entities[i].entities[j].roles[k]")
k = k + 1
End While
k = 0
count_k = json.SizeOfArray("entities[i].entities[j].vcardArray")
While k < count_k
json.K = k
strVal = json.StringOf("entities[i].entities[j].vcardArray[k]")
json.ObjectOf2("entities[i].entities[j].vcardArray[k]",json1)
i1 = 0
count_i1 = json1.SizeOfArray("")
While i1 < count_i1
json1.I = i1
j1 = 0
count_j1 = json1.SizeOfArray("[i]")
While j1 < count_j1
json1.J = j1
strVal = json1.StringOf("[i][j]")
j1 = j1 + 1
End While
i1 = i1 + 1
End While
k = k + 1
End While
j = j + 1
End While
i = i + 1
End While
i = 0
count_i = json.SizeOfArray("events")
While i < count_i
json.I = i
eventAction = json.StringOf("events[i].eventAction")
eventDate = json.StringOf("events[i].eventDate")
i = i + 1
End While
i = 0
count_i = json.SizeOfArray("nameservers")
While i < count_i
json.I = i
objectClassName = json.StringOf("nameservers[i].objectClassName")
ldhName = json.StringOf("nameservers[i].ldhName")
i = i + 1
End While
i = 0
count_i = json.SizeOfArray("rdapConformance")
While i < count_i
json.I = i
strVal = json.StringOf("rdapConformance[i]")
i = i + 1
End While
i = 0
count_i = json.SizeOfArray("notices")
While i < count_i
json.I = i
title = json.StringOf("notices[i].title")
j = 0
count_j = json.SizeOfArray("notices[i].description")
While j < count_j
json.J = j
strVal = json.StringOf("notices[i].description[j]")
j = j + 1
End While
j = 0
count_j = json.SizeOfArray("notices[i].links")
While j < count_j
json.J = j
href = json.StringOf("notices[i].links[j].href")
v_type = json.StringOf("notices[i].links[j].type")
j = j + 1
End While
i = i + 1
End While