Cd&dvd Aç&kapat

[mrecep38]

Local $CDROM = DriveGetDrive( "CDROM" )
If NOT @error Then
For $i = 1 to $CDROM[0]
CDTray($CDROM[$i], "open")
Next
EndIf

Local $CDROM = DriveGetDrive( "CDROM" )
If NOT @error Then
For $i = 1 to $CDROM[0]
CDTray($CDROM[$i], "close")
Next
EndIf


Kodlarıyla cd ya da dvd sürücülerini açıp, kapayabiliyoruz.

Ancak bu kod, cd sürücüsünü açıp tekrar hemen kapatıyor.

Yapmak istediğim; eğer cd sürücüsü açıksa sadece kapayacak,

kapalıysa sadece açacak. Tek scriptte bu iki özelliği nasıl sağlayabilirim?

Windows 7 x 64 kullanıyorum. Edited August 22, 2011 by mrecep38

[SimpsoN_Bart]

[font="Georgia"]Ben böyle yazdım farklı şekillerde de yapılabilir.[/font]
[codebox]Opt("MustDeclareVars", 1)
Global $drive, $count = 1, $var

$drive = DriveGetDrive("CDROM")
$var = $drive[0]

Global $drivestatus[$var]

While $drive[0] <> 0
if $count <> ($drive[0]) Then
if $drivestatus[$count] <> 1 Then
CDTray($drive[$count], "open")
$drivestatus[$count] = 1
Else
CDTray($drive[$count], "closed")
$drivestatus[$count] = 0
$count += 1
EndIf
Else
$count = 1
EndIf
Sleep(200)
WEnd[/codebox]

[mrecep38]

Üstad, sizin verdiğiniz kodları denedim.
Ancak cd okuyucusunda hiç bir hareket yok.
Ne açılıyor, ne kapanıyor. Nerede hata yapıyorum?

[SimpsoN_Bart]

[font="Georgia"]Sana verdiğim kodlarda hiç bir hata yok bende çalışıyor ayrıca kendi bilgisayarıma özel yazmadım bütün bilgisayarlarda çalışır sende bir sorun vardır. sciTE de F5 yap bakalım olacak mı ?[/font]

[blue_life]

Söylediğini yapmak için, önce cd/dvd nin açık olup olmadığını kontrol etmek gerekiyor.
Biraz araştırmanı öneririm. Dur senin için hızlı bir gözatım...

Sekizinci mesajdaki örnek güzel görünüyor!
[color="#0000FF"][u][b]http://www.autoitscript.com/forum/topic/94904-detect-opened-cd-rom/page__view__findpost__p__681957[/b][/u][/color]