api检测是否连接互联网

一个追梦的心

感谢分享，很给力！~

已注销571294

win11可以检测不？

亿万

感谢分享 支持开源 ！

gdhong

  

网上找到VB代码：
Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
Private Type vb1 ' 自定义类型
dwSize As Long
hRasCon As Long
szEntryName (RMEN) As Byte
szDeviceType (RMDT) As Byte
szDeviceName (RMDN) As Byte
End Type
Private Type vb2 ' 自定义类型
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType (RMDT) As Byte
szDeviceName (RMDN) As Byte
End Type
Public Function IfConnection () As Boolean ' 自定义函数，返回网络连通的状态
Dim TRC (255) As RCN1
Dim le1 As Long
Dim lp As Long
Dim REv As Long
Dim Tss As RCN2
TRC (0).dwSize = 412
le1 = 256 * TRC (0).dwSize
REv = RasEnumConnections (TRC (0), le1, lp) ' 调用函数
If REv <> 0 Then
MsgBox "错误！" ' 警告
Exit Function
End If
Tss.dwSize = 160
REv = RasGetConnectStatus (TRC (0).hRasCon, Tss) ' 调用函数
If Tss.RasConnState = &H2000 Then
IfConnection = True ' 如果返回值为True则表示已连接
Else
IfConnection = False ' 否则没有连通。
End If
End Function
Private Sub Command1_Click ()
If  IfConnection = True Then ' 调用自定义函数
Label2.Caption = "本机目前已连接到Internet!"
End If
If  IfConnection = False Then
Label2.Caption = "本机目前未连接Internet!"
End If
End Sub

网上找到VB代码：<br /> Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long<br /> Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long<br /> Private Type vb1 '自定义类型<br /> dwSize As Long<br /> hRasCon As Long<br /> szEntryName(RMEN) As Byte<br /> szDeviceType(RMDT) As Byte<br /> szDeviceName(RMDN) As Byte<br /> End Type<br /> Private Type vb2 '自定义类型<br /> dwSize As Long<br /> RasConnState As Long<br /> dwError As Long<br /> szDeviceType(RMDT) As Byte<br /> szDeviceName(RMDN) As Byte<br /> End Type<br /> Public Function IfConnection() As Boolean '自定义函数，返回网络连通的状态<br /> Dim TRC(255) As RCN1<br /> Dim le1 As Long<br /> Dim lp As Long<br /> Dim REv As Long<br /> Dim Tss As RCN2<br /> TRC(0).dwSize = 412<br /> le1 = 256 * TRC(0).dwSize<br /> REv = RasEnumConnections(TRC(0), le1, lp) '调用函数<br /> If REv <> 0 Then<br />    MsgBox "错误！" '警告<br /> Exit Function<br /> End If<br /> Tss.dwSize = 160<br /> REv = RasGetConnectStatus(TRC(0).hRasCon, Tss) '调用函数<br /> If Tss.RasConnState = &H2000 Then<br />   IfConnection = True '如果返回值为True则表示已连接<br /> Else<br />   IfConnection = False '否则没有连通。<br /> End If<br /> End Function<br /> Private Sub Command1_Click()<br />   If  IfConnection = True Then '调用自定义函数<br />      Label2.Caption = "本机目前已连接到Internet!"<br />   End If<br /> If  IfConnection = False Then<br />    Label2.Caption = "本机目前未连接Internet!" <br /> End If<br /> End Sub

已注销571294

效果好吗？

jia201314973

支持开源~！感谢分享

已注销571294

不错不错

1184798949

感谢分享

pipicool

学习一下

薛城

支持开源~！感谢分享