'
' IsValidURL - Determines if a specified string is a valid URL.
'
' Author: Joe Strazzere
'
Dim ptr as unsigned
ptr=Allocate(128)
'PokeString(ptr,"http://www.blogger.com/'http://www.whatever.com%22,1')
PokeString(ptr,"x?1",1)
ret=External("urlmon.dll", "IsValidURL", 0, ptr, 0)
msgbox(ret)
