#DEFINE S_OK                   0
#DEFINE S_FALSE                1
#DEFINE E_INVALIDARG 0x80070057
 
DECLARE INTEGER IsValidURL IN urlmon;
    INTEGER pBC, STRING szURL, INTEGER dwReserved
 
= validateUrl ("http://www.news2news.com")
= validateUrl ("www.news2news.com")
= validateUrl ("http://if protocol prefix included it validates everything")
 
PROCEDURE  validateUrl (lcUrl)
    LOCAL lnResult
    lnResult = IsValidURL (0, a2w(lcUrl), 0)
 
    ? "Validating:", lcUrl, "-> "
    DO CASE
    CASE lnResult = S_OK
        ?? "URL is valid"
    CASE lnResult = S_FALSE
        ?? "URL is INvalid"
    CASE lnResult = E_INVALIDARG
        ?? "One of the parameters is invalid"
    OTHER
        ?? "Have no idea"
    ENDCASE
 
FUNCTION a2w (lcStr)
* converts source string to wide-chars
    LOCAL lcResult, ii
    lcResult = ""
    FOR ii=1 TO Len(lcStr)
        lcResult = lcResult + SUBSTR(lcStr, ii,1) + Chr(0)
    ENDFOR
RETURN lcResult+Chr(0)