Office中国论坛/Access中国论坛

标题: 一个获取你连接internet的连接方式 [打印本页]
作者: tmtony    时间: 2010-7-15 09:39
标题: 一个获取你连接internet的连接方式
可获取你连接internet的连接方式
如modem  LAN 代理等

  2. Option Compare Database

  4. Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
  5. Alias "InternetGetConnectedStateExA" _
  6. (ByRef lpdwFlags As Long, _
  7. ByVal lpszConnectionName As String, _
  8. ByVal dwNameLen As Long, _
  9. ByVal dwReserved As Long _
  10. ) As Long

  12. Public Enum EIGCInternetConnectionState
  13. INTERNET_CONNECTION_MODEM = &H1&
  14. INTERNET_CONNECTION_LAN = &H2&
  15. INTERNET_CONNECTION_PROXY = &H4&
  16. INTERNET_RAS_INSTALLED = &H10&
  17. INTERNET_CONNECTION_OFFLINE = &H20&
  18. INTERNET_CONNECTION_CONFIGURED = &H40&
  19. End Enum

  21. Public Property Get InternetConnected( _
  22. Optional ByRef eConnectionInfo As EIGCInternetConnectionState _
  23. ) As Boolean
  24. Dim dwflags As Long
  25. Dim sNameBuf As String
  26. Dim lR As Long
  27. Dim iPos As Long

  29. sNameBuf = String$(513, 0)
  30. lR = InternetGetConnectedStateEx(dwflags, sNameBuf, 512, 0&)
  31. eConnectionInfo = dwflags
  32. iPos = InStr(sNameBuf, vbNullChar)
  33. If iPos > 0 Then
  34. sConnectionName = Left$(sNameBuf, iPos - 1)
  35. ElseIf Not sNameBuf = String$(513, 0) Then
  36. sConnectionName = sNameBuf
  37. End If
  38. InternetConnected = (lR = 1)
  39. End Property
复制代码

作者: Grant    时间: 2010-7-15 10:44
留个脚印
作者: xuwenning    时间: 2010-7-15 16:18
学习
学习
作者: 82077802    时间: 2010-7-15 18:12
学习
学习
作者: t小宝    时间: 2010-7-17 16:06
收藏学习
作者: zhangxiaozhong    时间: 2010-8-5 21:21
xuexi



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3