Powered by Blogger.
 
 
28.4.12

RUN BOX ကိုနာမည္ေၿပာင္းမယ္


ေအာက္မွာေပးထားတဲ့စာသားေတြကို ေကာ္ပီကူးၿပီး Notepad မွာ paste လိုက္ပါ။

Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, n, cn, MyBox, Title
Dim itemtype
p1 = "HKCR\CLSID\{2559a1f3-21d7-11d4-bdaf-00c04f60b9f0}\"
n = ws.RegRead(p1 & "LocalizedString")
t = "Change the Name of Run on Start Menu"
cn = InputBox("Type in the name to replace Run with.", t, n)

If cn <> "" Then
ws.RegWrite p1 & "LocalizedString", cn
End If

Title = "Run on the Start Menu has now been renamed."

MyBox = MsgBox(Title,64,"Finished")

ဖိုင္ extension ကို vbs ျဖင့္ save လိုက္ပါ။

ထိုဖိုင္ကို double click ျဖင့္ဖြင့္ၿပီး ေပၚလာေသာ box တြင္ႀကိဳက္တဲ့နာမည္ေပးလိုက္ပါ။ ေျပာင္းသြားတာကိုေတြ႕ရမွာပါ။

0 comment:

Post a Comment

နည္းပညာ၊ Software ႏွင့္ နည္းပညာ စာအုပ္မ်ား မွ်ေ၀ရာ....
www.pyayblogger.com
မွၾကိဳဆိုပါတယ္....

Updates Via E-Mail

Popular Posts

Labels