Scherzi in vbs (visual basic script)

Questa è tutta una lista di codici in linguaggio vbs che potete usare per fare ai vostri amici degli scherzi bellissimi.
Il vbs è semplice da utilizzare, per prima cosa vi serve un editor di testi, basta anche il notepad che è gia nel sistema operativo windows, oltre a quello un'pò di immaginazione per combinare tutti i codici e creare uno scherzetto da panico paura.
1- Il primo codice che andiamo a vedere è quello che serve per fare aprire per magia il lettore cd/dvd:



Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs =oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i = o to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next' cdrom
End if

*Copiate e incollate il codice nel blocco note e po salviamo il file con estensione .vbs o .vbe.
Ovvero 
File> Salva con nome> NomeFile.vbs oppure NomeFile.vbe> Salva


se volete che si apra e si chiuda piu volte basta che copiate e incollate di nuovo questa riga:

colCDROMs.Item(i).Eject

una volta apre il lettore un'altra volta lo chiude, e così via

*Questo procedimento dovrete farlo anche con tutti i codici che vi darò.

2- Questo codice io lo uso per fare aprire tante cartelle consecutivamente:

set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 10
wshshell.run "Regedit"
wscript.sleep 10
wshshell.run "Cmd"
wscript.sleep 10
wshshell.run "Explorer"
wscript.sleep 10
wshshell.run "Winhelp"
wscript.sleep 10
wshshell.run "system32"
wscript.sleep 10
wshshell.run "Temp"
wscript.sleep 10


Il codice esegue i programmi come se noi effettuassimo un'esecuzione da Staert> Esegui> 
quindi tutte le pagine che riuscite ad aprire da li vuol dire che le potete inserire tranquillamente al posto delle virgolette. 
wscript.sleep 10     -->  è il codice della pause e si usa con i millisecondi, quindi 10 è in millisecondi.


3- Aprire un messaggio video
il codice per aprire un messaggio video è questo:


MsgBox ("Inserire qui il messaggio"), 16 , ("Inserire qui il titolo del messaggio")


questi sono i codici di modifica per fare altri tipi di messaggio:


Errore: 16, 17, 18, 19, 20, 21
16 = OK;
17 = OK ANNULLA;
18 = INTERROMPI RIPROVA IGNORA
19 = SI NO ANNULLA
20 = SI NO
21 = RIPROVA ANNULLA

Domanda: 32, 33, 34, 35, 36, 37
Attenzione: 48, 49, 50, 51, 52, 53
Esclamazione: 64, 65, 66, 67, 68, 69


4- Un codice che apre il blocco note e gli permette di scrivere da solo:


set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "Ciaoo"
WScript.Sleep 500
WshShell.SendKeys " sono"
WScript.Sleep 500
WshShell.SendKeys " il"
WScript.Sleep 500
WshShell.SendKeys " tuo "
WScript.Sleep 500
WshShell.SendKeys "virus"
WScript.Sleep 500
WshShell.SendKeys " ora "
WScript.Sleep 500
WshShell.SendKeys "ti "
WScript.Sleep 500
WshShell.SendKeys "faccio "
WScript.Sleep 500
WshShell.SendKeys "un "
WScript.Sleep 500
WshShell.SendKeys "po "
WScript.Sleep 500
WshShell.SendKeys "di "
WScript.Sleep 500
WshShell.SendKeys "casini "
WScript.Sleep 500
WshShell.SendKeys "non "
WScript.Sleep 500
WshShell.SendKeys "ti "
WScript.Sleep 500
WshShell.SendKeys "dispiace "
WScript.Sleep 500
WshShell.SendKeys "vero "
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500


I messaggi potete modificarli come vi pare, basta che cambiate le parole tra le virgolette.