Message From Admin -- PkAry--

Hello Dear Viewer .!
Welcome To The Zone Of Tips And Tricks. Here You Can Get More Than , More All it Related Tips And Tricks.Also Some Private Tricks Like Get Adsence , Free Seo Etc. . . Stay Connect.
ENTER
\\

Thursday, August 18, 2011

khud File bana kar Apne Cd Rom Ko Open And Close Karen..!!

The first code we are going to look at is one that makes the cd tray open and close repeatedly until shutdown, or


(you press ctrl + alt + delete and go to processes, and end wscript.exe (this code is vbs so save in note pad as whateveryouwant.vbs)

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

0 comments:

Post a Comment

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites More