Kamis, 28 Juni 2012

Cara membuka dan menutup CD/DVD melalui Notepad

oke Sahabat Pengetahuan21...sekarang kita bermain dengan notepad..
ini dia caranya..

pertama kita harus membuka notepad...
terus tulis script ini ke dalam notepad


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 dengan format *.vbs.
Lalu Buka File Tersebut

Don't forget Follow me on Twitter Ajiez

0 komentar:

Posting Komentar

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Web Hosting Bluehost