[nextslit]

درود

هدف از اينجاد اين تاپيک ايجاد يک تعميرگاه برای رفع مشکلات گوناگون windows شمااز طريق VBcript هاست ، استفاده از VBs ها چندين مزايا دارد از جمله راحتی کار و سرعت بالای آن .



1- تغير دادن نام RUN در start menu

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")

اين کد رو عيناً درون Notepad ذخيره کنيد و با پسوند .vbs در هارد خود ذخيره و سپس اجرا کنيد .