Título: NUKER MSN Publicado por: Robokop en 24 Diciembre 2005, 21:59 pm 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 Título: Re: NUKER MSN Publicado por: #Borracho.- en 24 Diciembre 2005, 22:04 pm 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 ;) Título: Re: NUKER MSN Publicado por: Robokop en 25 Diciembre 2005, 00:21 am 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 Título: Re: NUKER MSN Publicado por: #Borracho.- en 25 Diciembre 2005, 00:30 am Ok, felicitaciones...
Salu2 ;) Título: Re: NUKER MSN Publicado por: Kpax 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.. Título: Re: NUKER MSN Publicado por: Robokop en 19 Marzo 2006, 00:03 am no te preocupes por mi mejor si lo haces funcionar es buena la idea de poner un list para bloquear muchos contactos ;)
Título: Re: NUKER MSN Publicado por: satanico88 en 19 Marzo 2006, 07:05 am wenisimo... che.. el timer lleva un intervalo especifico ?
Título: Re: NUKER MSN Publicado por: satanico88 en 19 Marzo 2006, 08:35 am 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 ? Título: Re: NUKER MSN Publicado por: bautistasbr en 19 Marzo 2006, 08:45 am me da error en
Public WithEvents MSN As MessengerAPI.MessengerNative Título: Re: NUKER MSN Publicado por: Hendrix en 19 Marzo 2006, 11:12 am Tienen que declarar las referencias del MSN!!! ;) ;) ;)
Son estas: Messenger API type library Messenger Private type library Messenger Type library Salu2 Hendrix Título: Re: NUKER MSN Publicado por: bautistasbr en 19 Marzo 2006, 11:53 am las e declarado,pero sigue si ir
Título: Re: NUKER MSN Publicado por: Hendrix en 19 Marzo 2006, 11:58 am prueba con esto:
Public WithEvents MSN As MessengerAPI.Messenger Salu2 Hendrix Título: Re: NUKER MSN Publicado por: ka0s en 19 Marzo 2006, 14:43 pm Alguien no puede subir el programa :$ :$
La verdad que 0 idea de VB :S... Salu2 !! y grax Título: Re: NUKER MSN Publicado por: Kpax en 19 Marzo 2006, 15:56 pm 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 Título: Re: NUKER MSN Publicado por: bautistasbr en 19 Marzo 2006, 18:24 pm el error me da aqui
Set MSN = New MessengerAPI.MessengerNative dice q no a sido definida Título: Re: NUKER MSN Publicado por: Kpax en 19 Marzo 2006, 18:54 pm es porke no le has dado las referencias
Título: Re: NUKER MSN Publicado por: bautistasbr en 19 Marzo 2006, 19:18 pm e seleccionado todas las referencias sobre msn q tengo y sigue sin funcionar
Título: Re: NUKER MSN Publicado por: Kpax en 19 Marzo 2006, 19:30 pm reescribelas entonces
reescribe todo el code Título: Re: NUKER MSN Publicado por: satanico88 en 20 Marzo 2006, 00:27 am 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.. Título: Re: NUKER MSN Publicado por: Kpax en 20 Marzo 2006, 00:41 am para eso lo k hice es cambiar
MessengerAPI.NativeMessenger por MessengerAPI.Messenger |