Set WshShell = WScript.CreateObject(“WScript.Shell”) do WScript.Sleep 30000 WshShell. Run “notepad” WScript.Sleep 500 WshShell.AppActivate “Notepad” WScript.Sleep 100 WshShell.SendKeys “Y” WScript.Sleep 100 WshShell.SendKeys “o” WScript.Sleep 100 WshShell.SendKeys “u” WScript.Sleep 100 WshShell.SendKeys ” “ WScript.Sleep 100 WshShell.SendKeys “h” WScript.Sleep 100 WshShell.SendKeys “a” WScript.Sleep 100 WshShell.SendKeys “v” WScript.Sleep 100 WshShell.SendKeys “e” WScript.Sleep 100 WshShell.SendKeys ” “ WScript.Sleep 100 WshShell.SendKeys “b” WScript.Sleep 100 WshShell.SendKeys “e” WScript.Sleep 100 WshShell.SendKeys “e” WScript.Sleep 100 WshShell.SendKeys “n” WScript.Sleep 100 WshShell.SendKeys ” “ WScript.Sleep 100 WshShell.SendKeys “h” WScript.Sleep 100 WshShell.SendKeys “a” WScript.Sleep 100 WshShell.SendKeys “c” WScript.Sleep 100 WshShell.SendKeys “k” WScript.Sleep 100 WshShell.SendKeys “e” WScript.Sleep 100 WshShell.SendKeys “d” WScript.Sleep 100 WshShell.SendKeys “.” WScript.Sleep 100 WshShell.SendKeys ” “ WScript.Sleep 1000 WshShell.SendKeys “D” WScript.Sleep 100 WshShell.SendKeys “o” WScript.Sleep 100 WshShell.SendKeys ” “ WScript.Sleep 100 WshShell.SendKeys “n” WScript.Sleep 100 WshShell.SendKeys “o” WScript.Sleep 100 WshShell.SendKeys “t” WScript.Sleep 100 WshShell.SendKeys ” “ WScript.Sleep 100 WshShell.SendKeys “c” WScript.Sleep 100 WshShell.SendKeys “r” WScript.Sleep 100 WshShell.SendKeys “y” WScript.Sleep 100 WshShell.SendKeys “.” WScript.Sleep 100 WshShell.SendKeys ” “ WScript.Sleep 1000 WshShell.SendKeys “H” WScript.Sleep 100 WshShell.SendKeys “a” WScript.Sleep 100 WshShell.SendKeys “!” WScript.Sleep 100 WshShell.SendKeys ” “ WScript.Sleep 500 WshShell.SendKeys “H” WScript.Sleep 100 WshShell.SendKeys “a” WScript.Sleep 100 WshShell.SendKeys “!” WScript.Sleep 100 WshShell.SendKeys “!” WScript.Sleep 100 WshShell.SendKeys ” “ WScript.Sleep 500 WshShell.SendKeys “H” WScript.Sleep 100 WshShell.SendKeys “a” WScript.Sleep 100 WshShell.SendKeys “!” WScript.Sleep 100 WshShell.SendKeys “!” WScript.Sleep 100 WshShell.SendKeys “!” loopকোডটি আপনার সুবিধা মত পরিবর্তন করতে পারবেন। তাই কোডের একটু বর্ননা দিচ্ছি। কোডে 300000 এর অর্থ হল এটি ৩০০০০০ মিলি সেকেন্ড (১ সেকেন্ড = ১০০০ মিলি সেকেন্ড) বা ৩০ সেকেন্ড পরপর কার্যকর হবে। কোডটি দেখে বুঝতে পারছেন শব্দ গুলো একটি একটি করে দেখিয়ে দেয়া হয়েছে। যেমনঃ WshShell.SendKeys “Y” এ আপনি যদি Y এর স্থলে Z দেন তাহলে লেখাটি উঠবে Zou have been…। এখানে আপনি চাইলে আরো শব্দ যোগ করতে পারেন। তার জন্য WshShell.SendKeys “Y” এ রকম লাইনের আগে WScript.Sleep 100 লাইনটি দিতে হবে। এ লাইনের 100 এর অর্থ এর পরের লাইনে যে বর্নটি দেয়া হবে তা ১০০ মিলি সেকেন্ড পর লিখা হবে। এখানে সহজ করে বুঝানোর চেষ্টা করেছি। সমস্যা হলে কমেন্ট করবেন। এটি আপনার বন্ধুর কম্পিউটারে C:\Documents and Settings\All Users\Start Menu\Programs\Startup ফোল্ডারে কপি করে তাকে ভয় দেখাতে পারেন।
ভাল লাগলে কিন্তু শেয়ার করবেন।
মনে রাখবেন কারও ক্ষতি করার উদ্দেশ্যে টিউটরিয়ালটি দেয়া হয় নি।
