Tạo virus tự động đẩy ổ đĩa CD/DVD ra ngoài liên tục | đơn giản

Tạo virus tự động đẩy ổ đĩa CD/DVD ra ngoài liên tục | đơn giản

Có thể nói đâylà một virus hài hước, với một đoạn mã ngắn dưới đây bạn có thể làm cho ổ đĩa quang của mình liên tục bị đẩy ra liên tục, bất chấp bạn thân của bán đóng lại bao nhiêu lần đi nữa.

Mở ứng dụng Notepad lên copy đoạn mã dưới đây vào sau đó lưu lại với đuôi mở rộng là “.vbs”. Ở đây tôi sẽ lưu với tên là “Virus.vbs”.

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

Wanring : không nên mở trên máy mình, nếu lở mở để dừng quá trình tự động đẩy ra của ổ đĩa quang, bạn nhấn tổ hợp phím Ctrl + Shift + Esc để mở Task Manager lên, sau đó trong thẻ Processes chọn wscript.exe rồi bấm End Process. Hoặc bạn cũng có thể khởi động lại máy để chấm dứt quá trình này.

10:00