attivare e chiudere connessione internet con vb6

[Rosy23]

qualcuno di voi ha già lavorato con un oggetto che gli permettesse di connetteri o sconnettersi a internet da vb6?
Potreste dirmi quale in modo che me lo possa studiare?
grazie mille.
ciao

[Rosy23]

nessuno lo sa ?

[Rosy23]

che sudata...

[Rosy23]

e' un oggetto inesistente mi sa?

mi fanno male le unghie ad arrampicarmi sugli specchi....

[b.lory]

... un pò troppo....insistente... non trovi ????
Verifica se esiste una connessione ad internet

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
    lpSFlags As Long, ByVal dwReserved As Long) As Long
Const INTERNET_CONNECTION_MODEM = 1
Const INTERNET_CONNECTION_LAN = 2
Const INTERNET_CONNECTION_PROXY = 4
Const INTERNET_CONNECTION_MODEM_BUSY = 8

Dim flags As Long
If InternetGetConnectedState(flags, 0) = 0 Then
    ' nessuna connessione attiva
ElseIf flags = INTERNET_CONNECTION_MODEM Then
    ' connessione attiva via modem
ElseIf flags = INTERNET_CONNECTION_LAN Then
    ' connessione attiva via LAN
ElseIf flags = INTERNET_CONNECTION_PROXY Then
    ' connessione attiva via proxy
End If

[goku370]

Servirebbe anche a me il codice per avviare la connessione in caso non lo fosse gia...

[goku370]

Originariamente inviato da b.lory
... un pò troppo....insistente... non trovi ????
Verifica se esiste una connessione ad internet

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
    lpSFlags As Long, ByVal dwReserved As Long) As Long
Const INTERNET_CONNECTION_MODEM = 1
Const INTERNET_CONNECTION_LAN = 2
Const INTERNET_CONNECTION_PROXY = 4
Const INTERNET_CONNECTION_MODEM_BUSY = 8

Dim flags As Long
If InternetGetConnectedState(flags, 0) = 0 Then
    ' nessuna connessione attiva
ElseIf flags = INTERNET_CONNECTION_MODEM Then
    ' connessione attiva via modem
ElseIf flags = INTERNET_CONNECTION_LAN Then
    ' connessione attiva via LAN
ElseIf flags = INTERNET_CONNECTION_PROXY Then
    ' connessione attiva via proxy
End If

Non riesco ad usare questo codice... io voglio ricavare lo stato della connessione all'evento form Load... dove metto il codice: per conto suo, dentro l'evento FormLoad, in un modulo... cosa devo fare?

[b.lory]

:master: .....la dichiarazione della libreria "wininet.dll" devi metterla nella option explicit del form interessato...
e

Dim flags As Long

la variabile flags ti restituisce un num. intero sullo stato della connessione.

If InternetGetConnectedState(flags, 0) = 0 Then
    ' nessuna connessione attiva
ElseIf flags = INTERNET_CONNECTION_MODEM Then
    ' connessione attiva via modem
ElseIf flags = INTERNET_CONNECTION_LAN Then
    ' connessione attiva via LAN
ElseIf flags = INTERNET_CONNECTION_PROXY Then
    ' connessione attiva via proxy
End If

è chiaro che l'iterrogazione dove e quando (timer) verificare se esiste una connessione ad internet spetta a tè...
ciao

[goku370]

Che stupido a non averci pensato...
Cmq la funzione mi restituisce 81, che significa ????

Non è che conosci un modo per attivare la connessione in caso la funzioni rilevi 0, cioè connessione non attiva?

[Rosy23]

si, a me restituisce 18....
Ma come si fa giustamente a stoppare o riattivare la connessione?
grazie mille