OpenRAS
Sub Connect(NomeConnessione as string) Dim rtn as long rtn = Shell("rundll32.exe rnaui.dll,RnaDial " & NomeConnessione, 0) ' Mostra finestra di connessione SendKeys "{ENTER}" 'Preme invio ed avvia la connessione End Sub
Sub Connect(NomeConnessione as string)
Dim rtn as long
rtn = Shell("rundll32.exe rnaui.dll,RnaDial " & NomeConnessione, 0) ' Mostra finestra di connessione
SendKeys "{ENTER}" 'Preme invio ed avvia la connessione
End Sub
( openras.html )- by Paolo Puglisi
- Modifica del 17/12/2023