Indetectables

Sanlegas escribió:esto es pan comido

viendo el source del msn kick:

CommandXP1.Enabled = False
Clipboard.Clear
AppActivate "Conversación"
Sleep "50"
For i = 1 To 300
SendKeys "^v"
SendKeys "{ENTER}"
Next i
CommandXP1.Enabled = True

solo le modificamos la linea de la aplicacion activa

AppActivate "Conversación"

lo modificamos a:

AppActivate "@hotmail.com>"

pero solo eso funcionaria para el msn 2009, para que funcione en el 2009 y en las versiones pasadas solo agregamos dos veces las lines de codigo con un resumidor de procesos:

on error resume next
CommandXP1.Enabled = False
Clipboard.Clear
AppActivate "Conversación"
Sleep "50"
For i = 1 To 300
SendKeys "^v"
SendKeys "{ENTER}"
Next i

Clipboard.Clear
AppActivate "@hotmail.com>"
Sleep "50"
For i = 1 To 300
SendKeys "^v"
SendKeys "{ENTER}"
Next i
CommandXP1.Enabled = True
exit sub

salu2