VBScript-uri interesante

Nota: Pentru a rula Script-urile, copiati textul acestora in Notepad si salvati sub forma “oricenume.vbs” . Cu dublu click puteti rula scriptul. Acestea sunt postate doar cu scop educativ, si nu pentru a face rau unora!!!

Led disco pe tastatura:

Acest script va face ca ledurile tastaturii sa lumineze in ritm de discoteca:

Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys”{CAPSLOCK}”
wshshell.sendkeys”{NUMLOCK}”
wshshell.sendkeys”{SCROLLLOCK}”
loop

Fa computerul sa vorbeasca:

Rulati acest scrip si veti face computerul sa vorbeasca ceea ce doriti. Doar editati textul “your message here” cu orice text doriti, iar computerul va putea rosti in cuvinte ceea ce scrieti.

strText = “your message here”
Set objVoice = CreateObject(“SAPI.SpVoice”)
objVoice.Speak strText

Fa computerul sa emita un semnal sonor, insotit de o fereastra cu mesaj:

Set objVoice = CreateObject(“SAPI.SpVoice”)
Set objFile = CreateObject(“SAPI.SpFileStream.1″)
objFile.Open “c:\Windows\Media\Ding.wav”
objVoice.Speakstream objFile
Wscript.Echo “your message here”

Scris care ruleaza in fereastra de notepad:

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 “I”
wscript.sleep 200
wshshell.sendkeys ” ”
wscript.sleep 100
wshshell.sendkeys “a”
wscript.sleep 100
wshshell.sendkeys “m”
wscript.sleep 200
wshshell.sendkeys ” ”
wscript.sleep 100
wshshell.sendkeys “R”
wscript.sleep 100
wshshell.sendkeys “i”
wscript.sleep 100
wshshell.sendkeys “t”
wscript.sleep 100
wshshell.sendkeys “e”
wscript.sleep 100
wshshell.sendkeys “s”
wscript.sleep 100
wshshell.sendkeys “h”
wscript.sleep 200
wshshell.sendkeys ” ”
wscript.sleep 100
wshshell.sendkeys “K”
wscript.sleep 100
wshshell.sendkeys “a”
wscript.sleep 100
wshshell.sendkeys “w”
wscript.sleep 100
wshshell.sendkeys “a”
wscript.sleep 100
wshshell.sendkeys “d”
wscript.sleep 100
wshshell.sendkeys “k”
wscript.sleep 100
wshshell.sendkeys “a”
wscript.sleep 100
wshshell.sendkeys “r”

Deschide Notepad la infinit:

WScript.Sleep 10
WScript.Sleep 10
Set WshShell = WScript.CreateObject(“WScript.Shell”)
do
WshShell.Run “notepad”
WScript.Sleep 100
WshShell.AppActivate “notepad”
loop