VB6实现网络连通检测

原创 2004年10月20日 12:32:00
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

在vb6中检测Internet是否连接

有关的API声明和定义Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA...
  • cyclone_dll
  • cyclone_dll
  • 2007年11月29日 20:33
  • 1199

网络连接状态测试程序(VB6.0源代码编写)可以查看网络通不通

  • 2010年03月07日 21:09
  • 795KB
  • 下载

vb判断宽带是否连接

  • 2014年05月18日 11:20
  • 442B
  • 下载

vb获得网络时间的函数(历史上最全最完整最可靠的函数)

Private Sub Form_Load() MsgBox getWebDatetimie End Sub '直接调用 Private Function getWebDatetimie() ...
  • sysdzw
  • sysdzw
  • 2017年01月18日 15:11
  • 1445

Ping测试网络连接状态

用法: ping IP地址  [-t] [-a] [-n count] [-l size] [-f] [-i TTL] [-v TOS]                   [-r count] [...
  • ma18845639852
  • ma18845639852
  • 2016年11月10日 14:36
  • 126

拨号上网软件 C++ 实现

一般用户的拨号上网,利用的是Windows的Remote Access Service(RAS,远程访问服务)。下面介绍一下其在Visual C++下的实现。   Visual C++为我们提供了包含...
  • tsing_best
  • tsing_best
  • 2014年05月05日 15:47
  • 1194

VB代码+宽带自动拨号+源码

  • 2012年04月14日 13:34
  • 6KB
  • 下载

VB 判断网线是否已连接

  • 2011年09月22日 19:27
  • 2KB
  • 下载

android判断网络是否可以上网

转载自: http://wohenshuaiba.iteye.com/blog/1097419 方法一:  Java代码   import java.io.Input...
  • Sky_Cat
  • Sky_Cat
  • 2016年11月10日 14:24
  • 1189

python检测主机的连通性并记录到文件

目录结构ping_test/ ├── bin │   ├── ping.py │   ├── ping_run.sh.origin │   └── ping.sh ├── conf │   └── i...
  • longyinyushi
  • longyinyushi
  • 2017年06月28日 10:59
  • 436
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB6实现网络连通检测
举报原因:
原因补充:

(最多只允许输入30个字)