[VB6] Verifica connessione a Internet

[Guide]

Allora mi sa che dovro tornare su quel pc....solo che si trova in un altra citta....

Puoi dirmi almeno se l'errore che conteneva nel messaggio "ActiveX"
puo dipendere dal codice oggetto di studio in questo post?

Io ho messo il seguente
---
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef
dwflags As Long, ByVal dwReserved As Long) As Long

Public Function IsOnline() As Boolean
Dim LFlags As Long
IsOnline = InternetGetConnectedState(LFlags, 0&)
End Function
---
in un modulo.....se lo mettevo nel form...cambiava qualcosa?
grazie

[oregon]

Non hai letto il mio messaggio precedente ... ti ho scritto

"E poi, se si parla di un ActiveX, non ha nulla a che fare con la API che ti rileva la connessione ad Internet."

[mvent]

io invece usavo sto codice:

nel modulo:
Public Declare Function RasEnumConnections Lib "RasApi32.DLL" Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long

Public Type RASCONN
  dwSize As Long
  hRasConn As Long
  szEntryName(265) As Byte
  szDeviceType(16) As Byte
  szDeviceName(128) As Byte
End Type

nel form:
  RASCon(0).dwSize = 412
  Call RasEnumConnections(RASCon(0), 256 * RASCon(0).dwSize, RASConnN_Numb)
  NOME_CONN = ""
  For NumConn = 0 To RASConnN_Numb - 1
    NOME_CONN = StrConv(RASCon(NumConn).szEntryName(), vbUnicode)
    NOME_CONN = Left(NOME_CONN, InStr(NOME_CONN, Chr(0)) - 1)
    lblInternet.Caption = "Connesso a: " & NOME_CONN: lblInternet.Refresh
  Next NumConn
  PausaRicerca = IIf(RASConnN_Numb = 0, True, False)

ma su vista non mi funziona più...
l'API InternetGetConnectedState dice solo se è connesso o no...(devo ancora provarla su vista)...ma per reperire il nome della connessione?

[alka]

Originariamente inviato da mvent
io invece usavo sto codice[...]
ma su vista non mi funziona più...
l'API InternetGetConnectedState dice solo se è connesso o no...(devo ancora provarla su vista)...ma per reperire il nome della connessione?

Questa discussione ha più di due anni: non risollevare discussioni sopite da tempo, come da Regolamento.

Apri una discussione nuova per discutere specificatamente del tuo problema.