17-10-12, 01:53 PM
كاتب الموضوع : AhmedEssawy
كود :
[color=#000080]<package>[/color]
[color=#000080]<job id=[COLOR=#0000ff]"vbs"[/color]>[/COLOR]
[color=#800000]<script language=[COLOR=#0000ff]"VBScript"[/color]>[/COLOR]
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
[color=#800000]</script>[/color]
[color=#000080]</job>[/color]
[color=#000080]</package>[/color]