📄 frmoptions.frm
字号:
Left = 5520
Picture = "frmOptions.frx":2013
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 33
Top = 1080
Width = 240
End
Begin VB.CheckBox Check7
Caption = "如果监控程序发生改变则进行报警."
ForeColor = &H00004000&
Height = 255
Left = 360
TabIndex = 32
Top = 3000
Width = 5895
End
Begin VB.CheckBox Check6
Caption = "禁止通信流量记录"
ForeColor = &H00004000&
Height = 255
Left = 360
TabIndex = 31
Top = 2040
Width = 5895
End
Begin VB.CheckBox Check5
Caption = "自动允许已知安全程序运行"
ForeColor = &H00004000&
Height = 255
Left = 360
TabIndex = 30
Top = 2520
Width = 5895
End
Begin MSComctlLib.ListView lvwPort
Height = 3015
Left = -74880
TabIndex = 26
Top = 1200
Width = 6255
_ExtentX = 11033
_ExtentY = 5318
View = 3
LabelWrap = -1 'True
HideSelection = -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 = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "端口号"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "描述"
Object.Width = 26458
EndProperty
End
Begin VB.CheckBox Check4
Caption = "禁止端口监控"
ForeColor = &H00004000&
Height = 255
Left = 360
TabIndex = 19
Top = 1560
Width = 5895
End
Begin VB.CheckBox Check3
Caption = "禁止 IP 监控"
ForeColor = &H00004000&
Height = 255
Left = 360
TabIndex = 18
Top = 1080
Width = 5895
End
Begin VB.CheckBox Check2
Caption = "全部允许"
Height = 255
Left = -71640
TabIndex = 17
Top = 840
Width = 1815
End
Begin VB.CheckBox Check1
Caption = "全部允许"
Height = 255
Left = -71640
TabIndex = 16
Top = 840
Width = 1815
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 5
Left = -69240
Picture = "frmOptions.frx":243B
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 15
Top = 480
Width = 240
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 0
Left = -69360
Picture = "frmOptions.frx":2863
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 14
Top = 480
Width = 240
End
Begin VB.CommandButton Command1
Caption = "添加"
Height = 255
Index = 2
Left = -72360
TabIndex = 13
Top = 840
Width = 615
End
Begin VB.CommandButton Command1
Caption = "添加"
Height = 255
Index = 0
Left = -72360
TabIndex = 12
Top = 840
Width = 615
End
Begin VB.TextBox frmOptionsTxt
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = -74760
TabIndex = 11
Text = "0"
Top = 840
Width = 2295
End
Begin VB.TextBox OptionsTxt
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = -74760
TabIndex = 10
Text = "127.0.0.1"
Top = 840
Width = 2295
End
Begin MSComctlLib.ListView frmOptionsListView
Height = 3015
Left = -74880
TabIndex = 20
Top = 1200
Width = 6255
_ExtentX = 11033
_ExtentY = 5318
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HoverSelection = -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 = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "端口号:"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "规则:"
Object.Width = 2540
EndProperty
End
Begin MSComctlLib.ListView OptionsListView
Height = 3015
Left = -74880
TabIndex = 25
Top = 1200
Width = 6255
_ExtentX = 11033
_ExtentY = 5318
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HoverSelection = -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 = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "IP 地址:"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "规则:"
Object.Width = 2540
EndProperty
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "公用端口号和描述"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Index = 2
Left = -74880
TabIndex = 24
Top = 480
Width = 6015
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "防火墙高级规则配置"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Index = 0
Left = 120
TabIndex = 23
Top = 480
Width = 6015
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "基于端口进行设置是否阻止通信数据规则:"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Index = 1
Left = -74880
TabIndex = 22
Top = 480
Width = 6015
End
Begin VB.Label OptionsLbl1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "基于IP地址进行设置是否阻止通信数据规则:"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 375
Index = 0
Left = -74640
TabIndex = 21
Top = 480
Width = 5535
End
End
Begin VB.Menu mnuRules
Caption = "mnuRules"
Visible = 0 'False
Begin VB.Menu mnuRulesTRUST
Caption = "TRUST"
End
Begin VB.Menu mnuRulesBLOCK
Caption = "BLOCK"
End
Begin VB.Menu mnuRulesASK
Caption = "ASK"
End
End
End
Attribute VB_Name = "frmOptions"
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 ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit
Private Item As ListItem
Private StrParse() As String
Private i As Long
Private tmpFileName As String
Private PortN As String
Private Description As String
Private Sub Check1_Click()
Check1.Enabled = False
cINIFile.Section = "ALLOWALL"
cINIFile.Key = "AD"
If Check1.Value = 1 Then
cINIFile.Value = "YES"
Check3.Value = 1
Else
cINIFile.Value = "NO"
Check3.Value = 0
End If
Check1.Enabled = True
'updateCheckBoxex
End Sub
Private Sub Check2_Click()
Check2.Enabled = False
cINIFile.Section = "ALLOWALL"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -