home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD52274262000.psc / ModConnection.bas < prev    next >
Encoding:
BASIC Source File  |  2000-04-25  |  1.1 KB  |  38 lines
  1. Attribute VB_Name = "ModConnection"
  2. Public Declare Function InternetGetConnectedStateEx Lib "wininet.dll" Alias "InternetGetConnectedStateExA" _
  3.    (ByRef lpdwFlags As Long, _
  4.    ByVal lpszConnectionName As String, _
  5.    ByVal dwNameLen As Long, _
  6.    ByVal dwReserved As Long _
  7.    ) As Long
  8.  
  9. Public Enum EIGCInternetConnectionState
  10.    INTERNET_CONNECTION_MODEM = &H1&
  11.    INTERNET_CONNECTION_LAN = &H2&
  12.    INTERNET_CONNECTION_PROXY = &H4&
  13.    INTERNET_CONNECTION_OFFLINE = &H20&
  14.    End Enum
  15.  
  16. Public Property Get InternetConnected( _
  17.      Optional ByRef eConnectionInfo As EIGCInternetConnectionState, _
  18.      Optional ByRef sConnectionName As String _
  19.    ) As Boolean
  20. Dim dwFlags As Long
  21. Dim sNameBuf As String
  22. Dim lR As Long
  23. Dim iPos As Long
  24.    sNameBuf = String$(513, 0)
  25.    lR = InternetGetConnectedStateEx(dwFlags, sNameBuf, 512, 0&)
  26.    eConnectionInfo = dwFlags
  27.    iPos = InStr(sNameBuf, vbNullChar)
  28.    If iPos > 0 Then
  29.      sConnectionName = Left$(sNameBuf, iPos - 1)
  30.    ElseIf Not sNameBuf = String$(513, 0) Then
  31.      sConnectionName = sNameBuf
  32.    End If
  33.      InternetConnected = (lR = 1)
  34. End Property
  35.  
  36.  
  37.  
  38.