Herramientas MSN en VB

Bueno, yo hice uno, como quien dice...a lo "BRUTO" osea, no usa nada de eso Grin

Solo un par de sentencias brutas, es un experimento, osea, ya se q es posible hacerlo con la api, pero lo hixe con el famoso SendKeys(aglo <<estupido>>, pero anda)

Te paso el code...
Nota:Tiene 2 opciones, una tiene cargado algun inicio automatico, y el otro, por si es una entrada de sesion manual:
Nota2:Necesita 3 timers y dos command's button's:

Private Sub Command1_Click()
Timer2.Enabled = True
End Sub

Private Sub Command2_Click()
Timer3.Enabled = True
End Sub

Private Sub e_Click(Index As Integer)
ayuda.Show 1
End Sub

Private Sub Form_Load()
Timer2.Enabled = False
Timer1.Enabled = False
Timer4.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Timer1_Timer()
SendKeys "%(a)"
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Right}", True
SendKeys "{UP}", True
SendKeys "{Enter}", True
Timer1.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
SendKeys "%(a)"
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Right}", True
SendKeys "{Enter}", True
Timer2.Enabled = False
Timer1.Enabled = True
End Sub

Private Sub Timer3_Timer()
SendKeys "%(a)"
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Right}", True
SendKeys "{Enter}", True
Timer3.Enabled = False
Timer4.Enabled = True
End Sub

Private Sub Timer4_Timer()
SendKeys "%(a)"
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{UP}", True
SendKeys "{Enter}", True
Timer4.Enabled = False
Timer3.Enabled = True
End Sub

No acepto criticas Grin

ByTeS

jeje se me ocurrio hacerme uno gracias a tu pregunta

che te paso el code y anda muyyy bien jeje

Primero tenes que ir a proyecto>agregar referencia
y despues activa la casilla de Messenger API type library

y despues pone 3 command buttons y 1 timer y 1 label

y

Public WithEvents msn As MessengerAPI.Messenger

Private Sub Command1_Click()
If Label1.Caption = "parado" Then
Set msn = New MessengerAPI.Messenger
Timer1.Enabled = True
Label1.Caption = "funcionando"
Command2.Enabled = True
Command1.Visible = False
Command3.Visible = True
End If
End Sub

Private Sub Command2_Click()
If Label1.Caption = "funcionando" Then
Command3.Enabled = True
Command2.Enabled = False
Timer1.Enabled = False
Label1.Caption = "parado"
End If
End Sub

Private Sub Command3_Click()
If Label1.Caption = "parado" Then
Timer1.Enabled = True
Label1.Caption = "funcionando"
Command2.Enabled = True
Command3.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()
If msn.MyStatus = MISTATUS_ONLINE Or MISTATUS_AWAY Or MISTATUS_BE_RIGHT_BACK Or MISTATUS_BUSY Or MISTATUS_IDLE Or MISTATUS_OUT_TO_LUNCH Or MISTATUS_ON_THE_PHONE Or MISTATUS_UNKNOWN Then
msn.MyStatus = MISTATUS_INVISIBLE
End If
If msn.MyStatus = MISTATUS_INVISIBLE Then
msn.MyStatus = MISTATUS_ONLINE
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "Flooder hecho por La Caca"
End Sub

y listo un buen FLOODER (pero es muy basico porque lo hice antes de comer en 1 segundo)

jE JE JE, siempre lo mismo, "lo hixe en un segundo" asi las cosas no van...igual esta weno, es bastante facil de realizar, revisate esta url, y tambien ta wena:

http://www.canalvisualbasic.net/recursos/vermensaje.asp?idMensaje=137

ByteS

che la hice mas corta mira

Public WithEvents msn As MessengerAPI.Messenger
Private Sub Command1_Click()
If Label1.Caption = "parado" Then
Timer1.Enabled = True
Label1.Caption = "funcionando"
Command1.Caption = "Parar!"
ElseIf Label1.Caption = "funcionando" Then
Timer1.Enabled = False
Label1.Caption = "parado"
Command1.Caption = "Empezar!"
End If
End Sub

Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "Flooder hecho por La Caca"
End Sub

Private Sub Timer1_Timer()
If msn.MyStatus = MISTATUS_ONLINE Or MISTATUS_AWAY Or MISTATUS_BE_RIGHT_BACK Or MISTATUS_BUSY Or MISTATUS_IDLE Or MISTATUS_OUT_TO_LUNCH Or MISTATUS_ON_THE_PHONE Or MISTATUS_UNKNOWN Then
msn.MyStatus = MISTATUS_INVISIBLE
End If
If msn.MyStatus = MISTATUS_INVISIBLE Then
msn.MyStatus = MISTATUS_ONLINE
End If
End Sub

solo necesitas 1 command button y 1 label

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Agosto 20, 2008, 09:46:25 Boton Buscar