Auto ලියවෙන Notepad එකක් හදමු...

හොඳයි යාළුවනේ අද මන් ඔයාලට කියල දෙන්න යන්නෙ Windows වල ඔටෝ ලියවෙන නෝට් පෑඩ්  එකක් එකක් හදන විදිහයි. මේක ඔයාලගෙ යාලුවො බයකරන්න, පොඩි විහිළුවක් කරන්න අවස්ථානුකූලව යොදා ගන්න එකනම් ඔයාලගෙ වැඩක්.

මුලින්ම මන් මේ පහල දෙන code එක notepad  එකට past කරගන්නකෝ.
ඊට පස්සෙ FIle > Save As ගිහින් කැමති නමක් දීල අගට .vbs කියල Save කරගන්න. (Ex: AutoWriting.vbs)
 ඊට පස්සෙ ඉතින් තියෙන්නෙ open කරල බලන එක තමා. බය වෙන්නනම් දෙයක් නෑ..........
Code එක Copy කරන්න බැරිනම් මෙතනින් Code එක ගන්න..

set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 500
wshshell.AppActivate "Notepad"
WshShell.SendKeys "t"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "c"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "s"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "t"
WScript.Sleep 500
WshShell.SendKeys "h"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "y"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "."
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "g"
WScript.Sleep 500
WshShell.SendKeys "s"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "t"
WScript.Sleep 500
WshShell.SendKeys "."
WScript.Sleep 500
WshShell.SendKeys "c"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "m"
WScript.Sleep 500
WshShell.SendKeys "   >> www.trickslanthaya.blogspot.com"
WScript.Sleep 500
WshShell.SendKeys "   >> www.trickslanthaya.blogspot.com"
WScript.Sleep 500
WshShell.SendKeys "   >> www.trickslanthaya.blogspot.com"
WScript.Sleep 500
WshShell.SendKeys "  >> Admin:- Thiranga Kavishan"

මොකක් හරි අවුලක් නම් Comment එකක් දාන්නකෝ...