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 |