Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - verificare connessione a internet
Forum - Visual Basic 6 - verificare connessione a internet

Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 11:51
Lunedė, 14/07/2008
un modo sarebbe aprire un url con l' inet e funziona il problema č che devo metterlo nel load del forme ci mette un po ad aprirsi
nn cč un modo + rapido?

PM Quote
Avatar
gantonio (Normal User)
Guru^2


Messaggi: 1532
Iscritto: 09/09/2007

Segnala al moderatore
Postato alle 13:53
Lunedė, 14/07/2008
Ci mette un po' ma non per la Inet ... comunque puoi utilizzare la API InternetCheckConnection ...

In un form

Codice sorgente - presumibilmente VB.NET

  1. Private Const FLAG_ICC_FORCE_CONNECTION = &H1
  2. Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" _
  3. (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
  4.  
  5. Private Sub Form_Load()
  6.   If InternetCheckConnection("http://www.pierotofy.it", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
  7.     MsgBox "Connessione fallita!", vbInformation
  8.   Else
  9.     MsgBox "Connessione ok!", vbInformation
  10.   End If
  11. End Sub


Ultima modifica effettuata da gantonio il 14/07/2008 alle 13:53
PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 13:06
Martedė, 15/07/2008
grazie 1000

lo so che nn dipende inet, ma dal fatto che deve prima caricare tutta la pagina

cmq ho trasformato il codice in una funzione che restituisce un valore booleano
a chi interessa...

Codice sorgente - presumibilmente Visual Basic 6

  1. private function Internet()
  2. internet=cbool(InternetCheckConnection("http://www.google.com", FLAG_ICC_FORCE_CONNECTION, 0&))
  3. end function


PM Quote