Newsgroup: it.comp.lang.visual-basic
Titolo: ANCORA - verificare lo stato dell' accesso remoto...ho un paio di domande.

E si,
coma da subject ancora non ho risolto al 100% anzi, stò abbastanza in
alto mare :)) Ho un paio di domande da fare però...senza perdere molto
tempo:
1) Io voglio semplicemente controllare se l' accesso remoto è su o
disattivo, poi del nome della connessione e di altre cose non me ne
inporta niente. A tale proposito sul sito di Moreno ho trovato un
articoletto dove diceva che questa cosa era possibile tramite la
lettura della chiave dei registri. Ho provato a fare quanto lui diceva
ma non ha funzionato, quello che ho scritto io è questo:
Private Sub CmdAvvia_Click()
    lngRet = RegOpenKey(HKEY_LOCAL_MACHINE,
"System\CurrentControlSet\Services\RemoteAccess", handle)
 
    If ret = ERROR_SUCCESS Then
        lngRet = RegQueryValueEx(handle, "Remote Connection", vbNull,
vbNull, lpData, Len(lpData))
        If ret = ERROR_SUCCESS Then
            If lpData = 0 Then
                Label1.Caption = "Disconnesso"
            Else
                Label1.Caption = "Connesso"
            End If
        End If
    End If
RegCloseKey (handle)
End Sub
_______________________________________________________________
Private Sub Form_Load()
    Dim handle As Long, lpData As Long
    Dim Connesso As Boolean
    Dim lngRet As Long
End Sub
Se però eseguo questa roba, mi dice:
Errore di compilazione, Sub o Function non definita. 
Si piazza in giallo su Private Sub CmdAvvia_Click() e mi evidenzia in
blu RegOpenKey, che vuol dire??
Oltre a questo, sembra esserci anche un altro modo per verificare lo
stato dell' accesso remoto, un tizio mi ha fatto sapere via mail che
posso usare la funzione API internetgetconnectedstate. La domanda è:
Quale dei due metodi secondo voi è il migliore? Se scegliessi di
provare con l' API, qualcuno mi darà una mano? :)))
2) Una volta trovato il modo per vedere lo stato dell' accesso remoto,
avevo pensato di fare ogni tot di secondi un controllo...è su o giù?
Oggi però sul treno ci stavo ripensando...visto che io devo beccare il
momento in cui l' accesso remoto funziona, perchè non controllare
finche questo non viene attivato?? Subito mi sono sorti un paio di
dubbi...
a) corro il rischio di bloccare il pc con un ciclo teoricamente
infinito? Se io per una giornata non attivo l' acceso remoto, il mio
programma gira come un matto e...se accendo il pc alle 9 della mattina
e lo spengo alle 10 di sera...secondo voi, come credo che sia, la
percentuale di bloccare il pc è alta?? Un altra cosa...se io lancio
stò programma che comincia a fare le sue verifiche...quindi una volta
lanciato potrebbe non terminare...teoricamente mai, quando vado a
spegnere il pc, il mio programma, se ancora gira, morirebbe da solo, o
mi apparirebbe la finestrella di win...attendere che termini l'
esecuzione etc etc bla bla bla??

esecuzione etc etc bla bla bla??
Quando termini la sessione di Windows, i programmi vengono terminati automaticamente: vengono
richiamati gli eventi Unload e QueryUnload e se tu non specifichi nel secondo di questi eventi di
impedire l'arresto del sistema, tutto procede secondo i piani (o quasi...)
Il messaggio che hai citato viene visualizzato quando un'applicazione non risponde, non altrimenti.
Spero di esserti stato d'aiuto,
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------