+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد ال Scripts (http://vb4arb.com/vb/forumdisplay.php?fid=118)
+---- الموضوع : لتعطيل القيام ب Alt+F4 من خلال VBScript (/showthread.php?tid=5975)
لتعطيل القيام ب Alt+F4 من خلال VBScript - RaggiTech - 17-10-12
كاتب الموضوع : 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]