Dance Together RAYS

hey guys udah lama juga gw kagak ngeblog lagi
hahahahahah sorry soalnya gw lagi kagak ada alat dan bahan (PC,kuota,Modem) yah pokoknya gitu lah
nih gw cuma mau ngupload cover dance together nya bang Chandra Liow :V

spesial thanks dah

https://www.youtube.com/watch?v=VpYV8vj5D6k

Coba

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

 

 

 

Simpan kode tersebut di notepad dengan nama bebas dan tambahkan exstensi .vbs contoh : "eror.vbs" dan Save As Type ganti menjadi All Files, maka akan bisa membuat CD/DVD Room buka tutup dengan sendirinya secara otomatis.