notepad ကို auto စာေရးခိုင္းၾကည့္ရေအာင္

ကဲ သူငယ္ခ်င္းတို႕ ဒီတစ္ခါေတာ့ 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 "waiyan"
WScript.Sleep 500
WshShell.SendKeys "eain"
WScript.Sleep 500
WshShell.SendKeys "."
WScript.Sleep 500
WshShell.SendKeys "thit"
WScript.Sleep 500
WshShell.SendKeys "."
WScript.Sleep 500
WshShell.SendKeys ".blogspot.com"
WScript.Sleep 500

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