module1.bas

来自「电子书“Visual Basic 6 网络编程实例教程.rar”」· BAS 代码 · 共 10 行

Attribute VB_Name = "Module1"
Option Explicit

Public Const NETWORK_ALIVE_LAN = &H1  '网卡连接
Public Const NETWORK_ALIVE_WAN = &H2  'RAS连接
Public Const NETWORK_ALIVE_AOL = &H4  'AOL
       
Public Declare Function IsNetworkAlive Lib "Sensapi.dll" _
  (lpdwFlags As Long) As Long