[RESOLVED] Get the root domain from a url?

[longwolf]

Is there an API that can pull the root domain from a URL?
Or maybe a way to do it with the WebBrowser control?

Or am I going to have to think of some fancy string manipulation?

[timeshifter]

String manipulation isn't hard. Just look for the third slash... that's the end of the root. Easy code to put together.

[longwolf]

not completely right.
For examle"
http://by128fd.bay128.hotmail.msn.co...mbox=00xxxxxxx

the root is msn.com
But there are other, much stranger ways a url can be written.

[DigiRev]

For that example, you could start at the third slash and work your way back to the 2nd . behind it.

You will also need to take into account that the user may not enter the http:// part. Or may leave out the www. And there may not be a slash after the domain name, ie: hotmail.msn.com.

[longwolf]

For that example, you could start at the third slash and work your way back to the 2nd . behind it.

You will also need to take into account that the user may not enter the http:// part. Or may leave out the www. And there may not be a slash after the domain name, ie: hotmail.msn.com.

Exactly, that's why I'd like a nice reliable API or WebBrowser method.
It'd be a lot easier and cleaner than trying to think of all the possibilities

[DigiRev]

Exactly, that's why I'd like a nice reliable API or WebBrowser method.
It'd be a lot easier and cleaner than trying to think of all the possibilities

Well, it would be pretty simple string manipulation, it would just be a lengthy function, because you have to consider all possibilities.

To my knowledge, there is no API function for this. And there are no functions available in the WebBrowser control that will give you the root domain name.

I don't have a lot of experience with the WebBrowser control, though, so I could be wrong.

[longwolf]

The WebBrowser control has a LOT to it, there just aren't any help files with it.

There are several API calls for working with URLs, and it seems like I saw one once for doing this.
But I can't find it now.

I'm very good at string manipulation, I'm just hopeing for a better option here.

[longwolf]

I found it.

Private Declare Function UrlGetPart Lib "shlwapi" Alias "UrlGetPartA" (ByVal pszIn As String, ByVal pszOut As String, pcchOut As Long, ByVal dwPart As Long, ByVal dwFlags As Long) As Long

oops, had the wrong URL, here's the right one:
http://planetsourcecode.com/vb/scrip...27444&lngWId=1

[longwolf]

Beats the heck out a class file I found.
It was over 500 lines and that was with it using RegEX!!!!

[DigiRev]

Nice find. Never knew that API function existed.

[longwolf]

Just been playing with it.
I'll still have to do a little string work to get the root domain, but not much.

[longwolf]

Turns out there's an easy way to get same thing from the WebBrowser too

Debug.Print wbrBrowser.Document.domain

[scrapersNbots.com]

Found a Good Simple Solution at http://vb6.info/internet/extract-root-url-url-string/
Overall pretty reliable and pretty short compared to other solutions.

at top of module:

Private Const CONST_HOSTNAME = 2
Private Declare Function UrlGetPart Lib "shlwapi" Alias "UrlGetPartA" (ByVal pszIn As String, ByVal pszOut As String, pcchOut As Long, ByVal dwPart As Long, ByVal dwFlags As Long) As Long

then

Public Function sRet(ByVal strUrl As String) As String
On Error GoTo oops:
    
    Dim lngPtr  As Long, lngLen As Long
    Dim strSection As String, sTemp As String
    
    If (Len(strUrl) = 0) Then Exit Function
    
    strSection = Space$(260&)
    lngLen = Len(strSection)
            
     If (UrlGetPart(strUrl, strSection, lngLen, CONST_HOSTNAME, 0&) = 0) Then
                  sTemp = Left$(strSection, lngLen)
     Else
                  sRet = "error"
                  Exit Function
     End If
    
    'to avoid issues with complicated sub domains, etc, split at second .
    sTemp = sfuncRootFromSubDomains(sTemp)
    sRet = sTemp
    

Exit Function
oops:
If err.Number <> 0 Then
             Stop '
End If
End Function
 

Private Function sfuncRootFromSubDomains(ByVal sUrl As String) As String
On Error GoTo oops:

    sUrl = Replace(sUrl, "http://", "") 'remove http and https
    sUrl = Replace(sUrl, "https://", "")
    sUrl = Replace(sUrl, "www.", "") 'remove www.

    Dim sParts() As String:       sParts = Split(sUrl, ".")
    Dim iUpp As Integer:          iUpp = UBound(sParts)

    sUrl = (sParts(iUpp - 1) & "." & sParts(iUpp))
    sfuncRootFromSubDomains = sUrl

Exit Function
oops:
If err.Number <> 0 Then
             Stop '
End If
End Function

[scrapersNbots.com]

The planet source code solution has been removed for some reason.

[I Love VB6]

If post #12 is correct seems a lot simpler than post #13

[Lord Orwell]

couldn't you split by dots and take the last array element, then split again by slashes and take ... the 2nd?

[scrapersNbots.com]

yes that works IF a web browser is being used.