How to use dotDB to rank domains (guest posting by Kassey Lee)
Notice: this is a guest posting by Kassey Lee
I look at a lot of domains every day in order to hunt for a few good ones. dotDB helps me rank them so that I can focus on the most important domains first. Since I manage domains with Microsoft Access, it is natural for me to use its VBA programming language to access dotDB via its API. I first talked about it last year at https://dotdb.com/news/2019-09-08/vba-api-access-example .
In this article, I'll explain the two keys provided by dotDB that I use to rank domains. For details on the API, please refer to https://dotdb.com/api-document/. When you call dotDB, it returns a response in the Json data format. The data contains the following two keys.
- total_suffix: total number of extensions for the keyword
- exact_match_total_suffix: number of extensions for the exact match keyword
I use exact_match_total_suffix and then total_suffix to rank the domains. The higher the numbers are, the higher the priority of the domain becomes.
Once you receive the response, you can parse it to extract the two keys and their values. There are quite a few programs available on the internet to do that (for example, https://stackoverflow.com/questions/19360440/how-to-parse-json-with-vba-without-external-libraries ). However, for simplicity, I just use VBA to search for the two keys and their values. Here is the basic program.
Function dotDB(strKeyword As String) Dim hRequest As Object Dim strAPIkey As String Dim strURL As String Dim strResponse As String Dim intPos As Integer Dim strTotalMatch As String Dim strExactMatch As String strAPIkey = "(your API key)" strURL = "https://api.dotdb.com/v1/search?keyword=" & strKeyword Set hRequest = CreateObject("MSXML2.XMLHTTP") With hRequest .Open "GET", strURL, False .SetRequestHeader "Authorization", "Token " & strAPIkey .Send End With strResponse = hRequest.ResponseText '--- Exact match intPos = InStr(strResponse, "exact_match_total_suffix") strResponse = Mid(strResponse, intPos + 27) intPos = InStr(strResponse, ",") strExactMatch = Left(strResponse, intPos - 1) '--- Total matches intPos = InStr(strResponse, "total_suffix") strResponse = Mid(strResponse, intPos + 15) intPos = InStr(strResponse, ",") strTotalMatch = Left(strResponse, intPos - 1) dotDB = strTotalMatch & ";" & strExactMatch End Function
The function returns a string which contains total match and exact match, delimited by semicolon (";"), so they can easily be separated for further use. Note that you can also use this function in Excel if the version supports VBA. Happy domain hunting!
Love to see more content like this showing how you can write programs to automate your daily routine? Please feel free to send us an email at [email protected]