ESTE es un code de un programa para blokear el msn temporalmente :shocked:
Dim ti As Integer
Public WithEvents MSN As MessengerAPI.MessengerNative
Private Sub Command1_Click()
ti = 0
Dim password As String
Dim usuario As String
password = "hola"
usuario = Text1.Text
MSN.Signin 0, usuario, password
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Set MSN = New MessengerAPI.MessengerNative
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 = Text1.Text
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys usuario
SendKeys "{tab}"
SendKeys password
SendKeys "{enter}"
End If
End Sub
Muy bien felicitaciones...
Está hecho en VB 6.0?
Y que botones lleva?
Da mas especificaciones acerca de tu proyecto...
Tambien diga si lo ha creado usted o si lo bajaste de algun lado!!
Felices fiestas ;)
si es de vb 6
y lleva los siguientes botones : un textbox, y un timer
y si lo cree yo solo optube la api de msn de una web pero lo demas es mio ;D
Ok, felicitaciones...
Salu2 ;)
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..
no te preocupes por mi mejor si lo haces funcionar es buena la idea de poner un list para bloquear muchos contactos ;)
wenisimo... che.. el timer lleva un intervalo especifico ?
m.. mi referencia esta echa al MSN de Windows..
y no me funciona.. dice q .NET PASSPORT no funciona con esa versión.. como ago para q funcione con MSN 7.5 ?
me da error en
Public WithEvents MSN As MessengerAPI.MessengerNative
Tienen que declarar las referencias del MSN!!! ;) ;) ;)
Son estas:
Messenger API type library
Messenger Private type library
Messenger Type library
Salu2
Hendrix
las e declarado,pero sigue si ir
prueba con esto:
Public WithEvents MSN As MessengerAPI.Messenger
Salu2
Hendrix
Alguien no puede subir el programa :$ :$
La verdad que 0 idea de VB :S...
Salu2 !! y grax
Bueno lo unico k pasa es k no logro blokear a todos los contactos ...ademas mi doble for es malisimo pero no se como hacerpor el momeno k funcione.
Alguna ayuda
el error me da aqui
Set MSN = New MessengerAPI.MessengerNative
dice q no a sido definida
es porke no le has dado las referencias
e seleccionado todas las referencias sobre msn q tengo y sigue sin funcionar
reescribelas entonces
reescribe todo el code
tengo las referencias ok.. pero si te fijas en el path de las referencias dice
C:\Archivos de Programa\Messenger\msMsgr.exe
y ahi es donde esta el Windows messenger
el MSN 7.5 esta en
C:\Archivos de Programa\MSN Messenger\Msgr.exe
y entonoses el programa me anda bien pero me avre el MSN de Windows.. en ves de el 7.5 .. y me dice q la versión q uso de windows messenger ya es vieja.. baje algunos updates pero sigue sin andar..
para eso lo k hice es cambiar
MessengerAPI.NativeMessenger
por
MessengerAPI.Messenger