📄 frmmain.frm
字号:
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 6
Left = 2385
TabIndex = 29
Top = 840
Width = 2835
End
Begin VB.Label Label7
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
Height = 240
Index = 5
Left = 825
TabIndex = 28
Top = 810
Width = 2835
End
Begin VB.Label Label7
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
Height = 240
Index = 4
Left = 2385
TabIndex = 27
Top = 615
Width = 6390
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "PID: "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 3
Left = 825
TabIndex = 26
Top = 615
Width = 2835
End
Begin VB.Label Label7
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
Height = 240
Index = 2
Left = 825
TabIndex = 25
Top = 420
Width = 1545
End
Begin VB.Label Label7
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
Height = 240
Index = 1
Left = 825
TabIndex = 24
Top = 240
Width = 5790
End
Begin VB.Label Label7
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
Height = 255
Index = 0
Left = 825
TabIndex = 23
Top = 60
Width = 2835
End
Begin ComctlLib.ImageList Iml16
Left = 3945
Top = 1620
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
Begin ComctlLib.ImageList ImageList2
Left = 3225
Top = 1590
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Begin Firewall.UserControl3 UserControl31
Height = 2940
Left = 0
TabIndex = 1
Top = 2610
Width = 2715
_ExtentX = 4789
_ExtentY = 5186
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "程序信息:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 210
Left = 75
TabIndex = 36
Top = 2730
Width = 1455
End
End
Begin Firewall.UserControl2 UserControl21
Height = 4995
Index = 0
Left = 2715
TabIndex = 0
Top = 555
Width = 6585
_ExtentX = 11615
_ExtentY = 8811
Begin VB.PictureBox Picture4
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 465
Left = 690
ScaleHeight = 435
ScaleWidth = 4890
TabIndex = 48
Top = 945
Visible = 0 'False
Width = 4920
Begin VB.Label Label17
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "未发现连接"
BeginProperty Font
Name = "Tahoma"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 60
TabIndex = 49
Top = 45
Width = 4740
End
End
Begin Firewall.UserControl7 UserControl72
Height = 360
Left = 4920
TabIndex = 16
Top = 4440
Width = 1575
_ExtentX = 2778
_ExtentY = 635
Hold_Caption = "关闭连接 "
Hold_Enabled = 0 'False
End
Begin Firewall.UserControl7 UserControl71
Height = 360
Left = 3360
TabIndex = 15
Top = 4440
Width = 1455
_ExtentX = 2566
_ExtentY = 635
Hold_Caption = "关闭程序 "
Hold_Enabled = 0 'False
End
Begin ComctlLib.ListView ListView1
Height = 3375
Left = 240
TabIndex = 14
Top = 405
Width = 6255
_ExtentX = 11033
_ExtentY = 5953
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
HideColumnHeaders= -1 'True
_Version = 327682
Icons = "Iml16"
SmallIcons = "ImageList2"
ForeColor = -2147483640
BackColor = 16777215
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 2
BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = ""
Object.Width = 7832
EndProperty
BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 1
Key = ""
Object.Tag = ""
Text = ""
Object.Width = 7832
EndProperty
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "个人防火墙监视中..."
BeginProperty Font
Name = "Tahoma"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 360
Left = 255
TabIndex = 7
Top = 30
Width = 5310
End
Begin VB.Line Line1
BorderColor = &H00808080&
X1 = 255
X2 = 5805
Y1 = 360
Y2 = 360
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/06/11
'描 述：很专业的个人防火墙
'网 站：http://www.mndsoft.com/
'e-mail：mnd@mndsoft.com
'OICQ : 88382850
'****************************************************************************
Option Explicit
Private m_objIpHelper As CIpHelper
Dim oOld As Long
Dim oNew As Long
Dim aOld As Long
Dim aNew As Long
Dim objInterface2 As CInterface
Dim obJHelper As CInterface
Dim tValue As Long
Dim aValue As Long
Public Unloaded As Boolean
Private Processing As Boolean
Private IsOnline As Boolean
Private TVHost As Long
Private TVPath As String
Private TVTAG As Long
Private TVPI As Long
Public iphDNS As New CDictionary
Public Pub_BlockAll As Boolean
Dim xfrmAttempt As New frmAttempt
Public CurrentProcessing As String
Public Firewall_Enabled As Boolean
Public HideMe As Integer
Private Sub Exit_Click()
Unload Me
End Sub
Public Sub RefreshList()
Dim i
Dim Item As ListItem
If IsOnline = False Then Exit Sub
If Unloaded = True Then Exit Sub
Processing = True
RefreshStack
DoEvents
LoadNTProcess
DoEvents
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -