Funny tricks of VBScript

Ok,

Today I am going to tell you funny thing about VBScript .

First of all VBScript is an active script known as Visual Basic Script . It has been installed by default in every windows version.

Now , we are going to see funny tricks.





[1] Make Your Computer speak like a robot......

1) First of all create file having .vbs extension.
    Then copy/paste following code.

2)Dim speaks, speech
  speaks="Welcome Sir Have a Nice day."
  Set speech=CreateObject("sapi.spvoice")
  speech.Speak speaks

3)Now save it.
  Then just doubled clicked on it.


[2] Automatically typing by Computer....

1) First of all create file having .vbs extension.
    Then copy/paste following code.


2)Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad"
wscript.sleep 400
wshshell.sendkeys "H"
wscript.sleep 100
wshshell.sendkeys "i"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 200
wshshell.sendkeys "G"
wscript.sleep 100
wshshell.sendkeys "u"
wscript.sleep 100
wshshell.sendkeys "Y"
wscript.sleep 100
wshshell.sendkeys "s"
wscript.sleep 500
wshshell.sendkeys "."
wscript.sleep 500
wshshell.sendkeys " "
wscript.sleep 500
wshshell.sendkeys "."
wscript.sleep 500
wshshell.sendkeys "{Backspace}"
wscript.sleep 500
wshshell.sendkeys "{Backspace}"
wscript.sleep 500
wshshell.sendkeys "{Enter}"
wscript.sleep 500
wshshell.sendkeys "I"
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 600
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "m"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 600
wshshell.sendkeys "S"
wscript.sleep 100
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "r"
wscript.sleep 100
wshshell.sendkeys "J"
wscript.sleep 100
wshshell.sendkeys "U"
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 600
wshshell.sendkeys "H"
wscript.sleep 200
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "n"
wscript.sleep 100
wshshell.sendkeys "s"
wscript.sleep 100
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "L"
wscript.sleep 100
wshshell.sendkeys "i"
wscript.sleep 100
wshshell.sendkeys "y"
wscript.sleep 100
wshshell.sendkeys "A"
wscript.sleep 100
wshshell.sendkeys " ."
wscript.sleep 600
wshshell.sendkeys "{enter}"
wscript.sleep 100

3)Now save it.
  Then just doubled clicked on it.and just see what happen.

[3] Disco light on keyboard.....

1) First of all create file having .vbs extension.
    Then copy/paste following code.

2)Set WshShell = wscript.CreateObject ("WScript.Shell")
   do
   WScript.Sleep 500
   wshshell.sendkeys "{NumLock}"
   WScript.Sleep 500
   wshshell.sendkeys "{CapsLock}"
   WScript.Sleep 500
   wshshell.sendkeys "{ScrollLock}"
   loop

3)Now save it.
Then just doubled clicked on it.and just see what happen on keyboard.
To see result of this trick Make sure you must have LED of 'Capslock','Scrolllock','Numlock'.Because now-a-days in many laptop they haven't LED.

NOTE: To terminate this process goto TaskManager and terminate wscript.exe process.

If you enjoyed it then plz comment and share this...............
Have a Nice Day...................