📄 frmmain.frm
字号:
Left = 4800
TabIndex = 38
Top = 360
Width = 3855
End
End
Begin VB.Frame Frame5
BorderStyle = 0 'None
Height = 5655
Left = 240
TabIndex = 51
Top = 600
Visible = 0 'False
Width = 8895
Begin VB.TextBox txtIPLog
Appearance = 0 'Flat
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 0
TabIndex = 54
Top = 260
Width = 2535
End
Begin VB.ComboBox cmbInterface
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2760
Style = 2 'Dropdown List
TabIndex = 53
Top = 260
Width = 2550
End
Begin prjNetStat.lvButtons_H cmdStartLog
Height = 375
Left = 5640
TabIndex = 55
Top = 240
Width = 1335
_ExtentX = 2355
_ExtentY = 661
Caption = "开始"
CapAlign = 2
BackStyle = 3
Shape = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 2
Value = 0 'False
cBack = -2147483633
End
Begin prjNetStat.lvButtons_H cmdStopLog
Height = 375
Left = 6600
TabIndex = 56
Top = 240
Width = 1335
_ExtentX = 2355
_ExtentY = 661
Caption = "停止"
CapAlign = 2
BackStyle = 3
Shape = 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 2
Value = -1 'True
cBack = -2147483633
End
Begin prjNetStat.lvButtons_H cmdClearPacket
Height = 375
Left = 7560
TabIndex = 57
Top = 240
Width = 1335
_ExtentX = 2355
_ExtentY = 661
Caption = "清除"
CapAlign = 2
BackStyle = 3
Shape = 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
cGradient = 0
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin MSComctlLib.ListView lstPacket
Height = 4335
Left = 0
TabIndex = 52
ToolTipText = "当前TCP连接."
Top = 720
Width = 8895
_ExtentX = 15690
_ExtentY = 7646
View = 3
Arrange = 1
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
PictureAlignment= 2
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
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 = 0
End
Begin VB.Label Label5
Caption = "过滤:"
Height = 255
Left = 0
TabIndex = 77
Top = 0
Width = 1215
End
End
Begin VB.Label lblStatus
Alignment = 1 'Right Justify
Height = 255
Left = 135
TabIndex = 11
Top = 0
Width = 9135
End
Begin VB.Menu mnFile
Caption = "文件(&F)"
Begin VB.Menu mnRegClean
Caption = "|清除注册表中所有防火墙的数据|清除注册表(&R)"
End
Begin VB.Menu mnSep0
Caption = "-"
Index = 0
End
Begin VB.Menu mnCloseAll
Caption = "|关闭防火墙|关闭(&C)"
End
End
Begin VB.Menu mnView
Caption = "视图(&V)"
Begin VB.Menu mnViewTCP
Caption = "|View all current TCP Connections|TCP连接信息(&T)"
End
Begin VB.Menu mnViewUDP
Caption = "|View all current UDP Connections|UDP连接信息(&U)"
End
Begin VB.Menu mnViewPrograms
Caption = "|View all Programs and their rules|程序列表(&P)"
End
Begin VB.Menu mnViewOptions
Caption = "|View Program Options|选项(&O)"
End
Begin VB.Menu mnViewPackets
Caption = "|View packets in real time as they are sent/received|抓包(&P)"
End
End
Begin VB.Menu mnPopup
Caption = "Popup"
Visible = 0 'False
Begin VB.Menu mnPopShow
Caption = "隐藏(&H)"
End
Begin VB.Menu mnChar
Caption = "(-)退出"
End
Begin VB.Menu mnPopExit
Caption = "退出(&E)"
End
End
Begin VB.Menu mnRightClick
Caption = "Right Click Menu"
Visible = 0 'False
Begin VB.Menu mnInformation
Caption = "|View Information about this Connection|信息视图(&I)"
End
Begin VB.Menu mnCopyInfo
Caption = "|Copy various information about this connection to the clipboard.|复制(&C)"
Begin VB.Menu mnCopyRemoteIP
Caption = "远程IP地址"
End
Begin VB.Menu mnCopyLocalIP
Caption = "本地IP地址"
End
Begin VB.Menu mnSep3
Caption = "(-)程序"
End
Begin VB.Menu mnCopyProgName
Caption = "程序名称"
End
Begin VB.Menu mnCopyProgLoc
Caption = "程序路径"
End
End
Begin VB.Menu mnPacketSniff
Caption = "|Sniff packets on this connection.|抓包(&P)"
Begin VB.Menu mnLocalIP
Caption = "|Sniff Connection using Local IP as filter.|本地IP地址(&L)"
End
Begin VB.Menu mnSniffRemote
Caption = "|Sniff Connection using Remote IP as filter.|远程IP地址(&R)"
End
End
Begin VB.Menu mnClose
Caption = "|Close|关闭.."
Begin VB.Menu mnCloseProgram
Caption = "|Close the owner process.|关闭程序(&P)"
End
Begin VB.Menu mnCloseConnection
Caption = "|Close this current connection.|关闭连接(&L)"
End
Begin VB.Menu mnSep1
Caption = "-"
End
Begin VB.Menu mnCloseBoth
Caption = "|Close both the program and connection.|全部关闭(&B)"
End
End
End
Begin VB.Menu mnHex
Caption = "mnHex"
Visible = 0 'False
Begin VB.Menu mnHexView
Caption = "|在新窗口中显示数据.|视图(&V)"
Begin VB.Menu mnViewHex
Caption = "|在新窗口里显示十六进制数据.|H&ex"
End
Begin VB.Menu mnViewText
Caption = "|在新窗口里显示文本数据.|Te&xt"
End
End
Begin VB.Menu mnCopy
Caption = "|复制数据到剪切板.|复制(&C)"
Begin VB.Menu mnCopyText
Caption = "|复制文本到剪切板.|文本(&T)"
End
Begin VB.Menu mnCopyHex
Caption = " |复制到剪切板.|十六进制(&H)"
End
End
End
Begin VB.Menu mnHelpMenu
Caption = "帮助(&H)"
Begin VB.Menu mnAbout
Caption = "|防火墙的有关信息显示.|关于(&A)"
End
Begin VB.Menu mnHelpSep
Caption = "(-)Help"
End
Begin VB.Menu mnHelp
Caption = "|程序帮助|帮助(&H)"
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2006/12/23
'描 述：非常专业的防火墙源代码
'网 站：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
'Threading = http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=26900&lngWId=1
Private WithEvents FormAlert As MThreadVB.Thread
Attribute FormAlert.VB_VarHelpID = -1
Private WithEvents pThread As MThreadVB.Thread
Attribute pThread.VB_VarHelpID = -1
Private ProtocolBuilder As clsProtocolInterface
Private WithEvents TCPDriver As clsTCPProtocol
Attribute TCPDriver.VB_VarHelpID = -1
Private WithEvents UDPDriver As clsUDPProtocol
Attribute UDPDriver.VB_VarHelpID = -1
Private WithEvents IPInformation As clsIPInfo
Attribute IPInformation.VB_VarHelpID = -1
Private WithEvents HelpObj As clsHelpCallBack
Attribute HelpObj.VB_VarHelpID = -1
Private sLoggingConnection As String
Private lstMenu As ListView
Private iCurrentIcon As Integer
Sub ShowBarForm(ModalFlag As Variant)
FormAlert.ObjectInThreadContext.ShowFormNow 1
End Sub
Sub ShowFormNow(ModalFlag As Long)
FrmBar.Show
End Sub
Sub ShowThreadForm(ModalFlag As Variant)
pThread.ObjectInThreadContext.ShowThreadNow 1
End Sub
Sub ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -