窗体代码:
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
