Lanciare una Connessione di Accesso Remoto
Richiamare questa routine comunicandole il nome della Connessione di Accesso
Remoto a cui si deve collegare.
Per esempio:
ConnettiA "Tiscalinet"
'************************************************
'NomeConnessione = Connessione di Accesso Remoto a cui connettersi
'************************************************
Public Sub ConnettiA(NomeConnessione As String)
Dim rtn As Long
rtn = Shell("RUNDLL32.EXE rnaui.dll,RnaDial " & NomeConnessione, vbHide)
SendKeys "{ENTER}", True 'Preme invio ed avvia la connessione
End Sub
Testato su: Windows 98, Windows Me