CloseRAS

'[Public] | [Private]

Declare Function RasHangUp Lib "RasApi32.dll" _
Alias "RasHangUpA" (ByVal hRASConn As Long) As Long

'Questa funzione ha una struttura molto semplice in quanto

'necessita di un unico parametro:

'hRASConn - l'handle della connessione da terminare.

'hRASConn viene fornito da una precedente chiamata a

'funzioni tipo RasEnumConnections: Parafrasando infatti il

'codice precedentemente utilizzato...


ReturnCode = RasEnumConnections(RASCon(0), RASConnN_Size, _
RASConnN_Numb)

If ReturnCode = ERROR_SUCCESS Then
For i = 0 To RASConnN_Numb - 1
hRASConn = RASCon(i).hRASConn 'ecco come ottenere l'handle
ReturnCode = RasHangUp(ByVal hRASConn)
Next i
End If

'Ora abbiamo fatto un controllo

'(If ReturnCode = ERROR_SUCCESS) per vedere che ci siano

'connessioni attive: infatti in caso contrario non ci

'sarebbe nulla da terminare.

'N.B.

'Se la chiamata ha avuto successo, il valore di ritorno di

'tutte le funzioni descritte in questo articolo e' 0.