[VB6] Verificare se un computer è connesso ad Internet

[andrew4]

Ciao a tutti,
come faccio a verificare se il mio pc è connesso ad internet, e vorrei vederlo sia se ho un router sia un modem.
Se magari avete qualche porgetto esempio o qualche codice da darmi ve ne sarei grato.

[Harry]

Beh, una soluzione un po' spartana sarebbe di far provare ad aprire un file che si trova online.. se ci riesce è connesso altrimenti no
E funziona anche con router

[andrew4]

Ho provato con il webbrowser però il problema è che se il programma non da risposta immediata si blocca.
Percio speravo in qualche codice.

[Magicolotto]

Dim localFileName As String
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRefdwflags As Long, ByVal dwReserved As Long) As Long


Public Function IsOnline() As Boolean
Dim LFlags As Long
IsOnline = InternetGetConnectedState(LFlags, 0&)
End Function

Private Sub Command1_Click()
If IsOnline Then
MsgBox " connnesso "
Else
MsgBox " non connesso"
End If
End Sub

[MItaly]

Il problema di InternetGetConnectedState è che non ti garantisce che sei davvero connesso: lui ti dice solo se c'è una connessione configurata e attiva, ma, ad esempio, se io mi connetto ad internet tramite LAN ma il router ADSL è scollegato dalla linea telefonica la funzione probabilmente dirà comunque che internet è attivo. Il modo più sicuro è ancora quello di usare InternetOpenUrl per aprire una pagina sicuramente online; io ad esempio proverei con Google.com, Google.it e Microsoft.com: se sono tutti irraggiungibili è probabile che il PC non sia connesso ad internet.

[andrew4]

Non è che mi potresti per favore scrivere un codice semplice per capire questo internet open url, e cosa devo usare.

[oregon]

Guarda qui

http://www.devx.com/vb2themax/Tip/19203

[andrew4]

Qui mi dice come scaricare un file, potrebbe essere un'idea ma poi da quel codice come faccio a richiamare il download per esempio da un command1?

[andrew4]

Ciao, ho trovato questo codice:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()

Dim errcode As Long
Dim url As String, localFileName As String

url = "http....."
localFileName = "c:\file.txt"

errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub


Questo codice mi permette di scaricare un file, allora ho pensato, se faccio scaricare questo file di continuo posso verificare se c'è la connessione.
Però c'è un problema, che il file scaricato la prima volta rimane memorizzato nel pc, probabilmente nei file temporanei, e anche se sconnetto il file continua ad essere scaricato.
Come posso evitarlo tramite codice?

[oregon]

Originariamente inviato da andrew4
anche se sconnetto il file continua ad essere scaricato.

E come ? Per magia ?