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 di Notepad kode berikut dengan nama : xhack.vbs type file : All File
maka DVD/CD roomnya akan membuka dan menutup otomatis,
Komentar Agan..!!
Silahkan Sobat Berkomentar atau Saran dan Kritik Silahkan sampaikan disini, Harap no spam, and no link. komentar akan dimoderasi dulu sebelum di tampilkan. semua komentar akan aproved, kecuali komentar yg masuk SPAM dan Komentar Kasar dan SARA. dan Terimakasih atas Kunjungan Sobat..
1 Responses:
Gan,koq gak bisa?Ada pesan error kaya gini:
Script : I:\CD DVD.vbs
Line : 13
Char : 5
Error : Expected end of statement
Code : 800A0401
Source : Microsoft VBScript compilation error.
Mohon pencerahannya kk!^_^