VB 获取 网络连接 列表

来源：百度知道 编辑：UC知道 时间：2024/06/15 23:40:31
用VB如何获得 当前默认连接

比如说:宽带连接

可以在
IE属性 链接
里面看到的

希望有源代码,小弟笨啊!
郁闷~不要乱发啊!影响别人回答!做广告请去别处

代码如下，不过要给分啊！^_^
Option Explicit
'检测本机是否联入互联网,以及以什么形式联入

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
Alias "InternetGetConnectedStateExA" _
(ByRef lpdwFlags As Long, _
ByVal lpszConnectionName As String, _
ByVal dwNameLen As Long, _
ByVal dwReserved As Long _
) As Long

Private Enum EIGCInternetConnectionState
INTERNET_CONNECTION_MODEM = &H1&
INTERNET_CONNECTION_LAN = &H2&
INTERNET_CONNECTION_PROXY = &H4&
INTERNET_RAS_INSTALLED = &H10&
INTERNET_CONNECTION_OFFLINE = &H20&
INTERNET_CONNECTION_CONFIGURED = &H