01-17-2011, 03:32 PM
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
![[Image: fb01eabb2529898db06e722e20195345.png]](http://gyazo.com/fb01eabb2529898db06e722e20195345.png)
Source Code:
*Please give me credits if you use my code anywhere.*
Don't forget to say thanks you guys! Did I mention, Enjoy?!
Inspired by: http://www.supportforums.net/showthread.php?tid=1091
Rate thread please on the program...
DDI 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?!
