Are you Bored?

Save the below script as filename.vbs and check it out!!!

Set WshShell = WScript.CreateObject("WScript.Shell") 'Sample test program by ckp

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 "cmd"

WshShell.Run "firefox"

WScript.Sleep 2000

WshShell.Run "winword"

WScript.Sleep 1000

WshShell.SendKeys "Now close all these things... You wont get bored.. "

else

msgbox "Dont act too much... Now see what happens ! ! ! ",0+16,"Punishment for telling lie"

WshShell.Run "rundll32 user32.dll,LockWorkStation"

end if