December 1, 2005 - WinTask - IsValidURL

'
' IsValidURL - Determines if a specified string is a valid URL.
'

Dim ptr as unsigned

ptr=Allocate(128)

'PokeString(ptr,"http://www.whatever.com",1)
PokeString(ptr,"x?1",1)

ret=External("urlmon.dll", "IsValidURL", 0, ptr, 0)

msgbox(ret)