[Release+Source] Windows Application Unfreezer! Vista/XP Only! Working [/Release]

[Resistance]

Hey guys, I am proud to be releasing an application I made to stabilize windows processes in order to create something (Not Responding) to a responding window, this can help you if your virus scan is not responding and before it crashes pull this out and you can simply unfreeze it. This works for Vista/XP only. Message to Windows 7 users (myself), I have enabled a OS self-safety disable feature in the application if perhaps you decide to open it so it will disable itself and close the application automatically to prevent errors and complaints in feedback...

Inspired by: http://www.supportforums.net/showthread.php?tid=1091

Rate thread please on the program... DD

I basically simplified the process into an application.

Download Application UnfreezR Here:
Download Application UnfreezR



Source Code:

Code:

Public Class Form1
    Dim charactersDisallowed As String = ",<>;   '{}[])(*!~`|/ç▲ìα▲╜Ä╤ZÆ╘¦«¨/*>?<|©÷ ¢¡¬­®¯°±.²³´µ¶·¹£¤¥»¼½¾¿"
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim theText As String = TextBox1.Text
        Dim Letter As String

        For x As Integer = 0 To TextBox1.Text.Length - 1
            Letter = TextBox1.Text.Substring(x, 1)
            If charactersDisallowed.Contains(Letter) Then
                theText = theText.Replace(Letter, String.Empty)
            End If
        Next
        TextBox1.Text = theText
        TextBox1.Select(TextBox1.Text.Length, 0)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.Info.OSFullName.Contains("7") Then
            Me.Text = "Disabled, failure to function on Windows 7."
            Me.Enabled = False
            CloseApp.Enabled = True
            MsgBox("Closing Application in 10 seconds due to failure to function on Windows 7.", 48, "OS Safety Feature")
        End If
    End Sub

    Private Sub Startthat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Startthat.Click
        Try
            If Process.GetProcessesByName(TextBox1.Text).Length > 0 Then
                status.ForeColor = Color.Lime
                status.Text = "Currently Unfreezing the Process"
                System.Diagnostics.Process.Start(TextBox1.Text)
            Else
                status.ForeColor = Color.Red
                status.Text = "Process Undefined."
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub CloseApp_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseApp.Tick
        End
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("http://www.supportforums.net/member.php?action=profile&uid=4502")
    End Sub
End Class

*Please give me credits if you use my code anywhere.*

Don't forget to say thanks you guys! Did I mention, Enjoy?!

[Hollow™]

You must be a very good coder. Thanks for the share. This will sure become handy.

[RRain]

Wow that looks very cool, great coding skills i must add

[Liberated360]

This is simply...incredible....

[w00pz]

Cool share dude
Keep it up!

[Resistance]

BUMP

Come on this is the real shiz guys!

[Emily]

Thanks for the source code! You are indeed releasing a lot of great programs. Keep it up!