Run everywhere

Run everywhere ....

notepad မှာကူးပီး RunEveryWhere.vbs နဲ့သိမ်းပါ။ ပြီးရင် သုံးချင်တဲ့နေရာယူပြီး သုံးလို့ရပြီ။

Code =>

Dim cmd cmd = InputBox(“Type Your Command…eg.>>> cleanmgr”,”Run Command Prompt”,”cleanmgr”) Dim ws Set ws = WScript.CreateObject(“WScript.Shell”) On Error Resume Next ws.Run(cmd) ws.Quit