拨号、断网、枚举连接名称,判断是否在线、连接方式
2009-05-21 19:52
274 查看
原帖:
Option Explicit '拨号/断网 Private Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As Long Private Declare Function InternetHangUp Lib "wininet.dll" (ByVal dwConnection As Long, ByVal dwReserved As Long) As Long Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long Private Const INTERNET_DIALSTATE_DISCONNECTED = 1 Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1 Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2 Private Const INTERNET_DIAL_UNATTENDED = &H8000 Private Handle As Long '网络状态 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 Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwFlags As Long, ByVal dwReserved As Long) As Long Private Const INTERNET_CONNECTION_MODEM As Long = &H1 '本系统使用调制解调器与因特网相连 Private Const INTERNET_CONNECTION_LAN As Long = &H2 '本系统通过LAN与因特网相连 Private Const INTERNET_CONNECTION_PROXY As Long = &H4 '本系统使用proxy代理服务器与因特网相连 Private Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8 '未使用 Private Const INTERNET_RAS_INSTALLED As Long = &H10 Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20 Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40 '枚举网络连接 Private Const RAS_MaxDeviceType = 16 Private Const RAS95_MaxDeviceName = 128 Private Const RAS95_MaxEntryName = 256 Private Type RASCONN95 dwSize As Long hRasConn As Long szEntryName(RAS95_MaxEntryName) As Byte szDeviceType(RAS_MaxDeviceType) As Byte szDeviceName(RAS95_MaxDeviceName) As Byte End Type Private Type RASENTRYNAME95 dwSize As Long szEntryName(RAS95_MaxEntryName) As Byte End Type Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long Private Declare Function RasEnumEntries Lib "rasapi32.dll" Alias "RasEnumEntriesA" (ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, lpcb As Long, lpcEntries As Long) As Long Private Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long '拨号 Public Function DialUp(LinkName As String) As Boolean InternetDial 0, LinkName, INTERNET_AUTODIAL_FORCE_UNATTENDED, Handle, 0 DialUp = (Handle <> 0) End Function '断网 Public Sub HangUp() If Handle <> 0 Then InternetHangUp Handle, 0 Handle = 0 End If End Sub '枚举网络连接 Public Sub EnumConnectName(Value() As String) Dim s As Long, l As Long, ln As Long, a As String ReDim r(255) As RASENTRYNAME95 r(0).dwSize = 264 s = 256 * r(0).dwSize l = RasEnumEntries(vbNullString, vbNullString, r(0), s, ln) ReDim Value(ln - 1) For l = 0 To ln - 1 a = StrConv(r(l).szEntryName(), vbUnicode) Value(l) = Left$(a$, InStr(a$, Chr$(0)) - 1) Next End Sub '判断是否在线 Public Function Online() As Boolean Online = InternetGetConnectedState(0&, 0&) End Function '判断是否在线并返回连接方式 Public Property Get OnlineOfLinkName(LinkName As String) As Boolean LinkName = Space$(128) OnlineOfLinkName = InternetGetConnectedStateEx(0, LinkName, 128, 0&) End Property '如果是通过LAN的连接,则返回True Public Function IsNetConnectViaLAN() As Boolean Dim dwFlags As Long Call InternetGetConnectedState(dwFlags, 0&) IsNetConnectViaLAN = dwFlags And INTERNET_CONNECTION_LAN End Function '如果是通过调制解调器的连接,则返回True Public Function IsNetConnectViaModem() As Boolean Dim dwFlags As Long Call InternetGetConnectedState(dwFlags, 0&) IsNetConnectViaModem = dwFlags And INTERNET_CONNECTION_MODEM End Function '如果是通过Proxy代理服务器的连接,则返回True Public Function IsNetConnectViaProxy() As Boolean Dim dwFlags As Long Call InternetGetConnectedState(dwFlags, 0&) IsNetConnectViaProxy = dwFlags And INTERNET_CONNECTION_PROXY End Function '如果已安装了RAS,则返回True Public Function IsNetRASInstalled() As Boolean Dim dwFlags As Long Call InternetGetConnectedState(dwFlags, 0&) IsNetRASInstalled = dwFlags And INTERNET_RAS_INSTALLED End Function '返回当前网络状态信息字符串 Public Function GetNetConnectString() As String Dim dwFlags As Long Dim msg As String If InternetGetConnectedState(dwFlags, 0&) Then If dwFlags And INTERNET_CONNECTION_CONFIGURED Then msg = msg & "系统配置了网络连接" & vbCrLf End If If dwFlags And INTERNET_CONNECTION_LAN Then msg = msg & "系统通过局域网与因特网相连接" End If If dwFlags And INTERNET_CONNECTION_PROXY Then msg = msg & "并使用了Proxy代理服务" Else: msg = msg & "." End If If dwFlags And INTERNET_CONNECTION_MODEM Then msg = msg & "系统使用调制解调器与因特网相连接" End If If dwFlags And INTERNET_CONNECTION_OFFLINE Then msg = msg & "系统当前处于离线状态" End If If dwFlags And INTERNET_CONNECTION_MODEM_BUSY Then msg = msg & "系统的调制解调器未连接到因特网" End If If dwFlags And INTERNET_RAS_INSTALLED Then msg = msg & "本系统安装了远程访问服务" End If Else msg = "当前未与因特网相连" End If GetNetConnectString = msg End Function
相关文章推荐
- 拨号、断网、枚举连接名称,判断是否在线、连接方式
- 拨号、断网、枚举连接名称,判断是否在线、连接方式
- 拨号、断网、枚举连接名称,判断是否在线、连接方式。
- 拨号、断网、枚举连接名称,判断是否在线、连接方式。
- 比较好的方式管理我们的应用判断,比如Activity跳转,网络是否连接,判断json....
- 两种判断网络是否连接的方式
- Js - 判断用户是否上网(连接网络) - HTML5在线、离线online的使用
- Android 判断是否连接网络,判断网络连接方式
- PB使用WININET的FTP方式自动更新(二、判断是否可以连接)
- 获取软件所有快捷方式名称,判断本地是否安装,并打开
- Js - 判断用户是否上网(连接网络) - HTML5在线、离线online的使用
- Android 工具类 —— 判断网络连接状态、GPS是否打开、基站信息和手机IMSI码
- 新路程------sh脚本之无脑判断wifi热点是否有手机连接
- 枚举方式 Case of 判断英文字符串
- 【ios开发】如何判断当前网络连接状态(网络是否正常)
- 在与 SQL Server 建立连接时出现与网络相关的或特定于实例的错误。未找到或无法访问服务器。请验证实例名称是否正确并且 SQL Server 已配置为允许
- Android判断设备网络连接状态,并判断连接方式
- “1000瓶药水,其中至多有1瓶剧毒,小狗服完药20小时后才能判断是否中毒。现在给你10只小狗、在24小时内、通过小狗试药的方式找出哪瓶药有毒或者全部无毒”
- Android判断桌面快捷方式是否存在
- 判断是否连接上网络和跳转到打开网络的界面