[VB6] Disconnessione automatica linea ADSL

[LMondi]

Ma è possibile chiudere una connessione ADSL ?
Ritengo di no, almeno che non lo si faccia spegnendo (fisicamente) il dispositivo.
O Sbaglio ?
Comunque per testare lo stato della connessione prova questo codice:
Da inserire in un modulo bas:

Public Const CONNECT_LAN As Long = &H2
Public Const CONNECT_MODEM As Long = &H1
Public Const CONNECT_PROXY As Long = &H4
Public Const CONNECT_OFFLINE As Long = &H20
Public Const CONNECT_CONFIGURED As Long = &H40
Public Function IsConnected(Optional ByRef sConnType As String) As Boolean
    
    Dim bConnected As Long
    Dim dwflags As Long
    Dim WebTest As Boolean

  sConnType = ""
  bConnected = InternetGetConnectedState(dwflags, 0&)

  Select Case bConnected
    Case dwflags And CONNECT_LAN:
      sConnType = "LAN"
    Case dwflags And CONNECT_MODEM:
      sConnType = "Modem"
    Case dwflags And CONNECT_PROXY:
      sConnType = "Proxy"
    Case dwflags And CONNECT_OFFLINE:
      sConnType = "Offline"
    Case dwflags And CONNECT_CONFIGURED:
      sConnType = "Configured"
    Case Else:
      sConnType = "Remote"
  End Select

  IsConnected = bConnected

End Function

Da inserire nella Frm:

Option Explicit

Private Sub Test_Click()
  Dim sMsg As String
  Dim sConnType As String

  If IsConnected(sConnType) Then
    sMsg = "Connesso ad Internet tramite " & sConnType & "."
    Else: sMsg = "Connessione ad Internet chiusa."
  End If

  MsgBox sMsg, vbOKOnly, "Stato della connessione Internet"

End Sub

Ciao, e fammi sapere.

[MdE2005]

No, non sbagli LMondi..il dispositivo non viene spento da programma ma viene solo interrotta la connessione..

Per quanto riguarda il codice lo conoscevo già e senza provarlo ti dico che va benissimo..ciao AUGURI

[LMondi]

Ciao MdE2005 !
Ho suggerito a "ranza!!!123" il codice di cui sopra perchè ho provato in tutte le salse a sconnettere la mia connessione con l'ADSL - ma non c'é verso! La connessione permane, salvo che non spenga fisicamente il dispositivo. Di ciò ho la verifica appunto con il predetto codice.
Quindi, considerato anche che la connessione avviene con l'avvio del computer e si disconnette solo quando lo spengo, mi sono posto la domanda che forse è più un'affermazione.
Ciò almeno che non vi sia un altro modo per provare che la connessione è disattivata. :rollo:

[ranza!!!123]

allora...prima di tutto grazie della pazienza...

ho copiato quel codice e dopo aver aggiunto
Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags
As Long, ByVal dwReserved As Long) As Boolean

ke mancava mi ha detto ke sn connesso tramite modem...però nn ho capito se con 1 adsl è possibile o no scollegarsi...grazie

[MdE2005]

Ciao LMondi: il codice che ha postato Boolean io sinceramente non l'ho provato, ma visto che lui ha scritto che gli funziona, io gli credo sulla parola...

Ciao ranza123!!!: l'ultimo codice postato serve solo per vedere se è in atto una connessione o no..per il resto prova il codice di Boolean..e soprattutto rispondi alla domanda da lui posta: è un dial-up?....

[ranza!!!123]

ho già detto ke il codice di boolean nn fa succedere niente e nn so dirti se è una connessione dial up xkè nn so cs è...mi dici cm posso saperlo?grazie

[Boolean]

la connessione Dial-Up è quella effettuata tramite la composizione del numero telefonico, una connessione analogica, insomma...

ma se hai Libero ADSL, come mi è sembrato di leggere, è ovvio che non hai una Dial-Up

come è collegato il modem al PC? tramite USB o LAN?

Boolean

[LMondi]

La mia connessione avviene tramite Router ADSL collegato con il computer con LAN.
Quindi NON può sconnettere nulla ?!

[LMondi]

per MdE2005.
Mai messo in dubbio che il codice scritto dall'amico Boolean non sia corretto!
Si stà parlando d'altro, cioè se è possibile sconnettersi con una connessione ADSL (che normalmente non usa un modem).

[MdE2005]

Lo so che non lo mettevi in dubbio..non volevo insinuare questo!!

Cmq io uso una connessione Adsl con USB e il codice funziona..