Jump to content

Jose BN

Members
  • Posts

    299
  • Joined

  • Last visited

  • Days Won

    11

Community Answers

  1. Jose BN's post in Como saber si hay internet was marked as the answer   
    @Janlui en un aporte de @Cacho R en el foro hermano hay un aporte en el que se evalúa si hay conexión a una pagina web, no sé si te podrá servir de algo:
    Function VerificaURL() As Boolean With CreateObject("Microsoft.XMLHttp") .Open "Get", "https://www.google.com.ar", False On Error Resume Next: .Send: On Error GoTo 0 VerificaURL = .readyState = 4 And .Status = 200 End With End Function https://foro.todoexcel.com/threads/ejecutar-macro-solo-cuando-haya-conexión-a-internet.43403/
    Por último te comparto el aporte de @Héctor Miguel en el mismo post.
    Private Declare Function EstadoConexionInternet Lib "wininet" _ Alias "InternetGetConnectedState" (ByRef opciones As Long, _ ByVal reservado As Long) As Long Private Function InternetConectado() As Boolean Dim opciones As Long EstadoConexionInternet opciones, 0& InternetConectado = opciones And (&H1 Or &H2 Or &H4) End Function  
×
×
  • Create New...

Important Information

Privacy Policy