17.3.12

Run everywhere


အင္တာနက္ဆိုင္ေတြမွာ မ်ားေသာအားျဖင့္ run dialogue box ကို သံုးမရေအာင္ ပိတ္ထားတယ္ သံုးလို႔ရေအာင္ဒါေလးေဆာင္ထားေပါ့။ ေအာက္က vbscript ကို 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

No comments:

Post a Comment

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