frmlogtraffic.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmLogTraffic 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "流量日志"
   ClientHeight    =   6060
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6285
   Icon            =   "frmLogTraffic.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmLogTraffic.frx":0442
   ScaleHeight     =   6060
   ScaleWidth      =   6285
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin OnIt_Pro_Firewall.CandyButton Command1 
      Height          =   375
      Left            =   5400
      TabIndex        =   3
      Top             =   5640
      Width           =   735
      _extentx        =   1296
      _extenty        =   661
      font            =   "frmLogTraffic.frx":7293
      caption         =   "清除"
      captionhighlitecolor=   0
      iconhighlitecolor=   0
      checked         =   0   'False
      colorbuttonhover=   16760976
      colorbuttonup   =   15309136
      colorbuttondown =   15309136
      colorbright     =   16772528
      borderbrightness=   0
      displayhand     =   0   'False
      colorscheme     =   0
   End
   Begin OnIt_Pro_Firewall.CandyButton Command2 
      Height          =   375
      Left            =   5400
      TabIndex        =   2
      Top             =   5040
      Width           =   735
      _extentx        =   1296
      _extenty        =   661
      font            =   "frmLogTraffic.frx":72B7
      caption         =   "关闭"
      captionhighlitecolor=   0
      iconhighlitecolor=   0
      checked         =   0   'False
      colorbuttonhover=   16760976
      colorbuttonup   =   15309136
      colorbuttondown =   15309136
      colorbright     =   16772528
      borderbrightness=   0
      displayhand     =   0   'False
      colorscheme     =   0
   End
   Begin VB.TextBox txtDesc 
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   15
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   5040
      Width           =   5295
   End
   Begin MSComctlLib.ListView lvLog 
      Height          =   4935
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6255
      _ExtentX        =   11033
      _ExtentY        =   8705
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      NumItems        =   3
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "时间戳"
         Object.Width           =   2646
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Text            =   "类型"
         Object.Width           =   3528
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Text            =   "描述"
         Object.Width           =   10583
      EndProperty
   End
End
Attribute VB_Name = "frmLogTraffic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
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
Private Sub Command1_Click()
    On Error Resume Next
    Kill App.Path & "\Logs\Traffic" & AscDate & ".txt"
    txtDesc.Text = vbNullString
    lvLog.ListItems.Clear
    On Error GoTo 0
End Sub
Private Sub Command2_Click()
    frmMain.ProgressBar1.Visible = False
    Unload Me
End Sub
Private Sub Form_Load()
'Load Log File
Dim ff          As Long
Dim strInput    As String
Dim strTemp     As String
Dim num1        As Long
Dim num2        As Long
Dim Timestamp   As String
Dim Severity    As String
Dim Description As String
Dim Item        As ListItem
    frmMain.ProgressBar1.Visible = True
    frmMain.ProgressBar1.Value = 0
    On Error GoTo errer
    ff = FreeFile
    Open App.Path & "\Logs\Traffic\" & AscDate & ".txt" For Input As #ff
    Do While EOF(ff) = False
        Line Input #ff, strInput
        num1 = InStr(1, strInput, "]") + 1
        strTemp = Mid$(strInput, 2, num1 - 3)
        Timestamp = strTemp
        num2 = InStr(1, strInput, " -")
        strTemp = Mid$(strInput, num1 + 1, num2 - num1)
        Severity = strTemp
        num1 = InStr(1, strInput, "- ") + 2
        num2 = Len(strInput)
        strTemp = Mid$(strInput, num1, num2 - num1)
        Description = strTemp
        Set Item = lvLog.ListItems.Add()
        Item.Text = Timestamp
        Item.SubItems(1) = Severity
        Item.SubItems(2) = Description
        DoEvents
        frmMain.ProgressBar1.Value = frmMain.ProgressBar1.Value + 1
        DoEvents
    Loop
    Close #ff
    frmMain.ProgressBar1.Value = 100
errer:
End Sub
Private Sub Form_Unload(Cancel As Integer)
    frmMain.ProgressBar1.Visible = False
End Sub
Private Sub lvLog_ItemClick(ByVal Item As MSComctlLib.ListItem)
    txtDesc.Text = Item.SubItems(2)
End Sub