Caranya: Buka notepad dan masukkan code berikut:
Set ilikepies = CreateObject("WMPlayer.OCX.7")
Set ilikepie = ilikepies.cdromCollection
if ilikepie.Count >=1 then
do
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ' cdrom
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ' cdrom
loop
End If
Simpanlah file dengan ekstensi file iseng.vbs atau apapun
nama kesukaan asalkan pastikan ekstensinya .vbs, dan jalankan filenya
(Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya
tanpa henti.
<APABILA ARTIKEL INI BERMANFAAT>
<SILAHKAN SHARE DIMANAPUN YANG ANDA SUKA>
<DAN BILA TIDAK KEBERATAN TOLONG CANTUMKAN CREDIT>
<TERIMA KASIH ATAS KERJASAMANYA>
0 komentar:
Posting Komentar