USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Verifica se uma URL e valida
Postada em 12/12/2003 por Andre            
Private Declare Function IsValidURL Lib "URLMON.DLL" (ByVal pbc As Long, ByVal szURL As String, ByVal dwReserved As Long) As Long

Private Const S_FALSE = &H1
Private Const S_OK = &H0

Private Sub Form_Load()
    MsgBox "Is valid URL: " + CStr(IsGoodURL("http://www.vbweb.com.br"))
    MsgBox "Is valid URL: " + CStr(IsGoodURL("hxxp:/www.vbweb.uhoh"))
End Sub

Public Function IsGoodURL(ByVal sURL As String) As Boolean
    sURL = StrConv(sURL, vbUnicode)
    'Chama a funcao
    IsGoodURL = (IsValidURL(ByVal 0&, sURL, 0) = S_OK)
End Function
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página