Blogger Widgets

Sunday, December 30, 2012

Start ထဲက Run Menu ေပ်ာက္ေနရင္

Start ထဲက Run Menu ေပ်ာက္ေနရင္ ေအာက္ပါ စာသားေတြကို Notepad ထဲကူး
File Name : 'EnableRun.vbs'
File Type : All Files ကို ေရြး Save လုပ္ပါ။ ၿပီးရင္ အဲဒီ ဖိုင္ကို double-click ႏွိပ္ပါ။ Logoff လုပ္ၿပီး ျပန္၀င္ပါ။ အိုေက .... :)))



'Enable/Disable Run on Start Menu
'© Created by koQQ84

Option Explicit

'Declare variables
Dim WSHShell, n, MyBox, p, p1, t, mustboot, errnum
Dim itemtype
Dim enab, disab, jobfunc

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
p1 = "NoRun"
p = p & p1
itemtype = "REG_DWORD"
mustboot = "Log off and back on, or restart your pc to" & vbCR & "effect the changes"
enab = "ENABLED" & vbCR
disab = "DISABLED" & vbCR
jobfunc = "The Start Menu Run command is now "

'This section tries to read the registry key value. If not present an
'error is generated. Normal error return should be 0 if value is
'present
t = "Confirmation"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number

if errnum <> 0 then
'Create the registry key value for NoFind with value 0
WSHShell.RegWrite p, 0, itemtype
End If

'If the key is present, or was created, it is toggled
'Confirmations can be disabled by commenting out
'the two MyBox lines below


If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If

0 comments:

Post a Comment

Copyright © 2011 Template Doctor . Designed by Malith Madushanka - Cool Blogger Tutorials | Code by CBT | Images by by HQ Wallpapers