frmservicealertport.frm

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

VERSION 5.00
Begin VB.Form frmServiceAlertPort 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "警示 - 可疑端口"
   ClientHeight    =   4980
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6150
   Icon            =   "frmServiceAlertPort.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmServiceAlertPort.frx":0442
   ScaleHeight     =   332
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   410
   StartUpPosition =   2  '屏幕中心
   Begin OnIt_Pro_Firewall.CandyButton CandyButton2 
      Height          =   495
      Left            =   4800
      TabIndex        =   7
      Top             =   4440
      Width           =   1215
      _extentx        =   2143
      _extenty        =   873
      font            =   "frmServiceAlertPort.frx":7A3B
      caption         =   "允许"
      captionhighlitecolor=   0
      iconhighlitecolor=   0
      checked         =   0   'False
      colorbuttonhover=   160
      colorbuttonup   =   128
      colorbuttondown =   240
      colorbright     =   255
      borderbrightness=   0
      displayhand     =   0   'False
      colorscheme     =   4
   End
   Begin OnIt_Pro_Firewall.CandyButton CandyButton1 
      Height          =   495
      Left            =   3480
      TabIndex        =   6
      Top             =   4440
      Width           =   1215
      _extentx        =   2143
      _extenty        =   873
      font            =   "frmServiceAlertPort.frx":7A5F
      caption         =   "阻止"
      captionhighlitecolor=   0
      iconhighlitecolor=   0
      checked         =   0   'False
      colorbuttonhover=   160
      colorbuttonup   =   128
      colorbuttondown =   240
      colorbright     =   255
      borderbrightness=   0
      displayhand     =   0   'False
      colorscheme     =   4
   End
   Begin VB.CheckBox Check2 
      BackColor       =   &H000000C0&
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   4560
      Width           =   255
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "记住当前回答，下次不要再问"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   480
      TabIndex        =   5
      Top             =   4605
      Width           =   2895
   End
   Begin VB.Shape Shape2 
      BorderColor     =   &H00FFFFFF&
      BorderStyle     =   3  'Dot
      Height          =   1335
      Left            =   120
      Shape           =   4  'Rounded Rectangle
      Top             =   3000
      Width           =   5895
   End
   Begin VB.Label Label3 
      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       =   &H00FFFFFF&
      Height          =   255
      Left            =   480
      TabIndex        =   4
      Top             =   45
      Width           =   900
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00FFFFFF&
      BorderStyle     =   3  'Dot
      Height          =   2175
      Left            =   120
      Shape           =   4  'Rounded Rectangle
      Top             =   240
      Width           =   5895
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   $"frmServiceAlertPort.frx":7A83
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1095
      Left            =   240
      TabIndex        =   2
      Top             =   3120
      Width           =   5655
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "这个提示是告诉用户需要注意什么?"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   360
      TabIndex        =   1
      Top             =   2805
      Width           =   3615
   End
   Begin VB.Label lblDesc 
      BackStyle       =   0  'Transparent
      Caption         =   $"frmServiceAlertPort.frx":7B69
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1935
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   5655
   End
End
Attribute VB_Name = "frmServiceAlertPort"
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 CandyButton1_Click()
    If Check2.Value = vbChecked Then
        With cINIFile
            .Section = "NETWORKING"
            .Key = Tag
            .Value = "2"
        End With 'cINIFile
    End If
    Unload Me
End Sub

Private Sub CandyButton2_Click()
    If Check2.Value = vbChecked Then
        With cINIFile
            .Section = "NETWORKING"
            .Key = Tag
            .Value = "0"
        End With 'cINIFile
    End If
    Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ServiceAlert = Replace$(ServiceAlert, "-=" & lblDESC.Tag & Tag & "=-", vbNullString)
End Sub
''Private Sub Check1_Click()
''
''
''
''
''' cINIFile.Section = "ALLOWALL"
''' cINIFile.Key = "ADP"
''' If Check1.Value = 1 Then
'''     cINIFile.Value = "YES"
''' Else
'''     cINIFile.Value = "NO"
''' End If
''End Sub
''