Script Jail Untuk Komputer

1. Membuat pesan muncul berulang kali

@ECHO off
:Begin
msg * terimah kasih
msg * sudah berkunjung
msg * di blog saya
msg * tobadak dot com
msg * share our knowledge
GOTO BEGIN

Simpan dengan format *.bat

2. Membuka dan menutup CD/DVD komputer

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

3.  Menulis otomatis di Notepad

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

4. Komputer shudown dengan pesan

@echo off
msg * tunggu sebentar ya
shutdown -s -c “Komputer anda akan mati”

simpan dengan format *.bat

5. Tombol Caps Lock nyala terus

Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop

simpan dengan format *.vbs

6. Menekan tombol Backspace secar terus menerus

MsgBox “Kembali ke menu sebelumnya”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

simpan dengan format *.vbs

7.  Membuka Notepad terus menerus

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

simpan dengan format *.bat

8. Membuat lampu disko di keyboard

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

simpan dengan format *.vbs


Thank's For Visits