frmalert.frm

来自「支持监控包括传输控制协议和 UDP 的所有的互联网传输协议。同时程序具有实时文件」· FRM 代码 · 共 628 行 · 第 1/2 页

      Height          =   1335
      Left            =   210
      TabIndex        =   16
      Top             =   5160
      Width           =   5535
   End
   Begin VB.Shape Shape5 
      BorderColor     =   &H00000000&
      BorderStyle     =   3  'Dot
      FillColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   120
      Shape           =   4  'Rounded Rectangle
      Top             =   5040
      Width           =   5775
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackColor       =   &H80000001&
      BackStyle       =   0  'Transparent
      Caption         =   "建议:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   180
      Left            =   360
      TabIndex        =   8
      Top             =   3285
      Width           =   495
   End
   Begin VB.Shape Shape4 
      BorderColor     =   &H00000000&
      BorderStyle     =   3  'Dot
      Height          =   855
      Left            =   120
      Shape           =   4  'Rounded Rectangle
      Top             =   3480
      Width           =   5415
   End
   Begin VB.Label lblRecommendation 
      BackStyle       =   0  'Transparent
      Caption         =   "(无!) 当前应该程序无有效可用信息."
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   615
      Left            =   240
      TabIndex        =   7
      Top             =   3600
      Width           =   5175
   End
   Begin VB.Label lblDetails 
      AutoSize        =   -1  'True
      BackColor       =   &H80000016&
      BackStyle       =   0  'Transparent
      Caption         =   "详细信息:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   360
      TabIndex        =   6
      Top             =   45
      Width           =   885
   End
   Begin VB.Shape Shape3 
      BorderStyle     =   3  'Dot
      Height          =   855
      Left            =   120
      Shape           =   4  'Rounded Rectangle
      Top             =   240
      Width           =   5775
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackColor       =   &H80000016&
      BackStyle       =   0  'Transparent
      Caption         =   "程序信息:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004000&
      Height          =   180
      Left            =   360
      TabIndex        =   5
      Top             =   2205
      Width           =   885
   End
   Begin VB.Shape Shape2 
      BorderStyle     =   3  'Dot
      Height          =   855
      Left            =   120
      Shape           =   4  'Rounded Rectangle
      Top             =   2400
      Width           =   5775
   End
   Begin VB.Label lblAppAdvice 
      BackStyle       =   0  'Transparent
      Caption         =   "(无!) 当前应该程序无有效可用信息..      (提醒度: 小心使用!)"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   615
      Left            =   240
      TabIndex        =   4
      Top             =   2520
      Width           =   5535
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H80000016&
      BackStyle       =   0  'Transparent
      Caption         =   "公共程序端口:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   180
      Left            =   360
      TabIndex        =   3
      Top             =   1125
      Width           =   1275
   End
   Begin VB.Shape Shape1 
      BorderStyle     =   3  'Dot
      Height          =   855
      Left            =   120
      Shape           =   4  'Rounded Rectangle
      Top             =   1320
      Width           =   5775
   End
   Begin VB.Label Advice 
      BackStyle       =   0  'Transparent
      Caption         =   "(未知!) 端口1024至29151之间是已知注册的端口。基本上，程序应该使用这些，同时避免产生端口占用冲突。"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   240
      TabIndex        =   2
      Top             =   1440
      Width           =   5535
   End
   Begin VB.Label lblDESC 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "应用程序是从一个连接或者尝试连接到远程主机地址，并且使用一个端口。你确认要让这个程序从远程进行连接本地网络吗？"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   735
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   5535
   End
End
Attribute VB_Name = "frmAlert"
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()
    Dim i          As Long
    Dim TagSplit() As String
    If Check1.Value = vbChecked Then
        '允许程序写规则
        cINIFile.Section = "RULES"
        TagSplit = Split(Tag, ",")
        cINIFile.Key = TagSplit(2)
        cINIFile.Value = "2"
        'Now set the icon
        For i = 1 To frmMain.lvFirewall.ListItems.Count
            If frmMain.lvFirewall.ListItems(i).SubItems(2) = TagSplit(2) Then
                frmMain.lvFirewall.ListItems(i).SmallIcon = 3
                Exit For
            End If
        Next i
    End If
    Unload Me
End Sub

Private Sub Command2_Click()
    Dim i          As Long
    Dim TagSplit() As String
    Dim PID        As Long
    TagSplit = Split(Tag, ",")
    If Check1.Value = vbChecked Then
        'WRITE Rule BLOCKING program
        cINIFile.Section = "RULES"
        cINIFile.Key = TagSplit(2)
        cINIFile.Value = "1"
        For i = 1 To frmMain.lvFirewall.ListItems.Count
            If frmMain.lvFirewall.ListItems(i).SubItems(2) = TagSplit(2) Then
                frmMain.lvFirewall.ListItems(i).SmallIcon = 2
                Exit For
            End If
        Next i
    End If
    PID = TagSplit(1)
    CloseConnection PID, Connection(PID).Filename
    'KillProcessById Connection(PID).ProcessID
    Unload Me
End Sub

Private Sub Form_Load()
' Set Form to hide help section so not to bother user
    Me.Height = "5370"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim TagSplit() As String
    Dim PID        As Long
    TagSplit = Split(Tag, ",")
    PID = TagSplit(0)
    mdlProcess1.ResumeThreads PID
    AlertWindows = Replace$(AlertWindows, "-=" & TagSplit(2) & "=-", vbNullString)
End Sub

Private Sub Picture1_Click(Index As Integer)
    Me.Height = "7230"
    Select Case Index
        Case 0
        Label5.Caption = "这是什么? (详情):"
        Label4.Caption = "当有数据传输或者有计算机尝试连接到你的计算机时候，可以显示这个连接程序的完整详细信息。"
        Picture2.ToolTipText = "隐藏当前帮助? (详情)"
        Case 1
        Label5.Caption = "这是什么? (共用程序的端口):"
        Label4.Caption = "显示使用当前端口进行连接的允许应用程序。这表明这个端口的作用，但是端口也可能被其他程序卸载。"
        Picture2.ToolTipText = "隐藏当前帮助? (共用程序的端口)"
        Case 2
        Label5.Caption = "这是什么? (应用程序信息):"
        Label4.Caption = "获取当前连接的应用程序的有关详细信息。"
        Picture2.ToolTipText = "隐藏当前帮助? (应用程序信息)"
        Case 3
        Label5.Caption = "这是什么? (建议信息):"
        Label4.Caption = "如果当前连接的应用程序尝试建立一个连接，则进行显示和提醒(比如安全与否，或者当心使用等温情提示)。"
        Picture2.ToolTipText = "隐藏当前帮助? (建议信息)"
    End Select
End Sub

Private Sub Picture2_Click()
' Hide What is this? information
    Me.Height = "5370"
End Sub