Verificando se uma URL é válida.

Para verificar se uma URL é válida ou não podemos usar uma rotina presenta na livraria do Internet Explorer ( a partir da versão 5 ). Vamos lá...

1- Inicie o VB e no formulário padrão insira um botão de comando e uma caixa de texto, conforme abaixo:

2- Na seção General declarations do form declare a função do IE5 :

Private Declare Function IsValidURL Lib "urlmon" (ByVal pBC As Long, url As Byte, ByVal dwReserved As Long) As Long

3- Insira o seguinte código no evento click do botao de comando - command1 :

Private Sub Command1_Click()

Dim url As String
Dim b() As Byte

url = Text1.Text
'estamos usando uma string unicode
b = url & vbNullChar

If IsValidURL(0, b(0), 0) = 0 Then
   MsgBox " URL valida "
Else
   MsgBox " url invalida "
End If

End Sub

Para testar a função , informe uma URL na caixa de texto e clique em : Verifica URL...

Até a próxima...