Eject Drive CD-DVD Menggunakan Notepad (non-stop)

Tutorial ini hanya untuk pembelajaran semata (mohon untuk tidak menjahili komputer teman dengan teknik ini)

Buka Notepad dan masukan perintah alien di bawah

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

Setelah itu simpan dengan ekstensi .vbs (contoh indamixson.vbs) 

dan kalau semua lancar2 saja sobat akan berakhir dengan gambar seperti ini 

Klik 2x pada Gambar diatas ( hasil dari notepad dengan perintah yang kalian simpan tadi) dan lihatlah apa yang akan terjadi :)))  Setelah bereksperimen dan merasa puas dengan hasil kerja kalian, buka task manager (kalo gak tau apa itu task manager memang dahhh ckckck) dan pada bagian Process cari code seperti wscript.exe dan klik end process (lihat gambar di bawah)

Sederhana kan? :))

JANGAN LEWATKAN ARTIKEL DI BAWAH :