1 Temmuz 2007 Pazar

Disable Alt + F4 using vbscript

<!-- make a *. wsf in notepad or other enter this... -->
<package>
<job id="vbs">
<script language="VBScript">
Dim WshShell, BtnCode
set WshShell = WScript.CreateObject("WScript.Shell")
strWythia = WshShell.SpecialFolders("Programs")
set oShellLink = WshShell.CreateShortcut(strWythia & "Alt+F4 Disabler.lnk")
oShellLink.TargetPath = WScript.ScriptFullName
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "ALT+F4"
oShellLink.IconLocation = "SHELL32.dll, 121"
oShellLink.Description = "Alt+F4 is screwed"
oShellLink.WorkingDirectory = strWythia
oShellLink.Save
</script>
</job>
</package>
Now you should notice that Alt + F4 is disabled.


0 Comments: