NukeNabber

Private Sub Form_Load()
Winsock1.LocalPort = 12345
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest_
(ByVal requestID as Long)
MsgBox "Possibile attacco NetBus Trojan da " + _
Winsock1.RemoteHostIP + _
"Attacco Neutralizzato!",vbinfomation + vbOkOnly
End Sub