jiangchao121
注册用户
积分 118
发帖 118
注册 2007-5-26
|
#1 [VB]非常优秀而且稳定的防火墙代码<转>
在TT86发现此贴,特与大家分享!
窗体代码:
Public t As Long
Public RemA As String
Public RemP As String
Public LocP As String
Public b_Type As Integer
Private Sub Command1_Click()
modReg.bSetRegValue HKEY_LOCAL_MACHINE, SREG & "\block\ip", RemA, "1"
frmMain.RefreshTable True
Log RemA, RemP, LocP, "blocked ip"
frmMain.ShiftAlertList t
Unload Me
End Sub
Private Sub Command2_Click()
modReg.bSetRegValue HKEY_LOCAL_MACHINE, SREG & "\block\ip", RemA, "0"
modReg.bSetRegValue HKEY_LOCAL_MACHINE, SREG & "\block\rp", RemP, "0"
modReg.bSetRegValue HKEY_LOCAL_MACHINE, SREG & "\block\lp", LocP, "0"
Log RemA, RemP, LocP, "allowed connection"
frmMain.ShiftAlertList t
Unload Me
End Sub
Private Sub Command3_Click()
modReg.bSetRegValue HKEY_LOCAL_MACHINE, SREG & "\block\rp", RemP, "1"
frmMain.RefreshTable True
Log RemA, RemP, LocP, "blocked remote port"
frmMain.ShiftAlertList t
Unload Me
End Sub
Private Sub Command4_Click()
modReg.bSetRegValue HKEY_LOCAL_MACHINE, SREG & "\block\lp", LocP, "1"
frmMain.RefreshTable True
Log RemA, RemP, LocP, "blocked local port"
frmMain.ShiftAlertList t
Unload Me
End Sub
Private Sub Command5_Click()
modReg.bSetRegValue HKEY_LOCAL_MACHINE, SREG & "\block\lp", LocP, "1"
modReg.bSetRegValue HKEY_LOCAL_MACHINE, SREG & "\block\rp", RemP, "1"
modReg.bSetRegValue HKEY_LOCAL_MACHINE, SREG & "\block\ip", RemA, "1"
frmMain.RefreshTable True
Log RemA, RemP, LocP, "blocked all"
frmMain.ShiftAlertList t
Unload Me
End Sub
Private Sub Form_Load()
Me.Show
WindowPos Me, 1
SetFGWindow Me.hwnd, True
DoEvents
Me.Left = Screen.Width / 2 - Me.Width / 2
Me.Top = Screen.Height / 2 - Me.Height / 2
Select Case b_Type
Case 1
tro = frmMain.GetTrojan(LocP)
If tro = "" Then tro = frmMain.GetTrojan(RemP)
If tro = "" Then tro = "[none]"
tro = tro & vbCrLf & vbCrLf
Label1 = RemA & " has tried to access port " & LocP & " form remote port " & RemP & _
"." & vbCrLf & vbCrLf & "Suspected trojans on this port:" & vbCrLf & tro & "would you like to block this computer?"
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmMain.ShiftAlertList t
End Sub
还有窗口代码,因为长度的限制,就没发出来,不过大家可以去下面的地址看看
原贴地址:http://bbs.tt86.com/read.php?tid=5027270
[ Last edited by jiangchao121 on 2008-4-13 at 14:01 ]
| |
※ ※ ※ 本文纯属【jiangchao121】个人意见，与【 微点交流论坛 】立场无关※ ※ ※
|
 |
|
