Process Killer

[Matrix112]

Hello, I have provided a program which helps you, if the task manager cannot react and/or be indicated. Frequented is it then like that that one cannot make anything except to switch the NumLocklight. If you press on the power switch in this situation,

Windows drives completely normally down, as if nothing would have been. There the question arose with me: Why?! Usually a process hangs, which places itself and prevents into the foreground that the task manager can be indicated. With "Process killer" you have two choices, to avoid this problem. In addition however the "Process killer" should be taken up to the autostart, so that you have it available also, if you need it.

1. This is recommendable for normal users. If you press

"Crtl + alt + F5", then all visible windows are closed.

NOTE: "Process killer" tried first the windows normally to

close, should have this however no effect, become these

windows "killed". Here not stored data can be lost.

2. This is rather meant for professionals. Who knows the

process is called, which hung up itself, can use this method.

If you press "Crtl + alt + F4", then you indicate to

the names of the process, which you would like to kill

(e.g.: firefox). Without exe. Confirm with Enter. NOTE:

Also with this method not stored data can be lost.

expandcollapse popup

#include <Array.au3>
Global $process
Dim $windows
Global $ct
$User32Dll = DllOpen("user32.dll")
start ()
Func start ()
While 1
HotKeySet("^!{F4}", "keylogger_on")
HotKeySet("^!{F5}", "killallwin")
Sleep (50)
WEnd
EndFunc

Func keylogger_on()
    HotKeySet("{enter}", "killit")
    While 1
If _ispressed('41') Then _addpress("a")
If _ispressed('42') Then _addpress("b")
If _ispressed('43') Then _addpress("c")
If _ispressed('44') Then _addpress("d")
If _ispressed('45') Then _addpress("e")
If _ispressed('46') Then _addpress("f")
If _ispressed('47') Then _addpress("g")
If _ispressed('48') Then _addpress("h")
If _ispressed('49') Then _addpress("i")
If _ispressed('4a') Then _addpress("j")
If _ispressed('4b') Then _addpress("k")
If _ispressed('4c') Then _addpress("l")
If _ispressed('4d') Then _addpress("m")
If _ispressed('4e') Then _addpress("n")
If _ispressed('4f') Then _addpress("o")
If _ispressed('50') Then _addpress("p")
If _ispressed('51') Then _addpress("q")
If _ispressed('52') Then _addpress("r")
If _ispressed('53') Then _addpress("s")
If _ispressed('54') Then _addpress("t")
If _ispressed('55') Then _addpress("u")
If _ispressed('56') Then _addpress("v")
If _ispressed('57') Then _addpress("w")
If _ispressed('58') Then _addpress("x")
If _ispressed('59') Then _addpress("y")
If _ispressed('5a') Then _addpress("z")
If _ispressed('5f') Then _addpress("_")
If _ispressed('6d') Then _addpress("-")
If _ispressed('2e') Then _addpress(".")
If _ispressed('7e') Then _addpress("~")
If _ispressed('30') Then _addpress("0")
If _ispressed('31') Then _addpress("1")
If _ispressed('32') Then _addpress("2")
If _ispressed('33') Then _addpress("3")
If _ispressed('34') Then _addpress("4")
If _ispressed('35') Then _addpress("5")
If _ispressed('36') Then _addpress("6")
If _ispressed('37') Then _addpress("7")
If _ispressed('38') Then _addpress("8")
If _ispressed('39') Then _addpress("9")
Sleep(60)
    WEnd
EndFunc 




Func killit ()
    ProcessClose ( $process & ".exe" )
    HotKeySet("{enter}")
    ToolTip($process & " killed", 0, 0)
    Sleep(5000)
    ToolTip("")
    Global $process = ""
    start ()
EndFunc 

Func killallwin ()
    $windows = WinList ()
    For $ct = 1 To $windows[0][0] Step 1
        If $windows[$ct][0] <> "" AND IsVisible($windows[$ct][1]) Then
        WinClose ($windows[$ct][0])
        Sleep (100)
            If WinExists ($windows[$ct][0]) Then
                WinKill ($windows[$ct][0])
            Else
            EndIf
        EndIf
    Next    
    start ()
EndFunc

Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then 
    Return 1
  Else
    Return 0
  EndIf

EndFunc

;~ Umsetzung in den String
Func _addpress($key)
Sleep (50)
$process = $process & $key
ToolTip($process, 0, 0)
Return $process
Endfunc

Func _IsPressed($hexKey)
; $hexKey must be the value of one of the keys.
; _IsPressed will return 0 if the key is not pressed, 1 if it is.
; $hexKey should entered as a string, don't forget the quotes!
 
  Local $aR, $bO
 
  $hexKey = '0x' & $hexKey
  $aR = DllCall($User32Dll, "int", "GetAsyncKeyState", "int", $hexKey)
  If Not @error And BitAND($aR[0], 0x8000) = 0x8000 Then
     $bO = 1
  Else
     $bO = 0
  EndIf
 
  Return $bO
EndFunc ;==>_IsPressed

#cs
  01 Left mouse button
  02 Right mouse button
  04 Middle mouse button (three-button mouse)
  05 Windows 2000/XP: X1 mouse button
  06 Windows 2000/XP: X2 mouse button
  08 BACKSPACE key
  09 TAB key
  0C CLEAR key
  0D ENTER key
  10 SHIFT key
  11 CTRL key
  12 ALT key
  13 PAUSE key
  14 CAPS LOCK key
  1B ESC key
  20 SPACEBAR
  21 PAGE UP key
  22 PAGE DOWN key
  23 END key
  24 HOME key
  25 LEFT ARROW key
  26 UP ARROW key
  27 RIGHT ARROW key
  28 DOWN ARROW key
  29 SELECT key
  2A PRINT key
  2B EXECUTE key
  2C PRINT SCREEN key
  2D INS key
  2E DEL key
  30 0 key
  31 1 key
  32 2 key
  33 3 key
  34 4 key
  35 5 key
  36 6 key
  37 7 key
  38 8 key
  39 9 key
  41 A key
  42 B key
  43 C key
  44 D key
  45 E key
  46 F key
  47 G key
  48 H key
  49 I key
  4A J key
  4B K key
  4C L key
  4D M key
  4E N key
  4F O key
  50 P key
  51 Q key
  52 R key
  53 S key
  54 T key
  55 U key
  56 V key
  57 W key
  58 X key
  59 Y key
  5A Z key
  5B Left Windows key
  5C Right Windows key
  60 Numeric keypad 0 key
  61 Numeric keypad 1 key
  62 Numeric keypad 2 key
  63 Numeric keypad 3 key
  64 Numeric keypad 4 key
  65 Numeric keypad 5 key
  66 Numeric keypad 6 key
  67 Numeric keypad 7 key
  68 Numeric keypad 8 key
  69 Numeric keypad 9 key
  6A Multiply key
  6B Add key
  6C Separator key
  6D Subtract key
  6E Decimal key
  6F Divide key
  70 F1 key
  71 F2 key
  72 F3 key
  73 F4 key
  74 F5 key
  75 F6 key
  76 F7 key
  77 F8 key
  78 F9 key
  79 F10 key
  7A F11 key
  7B F12 key
  7C-7F F13 key - F16 key
  80H-87H F17 key - F24 key
  90 NUM LOCK key
  91 SCROLL LOCK key
  A0 Left SHIFT key
  A1 Right SHIFT key
  A2 Left CONTROL key
  A3 Right CONTROL key
  A4 Left MENU key
  A5 Right MENU key
#ce

Below you can download the rar file with: german and english readme, exe file, script

EDIT: I optimised the script.

EDIT: optimised again thx w0uter

EDIT: Fixed a tooltip bug

Process_killer.rar

Edited August 13, 2005 by Matrix112

[Matrix112]

I also updated the rar file.

[w0uter]

use dll open on user32.dll instead of opening it evry time.

[Matrix112]

Thx for the tip w0uter.

script and rar is updated

[seandisanti]

Thx for the tip w0uter. 

script and rar is updated

<{POST_SNAPBACK}>

um...does this actually do anything?

HotKeySet("{enter}")

[therks]

Yup. If you look at the beginning of his keylogger func, it sets the Enter to a hotkey for "killit". That snippet unsets the hotkey.

*Edit: If I could make one suggestion to the overall program though, I wouldn't bother with that whole keylogging bit, I'd use an InputBox instead.

Edited August 12, 2005 by Saunders

[seandisanti]

Yup. If you look at the beginning of his keylogger func, it sets the Enter to a hotkey for "killit". That snippet unsets the hotkey.

<{POST_SNAPBACK}>

ah, thanks, had never seen that before

[Matrix112]

@Saunders: If you cant open or see the taskmanager, how would you see the inputbox?

I tried it in my first version but the box can´t appear, because windows is

not able to show any gui in this situation.

[Matrix112]

Now process killer is updated to v. 1.50

I fixed a little tooltip bug.

Func killit ()

    ProcessClose ( $process & ".exe" )

    HotKeySet("{enter}")

    ToolTip($process & " killed", 0, 0)  <--- added

    Sleep(5000)  <--- added                             

    ToolTip("")  <--- added

    Global $process = ""

    start ()

EndFunc 

[Matrix112]

Hi,

I think "Process killer" runs nice, but now i have a problem that i cant solve.

If "active sync" runs in background and I press "Crtl + alt + F4" it prints always

lots of points. Like this: ...........................................................................

Only if I terminate "Active Sync" the printing stops.

Someone knows how to fix it, without terminate it?

[Guest The trueth]

yeah man! very nice work.

a little helper, but very useful!

of cource, matrix!

further so

[busysignal]

I would like to add something. You might want to add a TrayMenu Pop-Up with your Hotkey options. Without reading the code you would not know what they are.

Cheers..

[Matrix112]

@busysignal I´m not sure that this will be really necessary. If you read the Readme file in my Processkiller.rar

you will find the options.

Nice that this thread is alive,

but does somebody know a answer for my last Question?

Hi,

I think "Process killer" runs nice, but now i have a problem that i cant solve.

If "active sync" runs in background and I press "Crtl + alt + F4" it prints always

lots of points. Like this: ........................................................................... ermm.gif

Only if I terminate "Active Sync" the printing stops. sad.gif

Someone knows how to fix it, without terminate it?

I use Active sync very often for my Pocket PC but i dont know why it prints the points.

[Jos07]

now you should update it for the latest version of autoit.

2nd - where is GUI for this program ?

after opening it only creates a tary icon with nothing.

how it works.

PM me if fixed it.

[TomZ]

Jos07, did you ever consider the fact that this topic has had no replies for three years untill you posted.... The topic starter proably doens't visit these forums any more.