Fun Notepad එකක් හදා ගන්න.....
මේ script එක notepad එකක copy කර ගන්න
set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "H"
WScript.Sleep 500
WshShell.SendKeys "ell"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys " Fri"
WshShell.SendKeys "en"
WScript.Sleep 500
WshShell.SendKeys "ds"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "chop"
WScript.Sleep 500
WshShell.SendKeys "peta"
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys " rep"
WScript.Sleep 500
WshShell.SendKeys "1k "
WScript.Sleep 500
WshShell.SendKeys "dena"
WScript.Sleep 500
WshShell.SendKeys "wada "
ඊට පස්සේ File - Save Ass...ගිහින්
එක rename කරගන්න
.vbs format එකට
එට පස්සේ save කර ගන්න
දැන් ඒ file එක double click කරලා බලන්න.
ඔයාලට ඕන විදිහටත් වෙනස් කර ගන්න පුළුවන්.
කරන්න තියෙන්නේ " " ඇතුලේ ඕන දේ type කරන එක විතරයි...
මේ script එක notepad එකක copy කර ගන්න
set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "H"
WScript.Sleep 500
WshShell.SendKeys "ell"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys " Fri"
WshShell.SendKeys "en"
WScript.Sleep 500
WshShell.SendKeys "ds"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "chop"
WScript.Sleep 500
WshShell.SendKeys "peta"
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys " rep"
WScript.Sleep 500
WshShell.SendKeys "1k "
WScript.Sleep 500
WshShell.SendKeys "dena"
WScript.Sleep 500
WshShell.SendKeys "wada "
ඊට පස්සේ File - Save Ass...ගිහින්
එක rename කරගන්න
.vbs format එකට
එට පස්සේ save කර ගන්න
දැන් ඒ file එක double click කරලා බලන්න.

ඔයාලට ඕන විදිහටත් වෙනස් කර ගන්න පුළුවන්.
කරන්න තියෙන්නේ " " ඇතුලේ ඕන දේ type කරන එක විතරයි...

