maladon
Administrator
Data inscrierii: 24/Mar/2008
Mesaje: 147
|
 Trimis: 26/03/2008 11:37 Titlul subiectului: Schimba numele comenzii RUN din Start Menu |
|
|
Code:
Option Explicit
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")
salvati ca renamerun.vbs si rulati
va aparea fereastra asta in care inlocuiti "@explorer.exe,-7023" cu ce vreti ex Mortal-Team.Com
Get Run Back
daca vrei sa schimbati din nou numele in run
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\CLSID\{2559a1f3-21d7-11d4-bdaf-00c04f60b9f0}]
@="Run..."
"LocalizedString"="@explorer.exe,-7023"
"InfoTip"="@explorer.exe,-7003"
salvati ca get run.reg    |
|
