[Giải trí] - CD-tray chạy ra chạy vào

[red_flag_communism]

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
end if

Copy đoạn script trên vào Notepad và save as thành đuôi .vbs (thí dụ cd.vbs).
Chạy cd.vbs và quan sát ổ CD.
Kill process wscript.exe để dừng script.

[cuty]

Hè hè, hay ghê. mỗi cái tội nghe bác nhiều thì hỏng ổ CD mất.

[nguyenchanh]

Giải trí mà !

[gem]

em thử cái này với cái nháy đèn của anh rùi!Đẹp lắm!