Ejemplos usando el Api de windows para Visual basic

193 - Comprobar si se puede acceder o no a una dirección de internet

Ejemplo de la función del api InternetCheckConnection .

Dicha función lo que hace es como si fuese un Ping a una dirección de internet. La función retorna True si la conexión se pudo establecer, y si no retorna False ( devuelve el valor 0 )

La función tiene tres parámetros. En este caso el que interesa es el primero y es la dirección a comprobar

Una cosa importante es que la dirección Url debe incluir el protocolo, es decir esto daría error por mas que la dirección url se pueda acceder y esté correctamente escrita

InternetCheckConnection ( "www.google.com" , 0, 0)

Lo correcto sería:

InternetCheckConnection ( "http://www.google.com" , 0, 0)

Ejemplo:

Colocar un CommandButton en el formulario

Código fuente en el form

Option Explicit ' Flag Private Const FLAG_ICC_FORCE_CONNECTION = &H1 ' Función api InternetCheckConnection Private Declare Function InternetCheckConnection Lib _ "wininet.dll" Alias _ "InternetCheckConnectionA" ( _ ByVal lpszUrl As String, _ ByVal dwFlags As Long, _ ByVal dwReserved As Long) As Long Private Sub Command1_Click() Dim Url As String ' Pide la Url para verificar Url = InputBox(" Escribir una dirección Url , por ejemplo www.google.com ", _ " Comprobar conexión ") If Url <> vbNullString Then ' Ok If Comprobar_Conexión(Url) Then MsgBox " Se pudo acceder a la Dirección Url :" & _ vbNewLine & Url, vbInformation Else ' No MsgBox " NO se puede acceder a la dirección Url :" & _ vbNewLine & Url, vbCritical End If End If End Sub ' La función retorna true si se pudo acceder a la dirección indicada '***************************************************************************** Function Comprobar_Conexión(Url As String) As Boolean Me.MousePointer = vbHourglass ' Se debe comprobar que la dirección tenga el Http , Ftp etc.. If LCase(Left(Url, 7)) <> "http://" Then ' .. si no lo tiene lo agrega Url = "http://" & Url End If ' Si retorna un 0 es por que no se puede acceder If InternetCheckConnection(Url, FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then Comprobar_Conexión = False Else Comprobar_Conexión = True End If Me.MousePointer = vbNormal End Function Private Sub Form_Load() Command1.Caption = " Indicar Url " End Sub

Enlaces relacionados

Buscar en Recursos vb