mdllog.bas

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

Attribute VB_Name = "mdlLog"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：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
Public Function AscDate() As String
    AscDate = Replace$(Date, "/", "_")
End Function
Public Sub LogSecurity(ByVal Severity As String, _
                       ByVal Description As String)
Dim ff As Long
    On Error Resume Next
    MkDir App.Path & "\Logs\Security"
    ff = FreeFile
    Open App.Path & "\Logs\Security\" & AscDate & ".txt" For Append As #ff
    Print #ff, "[" & Time & "] " & Severity & " - " & Description
    Close #ff
    On Error GoTo 0
End Sub
Public Sub LogTraffic(ByVal InOutBlock As String, _
                      ByVal Description As String)
Dim ff As Long
    On Error Resume Next
    MkDir App.Path & "\Logs\Traffic\"
    ff = FreeFile
    Open App.Path & "\Logs\Traffic\" & AscDate & ".txt" For Append As #ff
    Print #ff, "[" & Time & "] " & InOutBlock & " - " & Description
    Close #ff
    On Error GoTo 0
End Sub