CSDN博客

img greystar

VB6实现网络连通检测

发表于2004/10/20 12:32:00  2110人阅读

分类: VB

Private Sub Form_Load() 
If IsConnected = TRUE Then 
MsgBox (“您已经连通了Internet!”) 
End If 
If IsConnected = FALSE Then 
MsgBox (“您还没有连通 Internet!”) 
End If 
End Sub 
  
Option Explicit 
/*有关的API声明和定义*/ 
Public Declare Function RasEnumConnections Lib “RasApi32.dll” Alias “RasEnumConnectionsA” (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long 
  
Public Declare Function RasGetConnectStatus Lib “RasApi32.dll” Alias “RasGetConnectStatusA” (ByVal hRasCon As Long, lpStatus As Any) As Long 
  
/*常数和变量的设定*/ 
Public Const RAS95_MaxEntryName = 256 
Public Const RAS95_MaxDeviceType = 16 
Public Const RAS95_MaxDeviceName = 32 
Public Type RASCONN95 
dwSize As Long 
hRasCon As Long 
szEntryName(RAS95_MaxEntryName) As Byte 
szDeviceType(RAS95_MaxDeviceType) As Byte 
szDeviceName(RAS95_MaxDeviceName) As Byte 
End Type 
Public Type RASCONNSTATUS95 
dwSize As Long 
RasConnState As Long 
dwError As Long 
szDeviceType(RAS95_MaxDeviceType) As Byte 
szDeviceName(RAS95_MaxDeviceName) As Byte 
End Type 
  
/*函数IsConnected返回连通的状态,如果为True则表示已连通*/ 
Public Function IsConnected() As Boolean 
Dim TRasCon(255) As RASCONN95 
Dim lg As Long 
Dim lpcon As Long 
Dim RetVal As Long 
Dim Tstatus As RASCONNSTATUS95 
TRasCon(0).dwSize = 412 
lg = 256 * TRasCon(0).dwSize 
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon) 
If RetVal <> 0 Then 
MsgBox “错误” 
Exit Function 
End If 
Tstatus.dwSize = 160 
RetVal = RasGetConnectStatus(TRasCon(0) 
.hRasCon,Tstatus) 
If Tstatus.RasConnState = &H2000 Then 
IsConnected = TRUE 
Else 
IsConnected = FALSE 
End If 
End Function
阅读全文
0 0

相关文章推荐

  • 在vb6中检测Internet是否连接
    cyclone_dll 2007-11-29 20:33 1149
  • vb实现ping
    AwillAway 2011-12-14 18:34 1698
  • VB6编程全面检测系统硬件信息
    faasf25366 2013-07-17 01:23 149
  • vb6_检测有没有u盘
    icyyang 2014-03-31 21:48 2
  • VB6实现简单的扫雷小游戏
    wf824284257 2016-11-24 13:26 4126
img
取 消
img