devxlogo

Check for a valid URL

Check for a valid URL

Before posting an Internet request you should check that the user has entered a valid Internet address. You can do this with a parsing routine, or use the following routine based on the IE5 library:

Private Declare Function IsValidURL Lib "urlmon" (ByVal pBC As Long, _    url As Byte, ByVal dwReserved As Long) As Long    Dim url As StringDim b() As Byteurl = "http://www.vb2themax.com/default.asp"' We need this because we're passing a Unicode stringb = url & vbNullCharIf IsValidURL(0, b(0), 0) = 0 Then        ' valid URLElse    ' invalid URLEnd If

devx-admin

Share the Post: