Bueno, este sencillo código intenta imitar las verificaciones al estilo MSN para vuestros troyanos.
-Añadimos un Form y lo llamamos FrmEvent
-Añadimos un 2 timers con sus nombres predeterminados de intervalo 1 y en enabled = False y el Timer 2 de intervalo 6000
-BorderStyle = 3
-Controlbox = False
-Caption = "" es decir nada de titulo.
-Ahora lo ajustáis como querais...grande...pequeño etc...
-Ponéis un Label con su nombre predeterminado
-Ahora damos click al form y ponemos
Private Sub Form_Load()
Me.Height = "0"
End Sub
Private Sub Timer1_Timer()
Me.Height = Me.Height + 5
If Me.Height = "1155" Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
Unload Me
End Sub
y en el cliente, es decir donde llamais ala ventana cuando se conecte alguien haceis,
Public Function EventMSN(Victima as String)
FrmEvent.Label1.Caption = Victima
FrmEvent.Timer1.Enabled = True
End Function
Ahora ajustad el form para que se abra donde queráis, lo hice porque me aburría !! Se aceptan criticas...