ConnectRAS

'[Public] | [Private]

Declare Function RasDial Lib "RasApi32.DLL" _
Alias "RasDialA" (lpRasDialExtensions As Any, _
ByVal lpszPhonebook As String, _
lprasdialparams As Any, ByVal _
dwNotifierType As Long, lpvNotifier As Long, _
lphRasConn As Long) As Long

'dove:


'lpRasDialExtensions - ignorato in Windows9x, puntatore ad

' - una struttura di tipo RASDIALEXTENSIONS in NT

'lpszPhonebook - parametro che indica il percorso del file .PBK (Solo Windows NT)

'lprasdialparams - puntatore ad una struttura di tipo RASDIALPARAMS

'dwNotifierType - specifica l'origine del parametro lpvNotifier (Vedi piu' avanti)

'lpvNotifier - specifica l'handle della finestra od

' - il valore di ritorno della funzione

' - specificata nel parametro dwNotifierType (Vedi piu' avanti)

'lphRasConn - ritorna l'handle della connessione


'dwNotifierType puo' avere i seguenti valori:


'0xFFFFFFFF - lpvNotifier ha l'handle della finestra che riceve i messaggi da RasDial

'0 - lpvNotifier riceve il valore di ritorno della funzione RasDialFunc

'1 - lpvNotifier riceve il valore di ritorno della funzione RasDialFunc1

'2 - lpvNotifier riceve il valore di ritorno della funzione RasDialFunc2 (Solo Windows NT)


'Le dichiarazioni della struttura RASDIALEXTENSIONS che, in

'Windows NT, memorizza alcune informazioni aggiuntive per la

'connessione, sono:


'[Public] | [Private]


Type RASDIALEXTENSIONS
dwSize As Long
dwfOptions As Long
hwndParent As Long
reserved As Long
End Type

'dove:


'dwSize - specifica la grandezza della struttura

'ldwfOptions - specifica eventuali opzioni di connessione

'hwndParent - specifica l'handle della finestra che ricevera' i messaggi dalla connessione

'reserved - parametro riservato (0)


'mentre quelle di RASDIALPARAMS, contenente i parametri usati

'da RasDial sono:


'[Public] | [Private]


Type RASDIALPARAMS
dwSize As Long
szEntryName As String * RAS_MaxEntryName
szPhoneNumber As String * RAS_MaxPhoneNumber
szCallbackNumber As String * RAS_MaxCallbackNumber
szUserName As String * UNLEN
szPassword As String * PWLEN
szDomain As String * DNLEN
End Type

'dove:


'dwSize - specifica la grandezza della struttura

'szEntryName - imposta il nome della connessione

'szPhoneNumber - imposta il numero di telefono (se diverso da quello predefinito)

'szCallbackNumber -

'szUserName - imposta la username

'szPassword - imposta la password

'szDomain - specifica il dominio a cui richiedere l'autorizzazione d'accesso


'Quindi un esempio d'uso di questa funzione potrebbe essere

'il seguente:


Dim RasDialP As RASDIALPARAMS, ret As Long
With RasDialP
.dwSize = 1052
.szEntryName = NomeConnessione & vbNullChar
.szUserName = Username & vbNullChar
.szPassword = Password & vbNullChar
End With

aaa = RasDial(ByVal 0&, vbNullString, RasDialP, &HFFFF, Me.hWND, hRasConn)

'dove NomeConnessione e' il nome della connessione,

'Username e Password sono rispettivamente la username e la

'password che utilizza la connessione.