Funny tricks of VBScript

0
284
A person drawing and pointing at a Tips and Tricks Chalk Illustration

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.

VBScript Code

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.

VBScript Code

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.

VBScript Code

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.

LEAVE A REPLY

Please enter your comment!
Please enter your name here