නෝට් පෑඩ් එකක් ඔටෝ ලියවෙන විදියට හදමු ද?
ඔයාලට කියල දෙන්න යන්නෙ Windows වල ඔටෝ ලියවෙන නෝට් පෑඩ් එකක් එකක් හදන විදිහයි. මේක ඔයාලගෙ යාලුවො බයකරන්න, පොඩි විහිළුවක් කරන්න අවස්ථානුකූලව යොදා ගන්න එකනම් ඔයාලගෙ වැඩක්.
මුලින්ම මන් මේ පහල දෙන code එක notepad එකට past කරගන්නකෝ. ඊට පස්සෙ FIle > Save As ගිහින් කැමති නමක් දීල අගට .vbs කියල Save කරගන්න. (Ex: AutoWriting.vbs) ඊට පස්සෙ ඉතින් තියෙන්නෙ open කරල බලන එක තමා. බය වෙන්නනම් දෙයක් නෑ..........
set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 500
wshshell.AppActivate "Notepad"
WshShell.SendKeys "W"
WScript.Sleep 500
WshShell.SendKeys "W"
WScript.Sleep 500
WshShell.SendKeys "W"
WScript.Sleep 500
WshShell.SendKeys "."
WScript.Sleep 500
WshShell.SendKeys "A"
WScript.Sleep 500
WshShell.SendKeys "P"
WScript.Sleep 500
WshShell.SendKeys "E"
WScript.Sleep 500
WshShell.SendKeys "L"
WScript.Sleep 500
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "K"
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 "C"
WScript.Sleep 500
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "M"
WScript.Sleep 500
WshShell.SendKeys " >> www.apelokaya.com"
WScript.Sleep 500
WshShell.SendKeys " >> APELOKAYA"
දිනපතා ඵලවන අලුත්ම ලිපි දැනගැනිම සදහාඅපේ facebook පිටූවට
like කලේ නැතිනම් like එකක්
දාගෙනම යන්න.
දාගෙනම යන්න.
