Snippet Library

'Declarations

Const Internet_Autodial_Force_Unattended As Long = 2

Public Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Public Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long

Dim lResult As Long
lResult = InternetAutodial(Internet_Autodial_Force_Unattended, 0&)

*******************************************************************************

'Task: Close dial-up internet connection. This 'uses the "wininet.dll" which comes with Internet 'Explorer 3.X or later, or is available from 'Microsoft. 

 '      Declarations

'Same as above

'	code

Dim lResult As Long
lResult = InternetAutodialHangup(0&);