vb 怎么检测网络连接的名称

来源：百度知道 编辑：UC知道 时间：2024/06/08 15:54:24
例如：我网络连接名称叫做"宽带连接"

用什么方法可以在VB了自动检测，显示出来呢？？

谢谢高手们啦！！！

一行代码

LinkName$=CreateObject("Wscript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\RAS AutoDial\Default\DefaultInternet")

执行完成后，字符串变量LinkName中，就是你的默认连接的名称

如果你的连接不是默认连接，可以在注册表相同位置寻找，所有的连接名称都在那附近，用同上的方法一样可以读到

'把下面代码复制即可，祝你成功！

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 = &H40&
End Enum

'**************************************
Private Function InternetConnected(