Klik Start > All Programs > Accessories > Notepad
Ketikkan Coding 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
Lalu simpan dengan Nama Almi.vbs lalu keluar dari editor
Dan masukklah dari explorer. Lalu klik double Almi.vbs
Perhatikan CD/DVD Romnya akan terbuka dan tertutup terus menerus pada komputer, dan akan selalu terbuka pada laptop/notebook ketika ditutup.
Selamat Mencoba,
Note: Cuma untuk dipelajari bukan untuk mengusilkan orang lain
0 komentar:
Posting Komentar