notepad එකෙන් මොනව හරි වචනයක් Auto ලියවේන විදියක්..

ඉස්සේල්ලම පහල තියෙන code එක නිවි නොට්පෑඩ් ඩොකියුමන්ට් එකක් අරන් එකට paste කරන්න

Code:

set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "C"
WScript.Sleep 500
WshShell.SendKeys "h"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "y"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "d"
WScript.Sleep 500
WshShell.SendKeys "h"
WScript.Sleep 500
WshShell.SendKeys "s"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "y"
WScript.Sleep 500
WshShell.SendKeys "s"
WScript.Sleep 500
WshShell.SendKeys "a"

ඔය Code එකේ මම Type කරල තියෙන්නේ chalanapriyadhsoysa කියලා....
ඔයාලට ඔන විදියට එක Edit කරන්න පුලුවන්...

ඔයාලට එ වචන අතර Space එකක් තියන්න ඔනනම්මෙන්න මෙ ෆොටො එකෙ විදියට එ අකුර ල්ගින් ස්පෙස් එකක් තියන්න..එතකොට වෑඩේ ගොඩ...


ඉට පස්සේ කරන්න තියෙන්නේ Save As ගිහින් File Type එකට All දීල File Name එකට කැමති නමක් දීල, නමේ අගට .vbs කියල දාල(උදා: auto.vbs) කැමති තැනක save කරගන්න.
දැන් හරි. Save වුනු file එක double click කරල open කරල බලන්න. වැඩේ හොඳයි නේද.?

උපුටා ගත්තේ එලකිරියෙන්