Virus creation-II

Making Your Keyboard Dance (Just for Fun)

Windows scripting lets you do some surprisingly playful things with just a few lines of code.

Here are a few harmless VBScript experiments that don’t modify files, steal data, or harm your system — they simply interact with existing hardware features in fun ways.

Think of these as curiosity-driven experiments.

---

Keyboard Disco Lights

This script makes your Caps Lock, Num Lock, and Scroll Lock lights flash rhythmically — like a tiny disco built into your keyboard.

Set wshShell = CreateObject("WScript.Shell")
Do
  WScript.Sleep 100
  wshShell.SendKeys "{CAPSLOCK}"
  wshShell.SendKeys "{NUMLOCK}"
  wshShell.SendKeys "{SCROLLLOCK}"
Loop

---

Chain-Style Light Effect

This version creates a flowing “chain” effect by staggering the lights.

Set wshShell = CreateObject("WScript.Shell")
Do
  WScript.Sleep 200
  wshShell.SendKeys "{CAPSLOCK}"
  WScript.Sleep 100
  wshShell.SendKeys "{NUMLOCK}"
  WScript.Sleep 50
  wshShell.SendKeys "{SCROLLLOCK}"
Loop

How to run:

1. Paste the code into Notepad

2. Save as filename.vbs

3. Double-click to run

4. To stop it, open Task Manager and end wscript.exe

---

Popping CD Drive (Old-School Fun)

If your system has a CD/DVD drive, this script will gently open it repeatedly.

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

Do
  If colCDROMs.Count >= 1 Then
    For i = 0 To colCDROMs.Count - 1
      colCDROMs.Item(i).Eject
    Next
  End If
  WScript.Sleep 100
Loop

A reminder of how much control software once had over hardware — for better or worse.

---

Making Your PC Talk

This one is surprisingly fun and completely harmless.

Dim msg, sapi
msg = InputBox("Enter your text", "Talk it")
Set sapi = CreateObject("sapi.spvoice")
sapi.Speak msg

Save as a .vbs file, run it, type any text — and your PC will speak it aloud.

Works on Windows XP, Vista, and Windows 7.

---

Important Note

These scripts are meant for learning and experimentation only.

Avoid:

• Force-closing system processes

• Shutting down machines without consent

• Anything intended to disrupt or damage systems

Curiosity is powerful — but responsibility matters.

---

Final Thought

It’s fascinating how a few lines of code can interact directly with hardware, sound, and input devices.

Not everything has to be productive.
Sometimes, it’s enough to explore how things work — just because it’s interesting.

That curiosity is where real learning starts.