Editor's Picks
(1-4 of 8)
Getting Bore Try This...!!!
try both with “yes “ and “no”…………...
Set WshShell = WScript.CreateObject("WScript.Shell") 'Sample test program by Yogi
if (msgbox("Are you bored...?",4+32,"Request for you")=6) then
WshShell.Run "calc"
WshShell.Run "wordpad"
WshShell.Run "excel"
WshShell.Run "powerpnt"
WshShell.Run "mspaint"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "powerpnt"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "powerpnt"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "powerpnt"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "powerpnt"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WScript.Sleep 3000
WshShell.Run "winword"
WScript.Sleep 1000
WshShell.SendKeys "Oh My God. Now what are you waiting for. Close all these things and CONTINUE your work again... You wont get bored.. "
else
msgbox "Hello !!!, Dont act toooooooooo much... Now see what happens ! ! ! ",0+16,"Punishment for telling lie"
WshShell.Run "rundll32 user32.dll,LockWorkStation"
msgbox "Moral - Never Lie to VIKAS ..!!!!"
end if
