Are you Bored.... Try this....

8 views
Skip to first unread message

SABARISH

unread,
Feb 8, 2012, 5:42:20 AM2/8/12
to csefriendso...@googlegroups.com

copy and paste the code in a notepad and save it with name as “.vbs” then double click the file…..
try both with “yes “ and “no”…………...
                                                               
 
Copy from below......                                                                  \
-----------------------------------------------------------------------------------  
                                                                     
                                             
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 "notepad"
        WshShell.Run "notepad"
        WshShell.Run "notepad"
        WshShell.Run "notepad"
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 "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 "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 too much... Now see what happens ! ! ! ",0+16,"Punishment for telling lie"
        WshShell.Run "rundll32 user32.dll,LockWorkStation"
        msgbox "Moral-Never Lie to anyone"
end if

 

 

 

 

Thanks&Regards

 

SABARISH.R



Reply all
Reply to author
Forward
0 new messages