Blocco note che scrive da solo

1 Comment

Si tratta di un file scritto in Visual Basic Script (vbs) che se avviato fa aprire un nuovo file nel Blocco note che si scrive da solo, come se il computer fosse infestato. Ovviamente le parole le possiamo scegliere noi. Vediamo come si fa.

Apriamo il nostro tanto amato Blocco note e inseriamo i seguenti codici:
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WshShell.AppActivate "Notepad"
WshShell.SendKeys "Ciao!"
WScript.Sleep 1000
WshShell.SendKeys " Come va?"
WScript.Sleep 1000
poi salviamo in .vbs e facciamo doppio click sul file.
Dovrebbe aprirsi il normale Blocco note che però scrive da solo.
Il numero 1000 indica il delay, in millisecondi, tra una scritta e l’altra. Naturalmente possiamo scegliere quanto tempo vogliamo, sempre con un minimo di un millisecondo.
Per andare a capo, bisogna inserire VbCrLf come testo, senza virgolette.

Consiglio
Per un risultato più accurato, invece di scrivere le parole in blocchi, consiglio di scrivere ogni singola lettera, compresi gli spazi, distanziata dall’altra di 20 millisecondi, per poi aspettare un secondo intero fra una frase e l’altra per permettere di leggere tutto il testo.

Ecco un simpatico esempio di come applicare tutto questo:
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WshShell.AppActivate "Notepad"
WScript.Sleep 2000
WshShell.SendKeys "G"
WScript.Sleep 20
WshShell.SendKeys "u"
WScript.Sleep 20
WshShell.SendKeys "a"
WScript.Sleep 20
WshShell.SendKeys "r"
WScript.Sleep 20
WshShell.SendKeys "d"
WScript.Sleep 20
WshShell.SendKeys "a"
WScript.Sleep 20
WshShell.SendKeys "!"
WScript.Sleep 1000
WshShell.SendKeys " "
WScript.Sleep 20
WshShell.SendKeys "S"
WScript.Sleep 20
WshShell.SendKeys "c"
WScript.Sleep 20
WshShell.SendKeys "r"
WScript.Sleep 20
WshShell.SendKeys "i"
WScript.Sleep 20
WshShell.SendKeys "v"
WScript.Sleep 20
WshShell.SendKeys "o"
WScript.Sleep 20
WshShell.SendKeys " "
WScript.Sleep 20
WshShell.SendKeys "d"
WScript.Sleep 20
WshShell.SendKeys "a"
WScript.Sleep 20
WshShell.SendKeys " "
WScript.Sleep 20
WshShell.SendKeys "s"
WScript.Sleep 20
WshShell.SendKeys "o"
WScript.Sleep 20
WshShell.SendKeys "l"
WScript.Sleep 20
WshShell.SendKeys "o"
WScript.Sleep 20
WshShell.SendKeys "!"+vbcrlf
WScript.Sleep 1000
WshShell.SendKeys "N"
WScript.Sleep 20
WshShell.SendKeys "o"
WScript.Sleep 20
WshShell.SendKeys "n"
WScript.Sleep 20
WshShell.SendKeys " "
WScript.Sleep 20
WshShell.SendKeys "s"
WScript.Sleep 20
WshShell.SendKeys "e"
WScript.Sleep 20
WshShell.SendKeys "i"
WScript.Sleep 20
WshShell.SendKeys " "
WScript.Sleep 20
WshShell.SendKeys "c"
WScript.Sleep 20
WshShell.SendKeys "o"
WScript.Sleep 20
WshShell.SendKeys "n"
WScript.Sleep 20
WshShell.SendKeys "t"
WScript.Sleep 20
WshShell.SendKeys "e"
WScript.Sleep 20
WshShell.SendKeys "n"
WScript.Sleep 20
WshShell.SendKeys "t"
WScript.Sleep 20
WshShell.SendKeys "o"
WScript.Sleep 20
WshShell.SendKeys "?"
WScript.Sleep 20
WshShell.SendKeys " "
WScript.Sleep 20
WshShell.SendKeys " "
WScript.Sleep 20
WshShell.SendKeys ":D"
That’s it!
Condividi questa guida se ti è piaciuta!

One thought on “Blocco note che scrive da solo”

  1. Hey there would you mind letting me know which webhost you’re working
    with? I’ve loaded your blog in 3 different internet browsers and I must say this blog loads a
    lot quicker then most. Can you suggest a good web
    hosting provider at a fair price? Cheers, I appreciate it!

    Rispondi

Lascia un commento

Il tuo indirizzo email non sarà pubblicato.

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.