notepad ေလးနဲ႕ေအာ္တိုစာေရး ခုိင္းၾကည့္ရေအာင္

ကဲ သူငယ္ခ်င္းတို႕ ဒီတစ္ခါေတာ့ notepad ေလးနဲ႕ေအာ္တိုစာေရး
ခုိင္းၾကည့္ရေအာင္...စိတ္၀င္စားဖို႕ေကာင္းတယ္ေနာ္..စမ္းၾကည့္လိုက္ပါဦး...

ကဲ ပထမဆံုး notepad တစ္ခုဖြင့္လုိက္ပါ
ျပီးရင္ notepad ထဲမွာ ေအာက္က ကုဒ္ေလးေတြကိုကူးထည့္လိုက္


set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "welcome"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "to"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "www."
WScript.Sleep 500
WshShell.SendKeys "mmc"
WScript.Sleep 500
WshShell.SendKeys "family"
WScript.Sleep 500
WshShell.SendKeys "."
WScript.Sleep 500
WshShell.SendKeys "devhub"
WScript.Sleep 500
WshShell.SendKeys "."
WScript.Sleep 500
WshShell.SendKeys "org"
WScript.Sleep 500

ျပီးျပီဆိုရင္ save လုပ္မဲ့ေနရာမွာ lucky.vbs နဲ႕ save လိုက္ပါ.(မွတ္ခ်က္..mmcfamily ဆိုတဲ့ေနရာမွာ ကိုယ္ၾကိဳက္တဲ့
နာမည္ကိုေပးနုိင္ပါတယ္...အေနာက္က .vbs ကိုေတာ့ နာမည္အေနာက္မွာ မပါလို႕မရပါဘူး.ဥပမာ..monetine.vbs အ့ဲလိုမ်ိဳး)ျပီးျပီဆိုရင္ေတာ့ ဖြင့္ၾကည့္လုိက္ပါ..auto စာေရးေနတာကို ေတြ႕ရမွာပါ...