Getting Bore Try this...!!!

Software Engineer

Copy and paste the below code in a notepad and save it with extension as “.vbs” then double click the file…..

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

WshShell.Run "notepad"

WshShell.Run "powerpnt"

WshShell.Run "notepad"

WshShell.Run "powerpnt"

WshShell.Run "notepad"

WshShell.Run "powerpnt"

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

Blogs