网页功能: 加入收藏 设为首页 网站搜索  
如何检测是否已连接到Internet?
发表日期:2002-12-08作者:[] 出处:  

如何检测是否已连接到Internet?

 

声明:

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

程序:

Private Sub main()

  If IsConnected = True Then

    MsgBox "已连接到Internet!", vbInformation, "提示"

  Else

    MsgBox "未连接到Internet!", vbInformation, "提示"

  End If

End Sub

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 "产生错误!", vbInformation, "提示"

    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

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 如何检测是否已连接到Internet?
本类热点文章
  用MSComm控件实现来电显示
  用MSComm控件实现来电显示
  WOL(Wake on Lan)程序的源代码
  用VB调试串口通讯
  用VB调试串口通讯
  用PocketPCPhone替代AT指令的手机SMS服务
  用PocketPCPhone替代AT指令的手机SMS服务
  保存页面为MHT的代码
  用VB动态获取所有网络邻居的名称及其IP..
  用VB动态获取所有网络邻居的名称及其IP..
  于Winsock控件制作的一个“服务器,N客..
  于Winsock控件制作的一个“服务器,N客..
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2021 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00386