Archive for Januari 2013

Yuk buat “Virus” Nakal, buat ngerjain dosen/guru yang kita ngga suka, lagi suntuk di ruang labkom kampus, pusing ngga bisa maen facebook karena diblokir sama admin labkom, yah iseng2 buatin scripts .vbs.

Caranya: Buka notepad dan masukkan code berikut,

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count &gt;= 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

Simpanlah dengan file tadi dengan ekstensi file iseng.vbs ato apapun nama kesukaan asalkan pastikan ekstensinya .vbs, dan jalankan filenya ( Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya tanpa henti.

Salah satu cara menghentikan aksi Virus Nakal ini ialah dengan menekan tombol CRTL+ALT+DELdan matikan proses wscripts.exe, Kalo mau keren lagi, masukkan ke file autorun.inf di flashdisk anda, jadi setiap loe colokin ke kompie kampus, maka akan otomatis dijalankan “Virus” Nakal ini.

NB: kl males atau ga tau cara copasnya. download ajah linknya diakhir artikel:

Nah mau script .vbs yang laen lagi?

WScript.Sleep 18000
WScript.Sleep 1000
do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "H"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys ". "
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
wscript.sleep 5000
loop

Scripts diatas nanti otomatis buka notepad dan ketik: Halo. apa kabar? kabar baik?

ingat yah simpan dengan ekstensi nama .vbs, klik file–>save as

Kode Vbs ini akan membuat user terus mengetikkan kata2 “Kamu emang jelek koq!”

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Kamu emang jelak koq!"
loop

Dan membuat terus menerus menekan tombol “Enter”

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep  100
wshshell.sendkeys "~(enter)"
loop

Terus tekan backspace:

MsgBox "Balik lagi ah...saltik"
Set wshShell  =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys  "{bs}"
loop

E G#m
I want you (I want you) I need you (I need you)
C#m E B
I love you (I love you) di dalam benakku
A B E C#m F#m B E
Keras berbunyi irama mu..usi..ikku, heavy rotation

E F#m A B E C#m E

E G#m
Seperti popcorn yang meletup-letup
C#m A B
Kata-kata suka menari-nari
E G#m
Wajahmu suaramu selalu ku ingat
C#m A B
Membuatku menjadi tergila-gila

A B E C#m
Oh senangnya miliki prasaan ini
A B
Ku sangat merasa beruntung

E G#m
I want you (I want you) I need you (I need you)
C#m E B
I love you (I love you) bertemu denganmu
A B E C#m A F#m B
Semakin dekat jarak di antara kita, maximum high tention

E G#m
I want you (I want you) I need you (I need you)
C#m E B
I love you (I love you) di lubuk hatiku
A B E C#m F#m B E
Rasa sayang yang terus menerus meluap, heavy rotation

E G#m
Dalam kehidupan setiap manusia
C#m A B
Berapa kali bisa rasakan cinta
E G#m
Jika ada satu cinta tak terlupa
C#m A B
Ku akan merasa sangat bahagia

A B E C#m
Mungkin seperti perasaan sekuntum
A B
Bunga saat dia akan mekar

E G#m
I feel you (I feel you) I touch you (I touch you)
C#m E B
I hold you (I hold you) di dalam mimpiku
A B E C#m A B
Angan-anganku menjadi semakin besar, oh it’s my imagination

E G#m
I feel you (I feel you) I touch you (I touch you)
C#m E B
I hold you (I hold you) perasaan ini

A B E C#m F#m B E
Ku sangat ingin mengutarakan padamu, heavy rotation

C#m E A B C#m B E

E G#m
Yang selalu ku dengarkan favorite a song
D C#m F#m
Seperti lagu yang ku suka
A E C#m
Ku ulang terus tanpa henti twenty four hours a day
A C#m B
Oh baby the only request is you

E G#m
I want you (I want you) I need you (I need you)
C#m E B
I love you (I love you) bertemu denganmu
A B E C#m A F#m B
Semakin dekat jarak di antara kita, maximum high tention

E G#m
I want you (I want you) I need you (I need you)
C#m E B
I love you (I love you) di lubuk hatiku
A B E C#m F#m B E
Rasa sayang yang terus menerus meluap, heavy rotation
F#m B E
Heavy rotation

JKT48 Heavy Rotation (Chord Gitar)

Followers