一个获取你连接internet的连接方式

tmtony

可获取你连接internet的连接方式
如modem  LAN 代理等

1. 
   
2. Option Compare Database
   
3. 
   
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
    
11. 
    
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
    
20. 
    
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
    
28. 
    
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

留个脚印

xuwenning

学习
学习

82077802

学习
学习

t小宝

收藏学习

zhangxiaozhong

xuexi