[VB6] Disconnessione automatica linea ADSL

[ranza!!!123]

Originariamente inviato da 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

è collegato tramite USB ma nn funziona...sto perdendo le speranze!

[oregon]

Proviamo cosi' ...

1) Scarica il tool devcon.exe di Microsoft che puoi scaricare da

http://support.microsoft.com/default...;EN-US;Q311272

2) Dezippi il file e utilizzi il programma devcon.exe che trovi nella cartella i386 e la metti in system32

3) Da una sessione DOS, scrivi

devcon find *

e mi mostri l'elenco mostrato ...

[ranza!!!123]

ccesso remoto
ROOT\LEGACY_WS2IFSL\0000 : Ambiente di suppor
to del provider del Servizio Non-IFS di Windows Socket 2.0
ROOT\MEDIA\MS_MMACM : Codec Audio
ROOT\MEDIA\MS_MMDRV : Driver audio prece
denti
ROOT\MEDIA\MS_MMMCI : Periferiche di Con
trollo supporto
ROOT\MEDIA\MS_MMVCD : Periferiche di acq
uisizione video precedenti
ROOT\MEDIA\MS_MMVID : Codec Video
ROOT\MODEM\0001 : Modem sconosciuto
ROOT\MS_L2TPMINIPORT\0000 : WAN Miniport (L2TP
)
ROOT\MS_NDISWANIP\0000 : WAN Miniport (IP)
ROOT\MS_PPTPMINIPORT\0000 : WAN Miniport (PPTP
)
ROOT\MS_PTIMINIPORT\0000 : Direct Parallel
ROOT\PARALLELCLASS\0000 : Enumeratore di cla
sse parallela
ROOT\SYSTEM\0000 : Enumeratore di dis
positivi software Plug and Play
ROOT\SYSTEM\0001 : Dispositivo aggior
namento microcodice
STORAGE\VOLUME\1&30A96598&0&SIGNATURE15EA15E9OFFSE T1B5CEF800LENGTH138C97E00: Vol
ume generico
STORAGE\VOLUME\1&30A96598&0&SIGNATURE15EA15E9OFFSE T2EE98F400LENGTH1DA159000: Vol
ume generico
STORAGE\VOLUME\1&30A96598&0&SIGNATURE15EA15E9OFFSE T7E00LENGTH1B5CDFC00: Volume g
enerico
STORAGE\VOLUME\1&30A96598&0&SIGNATURE169B169AOFFSE T7E00LENGTH4A94D8600: Volume g
enerico
SW\{A7C7A5B0-5AF3-11D1-9CED-00A024BF0407}\{9B365890-165F-11D0-A195-0020AFD156E4}
: Rendering del kernel di sistema Microsoft
SW\{B7EAFDC0-A680-11D0-96D8-00AA0051E51D}\{9B365890-165F-11D0-A195-0020AFD156E4}
: Mixer audio del kernel Microsoft
SW\{CD171DE3-69E5-11D2-B56D-0000F8754380}\{9B365890-165F-11D0-A195-0020AFD156E4}
: Driver di compatibilitÓ audio Microsoft WINMM WDM
USB\ROOT_HUB\4&1DD16F5A&0 : Hub USB Root
USB\ROOT_HUB\4&B17BEB5&0 : Hub USB Root
USB\VID_0FE8&PID_8001\D1B2D6 : GlobespanVirata US
B ADSL WAN Modem #5
109 matching device(s) found.

[Boolean]

giusto per inciso... io uso una connessione tramite LAN è il codice per la disconnessione funziona comunque.

Boolean

[MdE2005]

Anche io per inciso: se ti può consolare io ho una connessione tramite USB e....il codice funziona perfettamente..

posta quello che hai scritto....ciao

[oregon]

Originariamente inviato da ranza!!!123
USB\VID_0FE8&PID_8001\D1B2D6 : GlobespanVirata US
B ADSL WAN Modem #5

Ok ... allora, sempre da DOS, prova a scrivere

devcon disable USB\VID_0FE8*

e controlla se il modem si disattiva. Se avviene, con

devcon enable USB\VID_0FE8*

dovrebbe riattivarsi.

Se funziona, basta eseguire il comando con la Shell da VB6

[LMondi]

Ciao ranza!!!123.
Non so se sei riuscito a risolvere il problema, o se hai rinunciato ..., io no!
Ho trovato in rete il seguente codice che effettivamente chiude ed apre la connessione ADSL anche se si fa uso di una LAN collegata con un router. Il programma l'ho provato ed è Ok, ora se vuoi puoi aggiungere un timer per far scattare la disattivazione, o meglio personalizzarlo.
Nel fare i miei complimenti a chi ha scritto il codice che fa uso di comandi Shell, lo posto di seguito (occorre aggiungere solo due CommandButton - Command1 e Command2 - nella Frm):

Private Const sNetConn = "Connessioni di rete"
Private Const sConnName = "Connessione alla rete locale (LAN)"

Private Sub Command1_Click()
    DoNetVerb "&Abilita"
End Sub

Private Sub Command2_Click()
    DoNetVerb "&Disabilita"
End Sub
Private Sub DoNetVerb(ByVal NetVerb As String)
    Dim oShellApp As Object
    Dim oCtrlPanel As Object
    Dim oNetConnections As Object
    Dim oFolder As Object
    Dim oLanConnection As Object
    Dim oNetVerb As Object
    Dim oVerb As Object
    Dim Wait As Boolean

    Set oShellApp = CreateObject("Shell.Application")
    Set oCtrlPanel = oShellApp.Namespace(3)

    Set oNetConnections = Nothing
    For Each oFolder In oCtrlPanel.items
      If LCase(oFolder.Name) = LCase(sNetConn) Then
        Set oNetConnections = oFolder.GetFolder
        Exit For
      End If
    Next

    If oNetConnections Is Nothing Then
        MsgBox "Il folder '" & sNetConn & "' non e' stato trovato.", vbCritical, "Attenzione"
    Else
        Set oLanConnection = Nothing
        For Each oFolder In oNetConnections.items
            If LCase(oFolder.Name) = LCase(sConnName) Then
                Set oLanConnection = oFolder
                Exit For
            End If
        Next

        If oLanConnection Is Nothing Then
            MsgBox "La connessione '" & sConnName & "' non e' stata trovata.", vbCritical, "Attenzione"
        Else
            Set oNetVerb = Nothing
            For Each oVerb In oLanConnection.verbs
                If oVerb.Name = NetVerb Then
                    Set oNetVerb = oVerb
                    Exit For
                End If
            Next

            If oNetVerb Is Nothing Then
                MsgBox "Impossibile eseguire il verbo '" & NetVerb & "'", vbCritical, "Attenzione"
            Else
                oNetVerb.DoIt
                Do
                    Wait = False
                    DoEvents
                    For Each oVerb In oLanConnection.verbs
                        If oVerb.Name = NetVerb Then
                            Wait = True
                            Exit For
                        End If
                    Next
                Loop While Wait

                MsgBox "Operazione eseguita."
            End If
        End If
    End If

    Set oVerb = Nothing
    Set oNetVerb = Nothing
    Set oLanConnection = Nothing
    Set oFolder = Nothing
    Set oNetConnections = Nothing
    Set oCtrlPanel = Nothing
    Set oShellApp = Nothing
End Sub

[ranza!!!123]

grazie,sta sera lo provo!!!

[ranza!!!123]

Originariamente inviato da LMondi
Ciao ranza!!!123.
Non so se sei riuscito a risolvere il problema, o se hai rinunciato ..., io no!
Ho trovato in rete il seguente codice che effettivamente chiude ed apre la connessione ADSL anche se si fa uso di una LAN collegata con un router. Il programma l'ho provato ed è Ok, ora se vuoi puoi aggiungere un timer per far scattare la disattivazione, o meglio personalizzarlo.
Nel fare i miei complimenti a chi ha scritto il codice che fa uso di comandi Shell, lo posto di seguito (occorre aggiungere solo due CommandButton - Command1 e Command2 - nella Frm):

l'ho provato ma nn si scollega...esce la msgbox cn scritto
"il folder connessioni di rete non è stato trovato"
:master:

[oregon]

1) Hai provato a fare quanto ti ho detto con il comando devcon

2) Il codice mostrato da LM (che, fra l'altro, e' mio ... ), si basa sui nomi della cartelle che vedi all'inizio. E' stato fatto per W2000 e non l'ho mai provato su XP. Siamo sicuri, intanto, che tu hai una versione italiana di Windows e che la cartella delle connessioni si chiama

Connessioni di rete

?