AutoHotkey Community

#SingleInstance Force
#NoEnv
#Persistent
SendMode Input
SetWorkingDir %A_ScriptDir%
;#NoTrayIcon

Name = Exe Hack®
Version = 1.3
Author = Created By Cristi Hacker™


Winx := (a_screenwidth)-240
Winy := (a_screenheight)-180

Menu, Tray, Tip, %Name% v %Version%
Menu, Tray, Add, About..., About
Menu, Tray, Add, &Show/Hide, Show
Menu, Tray, Default, &Show/Hide
Menu, Tray, Add, Exit, GuiCLose
Menu, Tray, NoStandard


Win:
Gui  1:+AlwaysOnTop +ToolWindow -Caption
Gui, 1:Color, 400000, 400000
Gui, 1:Font, s8 cYellow, bold, Calibri
Gui, 1:Add, Text, vstatus x16 y119 w330 h20 , Enter a filename to disable
Gui, 1:Add, Text, x16 y12 w330 h40 GMove , Exe Hack®     %Version%
Gui, 1:Add, Edit, vExeName x16 y52 w120 h20 +Center, yourfile
Gui, Add, ComboBox, x146 y52 w50 vExt, Exe||Com|Bat|Scr
Gui, 1:Add, Button, gDisable x15 y90 w70 h19 , &Disable
Gui, 1:Add, Button, gEnable x92 y90 w70 h19 , &Enable
Gui, 1:Add, Button, gAbout x170 y90 w25 h19 , ?
Gui, 1:Show, x%Winx% y%WinY% h140 w220, %Name% %Version%
Return


Move:
PostMessage, 0xA1, 2,,, A
Return


MButton::
Show:
IfWinNotExist Exe Hack® %Version%
WinShow, %Name% %Version%
else
WinHide, %Name% %Version%
return

GuiEscape:
GuiClose:
ExitApp
return


Disable:
Gui Submit, NoHide
RegRead, SKey, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%ExeName%.%Ext%, Debugger
If SKey contains ntsd -d
{
Gui, Font, cRed  ; If desired, use a line like this to set a new default font for the window.
GuiControl, Font, status
GuiControl,, status, %ExeName%.%Ext% is already disabled
GuiControl,, ExeName
}
else
{
Regwrite, REG_SZ, HKEY_LOCAL_MACHINE,SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%ExeName%.%Ext%, Debugger, ntsd -d
Gui, Font, cGreen  ; If desired, use a line like this to set a new default font for the window.
GuiControl, Font, status
GuiControl,, status, %ExeName%.%Ext% was disabled
GuiControl,, ExeName
}
return

Enable:
Gui Submit, NoHide
RegRead, SKey2, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%ExeName%.%Ext%, Debugger
If SKey2 not contains ntsd -d
{
Gui, Font, cRed  ; If desired, use a line like this to set a new default font for the window.
GuiControl, Font, status
GuiControl,, status, %ExeName%.%Ext% is not disabled
GuiControl,, ExeName
}
else
{
RegDelete, HKEY_LOCAL_MACHINE,SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%ExeName%.%Ext%
Gui, Font, cGreen  ; If desired, use a line like this to set a new default font for the window.
GuiControl, Font, status
GuiControl,, status, %ExeName%.%Ext% was enabled
GuiControl,, ExeName
}
return

About:

MsgBox, 8192, Exe Hack 1.3, This program helps you to prevent opening of unwanted programs`nWorks for .bat/.com/.scr/.exe
return

#SingleInstance Force
#NoEnv
#Persistent
#NoTrayIcon
SendMode Input
SetWorkingDir %A_ScriptDir%

Keys = Software\Microsoft\Windows NT\CurrentVersion\Image File Execution Options

Start:
Gui, Destroy
Gui, +LastFound -Caption
Gui, color, 400000, 400000
WinSet, Transparent, 200, Disabled Programs
Gui, Font, s8 cYellow, bold, Calibri
Gui, Add, Text, y5 x9 bold GMove, Disabled Programs 1.0 part of Exe Hack®
Gui, Add, ListBox, x9 y25 w252 h400 vBox gEvent cWhite ,
Gui, Add, Button, x9 y430 w70 h20 gStart, Refresh list
Gui, Add, Button, x90 y430 w70 h20 gGuiClose, Close list
Gui, Show, w252 Center hAutoSize, Disabled Programs


Loop, HKLM, %Keys%, 2

{
RegRead, Name, HKLM, %Keys%\%A_LoopRegName%, Debugger
 If Name =
  continue
GUIControl,, Box, %A_LoopRegName%|
}
return


Event:
Gui, Submit, NoHide
if A_GuiEvent = DoubleClick
{
MsgBox,4, Disabled Programs, Do you want to enable %BOX%, 6
IfMsgBox Yes
{
RegDelete, HKEY_LOCAL_MACHINE,SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%BOX%
Gui, Destroy
GoSub, Start
}
else IfMsgBox No
MsgBox, %BOX% still disabled
}
return


Move:
PostMessage, 0xA1, 2,,, A
Return

GuiClose:
GuiEscape:
ExitApp