VpnDial/src/InternetConnection.bas

Attribute VB_Name = "InternetConnection"
Option Explicit

' http://www.activevb.de/tipps/vb6tipps/tipp0049.html

Private Declare Function InternetDial Lib "wininet.dll" _
        (ByVal hwndParent As Long, ByVal lpszConiID _
        As String, ByVal dwFlags As Long, ByRef hCon _
        As Long, ByVal dwReserved As Long) As Long
        
Private Declare Function InternetHangUp Lib "wininet.dll" _
        (ByVal hCon As Long, ByVal dwReserved _
        As Long) As Long

Const DIAL_UNATTENDED As Long = &H8000&
Const DIAL_FORCE_ONLINE As Long = 1&
Const DIAL_FORCE_UNATTENDED As Long = 2&


Public Function InternetConnect(conName As String)
    Dim ConID As Long
    InternetDial Form_Main.hWnd, conName, DIAL_FORCE_UNATTENDED, ConID, 0
    InternetConnect = ConID
End Function

Public Function InternetDisconnect(ConID As Long)
    If ConID Then InternetDisconnect = InternetHangUp(ConID, 0)
End Function


1	joko	1.1	Attribute VB_Name = "InternetConnection"
2			Option Explicit
3
4			' http://www.activevb.de/tipps/vb6tipps/tipp0049.html
5
6			Private Declare Function InternetDial Lib "wininet.dll" _
7			(ByVal hwndParent As Long, ByVal lpszConiID _
8			As String, ByVal dwFlags As Long, ByRef hCon _
9			As Long, ByVal dwReserved As Long) As Long
10
11			Private Declare Function InternetHangUp Lib "wininet.dll" _
12			(ByVal hCon As Long, ByVal dwReserved _
13			As Long) As Long
14
15			Const DIAL_UNATTENDED As Long = &H8000&
16			Const DIAL_FORCE_ONLINE As Long = 1&
17			Const DIAL_FORCE_UNATTENDED As Long = 2&
18
19
20			Public Function InternetConnect(conName As String)
21			Dim ConID As Long
22			InternetDial Form_Main.hWnd, conName, DIAL_FORCE_UNATTENDED, ConID, 0
23			InternetConnect = ConID
24			End Function
25
26			Public Function InternetDisconnect(ConID As Long)
27			If ConID Then InternetDisconnect = InternetHangUp(ConID, 0)
28			End Function
29
30
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26