Content feed Comments Feed

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

တင္ၿပသူ Kyaw Htin Saturday, 17 January 2009

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 ေယာက္ကဒီလုိေၿပာၾကတယ္

ဆက္သြယ္ရန္ လိပ္စာ

kyawhtinaung86@gmail.com

Advertisment

Kstar mobile

Kstar mobile
* 72/A, Min Street, San Chaung * Yangon, Burma Today 9:00 am - 8:00 pm Phone +95 9 430 93565

နည္းပညာ ေနရာေကာင္းမ်ား

လာေရာက္ေသာေဒသမ်ား

ေရးၿဖစ္သမွ် အေၾကာင္းအရာမ်ား

Myanmar Calender

Technology Forum

 

မိတ္ေဆြမ်ား၏ တင္သမွ်စာေလးေတြ

အေၾကာင္းအရာ

resent



ပုိ႔စ္အသစ္မ်ား


အၾကံေပးစာမ်ား

About Us

My Photo
Kyaw Htin
Welcome to my homepage, be always happy and receive knowledge from my blog . myozawlin85@gmail.com Thanks for visited my blog
View my complete profile
mgpyinyar