Bored Script

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"
    WScript.Sleep 3000
    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




/* upar nu badhu save .vb file par karvu notepad ma*/