ဒီလိုဗျာ ကျနော်တို့ သုံးလေ့ရှိတဲ့ run box က တစ်ချို့အင်တာနက်ဆိုင်တွေပိတ်ထားကျတယ်။ ဒါကြောင့် vbs ရဲ့ရေးထားတဲ့ run box အတွက် 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
ဒီ code လေးကို notepad ထဲမှာထည့်ပြီး filename ကို RunEveryWhere.vbs လို့ပေးပြီး run box တစ်ခုအနဲ့ သုံးလို့ရပါပြီဗျာ။
Ref: http://www.myanmaritresource.info
source : www.sawsan23.com
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
ဒီ code လေးကို notepad ထဲမှာထည့်ပြီး filename ကို RunEveryWhere.vbs လို့ပေးပြီး run box တစ်ခုအနဲ့ သုံးလို့ရပါပြီဗျာ။
Ref: http://www.myanmaritresource.info
source : www.sawsan23.com