Hide Run Menu With Visual Basic Script
I’ve written an article about Manage Registry with Visual Basic Script and this time I want to modified the script to make it to manage Run menu. As you know Run menu is a great menu, with Run you may can go everywhere easier. So, I call it gateway. Yup it’s a gate to go every corner your computer.
So, if you want make your computer be more secure you can hide it when you leave your computer and show it again if you use the computer.
And if you edit it through Registry Editor, I think that’s not a efficient way. But if you want do to that just look here to get the trick. But if you want make it easier just write several script line but after write it you’ll get a shorter way to hide/show it.
- Open Notepad with click Start -> Run and then type
notepadin box.

- And type this script in notepad:

- Save it with click File -> Save As menu and then give it file name:
managerun.vbs(you may change it with your favorite name and don’t forget to change Save as type combo to All Files), choose your favorite folder then click OK button.

- Open the folder where the managerun.vbs was put.

- Double click the file, and Manage Run Menu window will opened.

- Give it value 0 to show your Run menu.


- Or give it value 1 to hide it.

- Restart your computer and try to click Start menu, if you was hid it so, Run menu will hid.

- And if you try to press Windows key + R to force open Run menu, you’ll get a noticed message box.

- To show it again, just open your script and give it value 0.
Dim otakatik
ShowHideRun()
Sub ShowHideRun()
Set otakatik=WScript.CreateObject("WScript.Shell")
describe="Type 0 or 1 : " & VbCrLf &_
"[0] -> Show Run Menu." & VbCrLf &_
"[1] -> Hide Run Menu."
question=InputBox(describe, "Manage Run Menu",0)
otakatik.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion" &_
"\Policies\Explorer\NoRun",question,"REG_DWORD"
If question=1 Then
MsgBox "Run menu has hidden.",VbInformation, "Hide"
Else
If question=0 Then
Msgbox "Run menu has shown",VbInformation, "Show"
otakatik.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion" &_
"\Policies\Explorer\NoRun"
Else
Msgbox "Input 0 or 1 only !",VbInformation, "Wrong Input"
ShowHideRun()
End If
End If
End Sub
(article no:0093)
![Otak Atik [dot] Com](http://www.otakatik.com/wp-content/themes/typebased/styles/default/logo.jpg)


Recent Comments