module1.bas

电子书“Visual Basic 6 网络编程实例教程.rar”

Attribute VB_Name = "Module1"
Option Explicit

Public Type QOCINFO
   dwSize As Long
   dwFlags As Long
   dwInSpeed As Long
   dwOutSpeed As Long
End Type

Public Const NETWORK_ALIVE_LAN As Long = &H1 '活动的LAN网卡
Public Const NETWORK_ALIVE_WAN As Long = &H2 '活动的RAS连接
Public Const NETWORK_ALIVE_AOL As Long = &H4 '连接到AOL (只适用于Win95/98)
                                              
Public Declare Function IsDestinationReachable Lib "Sensapi.dll" _
   Alias "IsDestinationReachableA" _
  (ByVal lpszDestination As String, _
   lpQOCInfo As QOCINFO) As Long