1. Membuka dan menutup CD/DVD Komputer

Copy script dibawah ini dan paste di notepad anda.
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
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

Simpan dengan format *.vbs.
Lalu Buka File Tersebut



2. Menulis otomatis di notepad

Copy script dibawah ini dan paste di notepad anda.
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Tulisan ini akan menulis sendiri di notepad anda”
loop

Simpan dengan format *.vbs.
Lalu Buka File Tersebut


3. Membuat Pesan muncul berulang – ulang

Copy script dibawah ini dan paste di notepad anda.
@ECHO off
:Begin
msg * hahahhaa
msg * santai boss
msg * ini hanya main-main
msg * jangan marah ya
msg * hanya bercanda
GOTO BEGIN

Simpan dengan format *.bat.
Lalu Buka File Tersebut





4. Membuat Komputer Shutdown dengan muncul pesan.

Copy script dibawah ini dan paste di notepad anda.
@echo off
msg * Hahahahhaha
shutdown -s -c “Komputer anda mati”

Simpan dengan format *.bat.
Lalu Buka File Tersebut


5. Membuat Tombol Capslock terus menyala

Copy script dibawah ini dan paste di notepad anda.
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop

Simpan dengan format *.vbs.
Lalu Buka File Tersebut


6. Membuat terus – menerus menekan tombol “backspace”

Copy script dibawah ini dan paste di notepad anda.
MsgBox “Kembali ke menu sebelumnya”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

Simpan dengan format *.vbs.
Lalu Buka File Tersebut


7. Membuka notepad Terus – menerus

Copy script dibawah ini dan paste di notepad anda.
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top


Simpan dengan format *.bat.
Lalu Buka File Tersebut

 Mohon untuk digunakan untuk semestinya...................!!!!!