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