Pues Estoy haciendo un programa que verifique si una web está online cada 15min o determinado time
ya intente con text1.text = Inet1.openurl
si hay codigo en el textbox pues está online si no pues offline
pero no me funciona muy bien
alguna idea?
hago que meta un texto en un txt como log
tmb intente con fileexists pero nada
alguna idea
Gracias!
Option Explicit
Private Sub Form_Load()
Dim Response As String
Response = Inet1.OpenURL("http://localhost")
If Response = "" Then
MsgBox "Offline"
Else
MsgBox "Online"
End If
End Sub
sencillo y demasiado funcional jajaja
mil gracias
Salu2
Hola,en vez de usar un control ocx como el Inet podes usar la api InternetCheckConnection ,algo asi:
Option Explicit
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
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 Form_Load()
If InternetCheckConnection("http://www.google.com", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "No esta disponible"
Else
MsgBox "Si esta disponible"
End If
End Sub
saludos.