تاريخ ارسال : پنجشنبه 05 دی 1392, 01:07
دسته بندي : [Post_Cat_Title]
نويسنده : kavosh91با کد زیر می تونید برای مثال هر ۸ ثانیه CD-ROM یا DVD-ROM دوست خود را باز و بسته کنید. توجه داشته باشید که اگر روی سیستم دوست شما بیش از یک دیسک خوان هم نصب باشد تمامی دیسک خوان ها یکی یکی باز و بسته می شوند.توی notepad بنویسین و با نام fty.vbs ذخیره کنید.و.....
کد در ادامه مطلب(بدون درخواست عضویت به منظور راحتی کاربران)
با کد زیر می تونید برای مثال هر ۸ ثانیه CD-ROM یا DVD-ROM دوست خود را باز و بسته کنید. توجه داشته باشید که اگر روی سیستم دوست شما بیش از یک دیسک خوان هم نصب باشد تمامی دیسک خوان ها یکی یکی باز و بسته می شوند.
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 8000
loop