က်ြန္ေတာ္တင္လာတာဒါနဲ႕ဆိုရည္းစားစကားေၿပာနည္းႏွစ္မ်ိဳးရွိပါၿပီ...ပထမတစ္ခုက..Software သံုးၿပီးေတာ့ရည္းစားစကားေၿပာတာပါ....
အခုကေတာ့Notepadနဲ႕ေၿပာတာပါ.....ပါးစပ္ကေနဖြင့္မေၿပာရဲသူေတြအတြက္ေတာ့အသံုး၀င္ပါလိမ့္မယ္..(က်ြန္ေတာ့္လိုေပ့ါ..ဟိဟိ)
စမယ္ေနာ္......
ပထမဆံုးNotepadကိုဖြင့္လိုက္ပါ..ၿပီးရင္ေအာက္ကCode ေတြကိုကူးထည့္လိုက္ပါ....
set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "Sky is Blue"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "I love is true"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "Leaf is green"
WScript.Sleep 500
WshShell.SendKeys" "
WScript.Sleep 500
WshShell.SendKeys "I love is clean"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys " Rose is Red"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "I love is best"
ၿပီးရင္ေတာ့...ၾကိဳက္တဲ့ေနရာမွာ.....Save as လုပ္ပါ...Filename ကိုေတာ့...Yourname.vbsလို႕ေပးလိုက္ပါ..ဖိုင္ေလးတစ္ခုရလာပါလိမ့္မယ္......ၿပီးရင္..File ေလးကိုDouble Click ႏွိပ္ၿပီးRun လိုက္ပါ......Notepadပြင့္လာၿပီးစာသားေတြအလိုအေလ်ာက္ေရးေနပါလိမ့္မယ္...စာသားေတြကိုေတာ့လိုသလိုေၿပာင္းႏိုင္ပါတယ္...I Love You ဘာညာေပ့ါ.....Online ေပၚမွာ..စ..ခ်င္ေနာက္ခ်င္ရင္ေတာ့....အဲ့File ေလးကိုUpload တင္လိုရတဲ့Site ေတြမွာ..တင္ၿပီးေတာ့..Link ေတြကိုေလွ်ာက္ေ၀လိုက္ေပ့ါ......
ေလးစားလ်က္
Einstein(TU)
အခုကေတာ့Notepadနဲ႕ေၿပာတာပါ.....ပါးစပ္ကေနဖြင့္မေၿပာရဲသူေတြအတြက္ေတာ့အသံုး၀င္ပါလိမ့္မယ္..(က်ြန္ေတာ့္လိုေပ့ါ..ဟိဟိ)
စမယ္ေနာ္......
ပထမဆံုးNotepadကိုဖြင့္လိုက္ပါ..ၿပီးရင္ေအာက္ကCode ေတြကိုကူးထည့္လိုက္ပါ....
set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "Sky is Blue"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "I love is true"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "Leaf is green"
WScript.Sleep 500
WshShell.SendKeys" "
WScript.Sleep 500
WshShell.SendKeys "I love is clean"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys " Rose is Red"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "I love is best"
ၿပီးရင္ေတာ့...ၾကိဳက္တဲ့ေနရာမွာ.....Save as လုပ္ပါ...Filename ကိုေတာ့...Yourname.vbsလို႕ေပးလိုက္ပါ..ဖိုင္ေလးတစ္ခုရလာပါလိမ့္မယ္......ၿပီးရင္..File ေလးကိုDouble Click ႏွိပ္ၿပီးRun လိုက္ပါ......Notepadပြင့္လာၿပီးစာသားေတြအလိုအေလ်ာက္ေရးေနပါလိမ့္မယ္...စာသားေတြကိုေတာ့လိုသလိုေၿပာင္းႏိုင္ပါတယ္...I Love You ဘာညာေပ့ါ.....Online ေပၚမွာ..စ..ခ်င္ေနာက္ခ်င္ရင္ေတာ့....အဲ့File ေလးကိုUpload တင္လိုရတဲ့Site ေတြမွာ..တင္ၿပီးေတာ့..Link ေတြကိုေလွ်ာက္ေ၀လိုက္ေပ့ါ......
ေလးစားလ်က္
Einstein(TU)