modnetdetect.bas

支持监控包括传输控制协议和 UDP 的所有的互联网传输协议。同时程序具有实时文件防修改监控功能

Attribute VB_Name = "modNetDetect"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/09/20
'描    述：界面清爽VB版高级专业防火墙 Ver 2.0.3
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Option Explicit
''Private Const INTERNET_CONNECTION_MODEM           As Integer = 1
''Private Const INTERNET_CONNECTION_LAN             As Integer = 2
''Private Const INTERNET_CONNECTION_PROXY           As Integer = 4
''Private Const INTERNET_CONNECTION_MODEM_BUSY      As Integer = 8
Public Declare Function InternetGetConnectedState Lib "wininet" (lpdwFlags As Long, _
                                                                 ByVal dwReserved As Long) As Boolean