VB Script Amazing.

Alt TAB

'VBScript Example
' Helps to Keep  ur PC alive.. it keeps swithing windows within 10 seconds..
' 10000 mseconds = 10 seconds..
' For stopping this VBS , open task manager , go to process, search for "wscript.exe"  and kill(end process) it



Set WshShell = WScript.CreateObject("WScript.Shell")
do
' NOTE: dont reduce these seconds to less then 4000 , otherwise ur PC will go hang...
WScript.Sleep 4000
wshshell.Sendkeys("%+{TAB}")
' NOTE: dont reduce these seconds to less then 4000 , otherwise ur PC will go hang...
REM WScript.Sleep 10000
wshshell.Sendkeys("%+{TAB}")
loop




------------
OUtlook


Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "Outlook"


WScript.Sleep 2500 ' Give Outlook some time to load


WshShell.SendKeys "^{n}"


WScript.Sleep 1000


WshShell.SendKeys "abc@gmail"

WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "abc@gmail"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "Kindly provide an urgent drop to ."
WshShell.SendKeys "{TAB}"

WshShell.SendKeys "{TAB}"

WScript.Sleep 200


WshShell.SendKeys "

Hi
       Kindly provide an urgent drop to the following Employee.




"

 WScript.Sleep 400

 WshShell.SendKeys "%{s}"

--------------

Notepad loop

set wshShell =wscript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 4000
do
WshShell.sendKeys "{f5}"

WScript.Sleep 4000000
WshShell.SendKeys "Hello World!"
loop


------------

Dancing Lights

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 200
wshshell.sendkeys "{NUMLOCK}"
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{sCROLLLOCK}"
wscript.sleep 200
wshshell.sendkeys "{sCROLLLOCK}"
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"

loop
---------

Create Folder

'VBScript Example
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.CreateFolder("D:\ABC")

---------

Start Programs

dim temp,pgm,ctrl,one
ctrl=0
set obj=WScript.CreateObject("WScript.Shell")
temp=Inputbox("Enter the option number to run the specified application" & VBNewLine &  VBNewLine & "1. Microsoft Word" &  VBNewLine & "2. Microsoft Excel" &  VBNewLine & "3. Microsoft PowerPoint" &  VBNewLine & "4. Microsoft OutLook" &  VBNewLine & "5. Microsoft Internet Explorer" &  VBNewLine & "6. My Computer" &  VBNewLine & "7. Notepad" &  VBNewLine & "8. Wordpad" &  VBNewLine & "9. Microsoft Paint" &  VBNewLine & "10. Microsoft Media Player" &  VBNewLine & "11. Calculator" &  VBNewLine & "12. Microsoft DOS" &  VBNewLine & "13. Control Panel" & VBNewLine & VBNewLine & VBNewLine & "©Rajeev John Tharakan","Start Program")


select case temp
    case 1
        pgm="winword"
    case 2
        pgm="excel"
    case 3
        pgm="powerpnt"
    case 4
        pgm="outlook"
    case 5
        pgm="iexplore"
    case 6
        pgm="..."
    case 7
        pgm="notepad"
    case 8
        pgm="wordpad"
    case 9
        pgm="mspaint"
    case 10
        pgm="wmplayer"
    case 11
        pgm="calc"
    case 12
        pgm="cmd"
    case 13
        pgm="control"
    case default
        one=msgbox("Invalid Option Number entered.",vbOKOnly,"Start Program")
        ctrl=1
end select


if(ctrl=0) then
    obj.Run pgm
end if

-----------