clsontop.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsOnTop"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：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
'ontop api
'api constants
Private Const HWND_TOPMOST     As Long = -1
''Private Const HWND_NOTOPMOST    As Integer = -2
Private Const SWP_NOMOVE       As Long = &H2
Private Const SWP_NOSIZE       As Long = &H1
Private Const TOPMOST_FLAGS    As Double = SWP_NOMOVE Or SWP_NOSIZE
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _
                                                    ByVal hWndInsertAfter As Long, _
                                                    ByVal X As Long, _
                                                    Y, _
                                                    ByVal cX As Long, _
                                                    ByVal cY As Long, _
                                                    ByVal wFlags As Long) As Long
Public Sub MakeTopMost(lngHWnd As Long)
    SetWindowPos lngHWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
'make a form topmost
End Sub