+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

Rilevare connessione internet

  1. #1
    Nottambulo non è in linea Scolaretto
    Ciao, è possibile rilevare se il computer ha una connessione internet attiva?

  2. #2
    AlbertoM non è in linea Scribacchino
    Ciao Nottambulo.

    Vedi se ti va bene:
    If My.Computer.Network.IsAvailable Then
    .....
    
    ℹ️ Leggi di più su AlbertoM ...

  3. #3
    Ciao,

    ho avuto anche io questa necessità in passato di controllare lo stato della mia connessione "Alice", per fare in modo di autoconnettermi nel caso di disconnessioni....

    Io ho utilizzato l' API InternetGetConnectedState della libreria wininet.dll, che ti dà la possibilità di recuperare il tipo di connessione internet attiva.... non ho avuto modo di approfondire in situazioni dov'è presente un Router autoconnesso, ma magari può tornarti utile lo stesso.

    Si dichiara l 'API
    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Int32, ByVal dwReserved As Int32) As Boolean
    
    L' enumeratore per lpdwFlags:
    Private Enum Flags As Integer
      'Local system uses a LAN to connect to the Internet.
      INTERNET_CONNECTION_LAN = &H2
      'Local system uses a modem to connect to the Internet.
      INTERNET_CONNECTION_MODEM = &H1
      'Local system uses a proxy server to connect to the Internet.
      INTERNET_CONNECTION_PROXY = &H4
      'Local system has RAS installed.
      INTERNET_RAS_INSTALLED = &H10
    End Enum
    
    e poi in un evento inserisci:
    Dim lngFlags As Long
    If InternetGetConnectedState(lngFlags, 0) Then
    
       If lngFlags And Flags.INTERNET_CONNECTION_LAN Then
          'LAN connection.
          MessageBox.Show("LAN connection.")
       ElseIf lngFlags And Flags.INTERNET_CONNECTION_MODEM Then
          'Modem connection.
          MessageBox.Show("Modem connection.")
       ElseIf lngFlags And Flags.INTERNET_CONNECTION_PROXY Then
          'Proxy connection.
          MessageBox.Show("Proxy connection.")
       End If
                    
    End If
    
    Oppure puoi andarci per vie "traverse", facendo un ping a google il cui esito ti potrà indicare che la linea Internet è attiva oppure no... (ma quì entrano in gioco anche i DNS)
     If My.Computer.Network.Ping("www.google.it") Then
         MessageBox.Show("CONNESSO")
     End If
    
    ℹ️ Leggi di più su Fix ...

  4. #4
    Nottambulo non è in linea Scolaretto
    Grazie, vanno bene entrambi i casi.

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Connessione internet
    Da gian1971 nel forum Networking e sicurezza
    Risposte: 4
    Ultimo Post: 27-07-2012, 06:22
  2. Connessione ad internet
    Da nikistar nel forum Microsoft Windows
    Risposte: 7
    Ultimo Post: 10-11-2009, 18:19
  3. VB6: Connessione a Internet
    Da UbySoft71 nel forum Visual Basic 6
    Risposte: 6
    Ultimo Post: 14-02-2008, 21:37
  4. Connessione a internet
    Da boldi96 nel forum Visual Basic .Net
    Risposte: 2
    Ultimo Post: 02-01-2008, 12:48
  5. Connessione ad Internet
    Da The Revolution nel forum Microsoft Windows
    Risposte: 7
    Ultimo Post: 09-06-2006, 18:44