CDTray

« Older Newer »

xEdox

Posted on 12/6/2008, 22:09

Quando la nostra pigrizia non ha limite...

CODICE

#include <GUIConstants.au3>
GUICreate ( "CDTray" , 200 , 190 )
GUICtrlCreateLabel ( "Inserisci l'unita disco da aprire" , 5 , 5 , 200 , 20 )
$i = GUICtrlCreateInput ( "" , 5 , 35 , 100 , 20 )
$b = GUICtrlCreateButton ( "Apri Cassetto" , 5 , 150 , 90 , 30 , $BS_ICON )
GUICtrlSetImage ( -1 , "shell32.dll" , 8 )
$b1 = GUICtrlCreateButton ( "Chiudi Cassetto" , 100 , 150 , 90 , 30 , $BS_ICON )
GUICtrlSetImage ( -1 , "shell32.dll" , 9 )
GUISetState ( )

While 1
$msg = GUIGetMsg ( )
If $msg = $GUI_EVENT_CLOSE Then ExitLoop

Select
Case $msg = $b
$e = GUICtrlRead ( $i )
If StringRight ( $e , 1 ) = ":" Then
Sleep ( 10 )
Else
$e = $e &":"
Endif
CDTray ( $e , "open" )

Case $msg = $b1
If StringRight ( $e , 1 ) = ":" Then
Sleep ( 10 )
Else
$e = $e &":"
EndIf
CDTray ( $e , "closed" )

EndSelect
WEnd

harry dinner2

Posted on 12/6/2008, 23:51

carino ma mi da errore

SPOILER (click to view)

guictrlcreatetlavel("inserisci l'unita disco da aprire",5,5,200,20,$BS_ICCON
GUICTRLCREATELAVEL("INSERICI L'UNTIA DISCO DA APRIRE",5,5,200,^ ERROR

prova qusto

CODICE

#include <GUIConstants.au3>
GUICreate ( "CDTray" , 200 , 190 )
GUICtrlCreateLabel ( "Inserisci l'unita disco da aprire" , 5 , 5 , 200 ,20 )
$i = GUICtrlCreateInput ( "" , 5 , 35 , 100 , 20 )
$b = GUICtrlCreateButton ( "Apri Cassetto" , 5 , 150 , 90 , 30)
GUICtrlSetImage ( -1 , "shell32.dll" , 8 )
$b1 = GUICtrlCreateButton ( "Chiudi Cassetto" , 100 , 150 , 90 , 30)
GUICtrlSetImage ( -1 , "shell32.dll" , 9 )
GUISetState ( )

While 1
$msg = GUIGetMsg ( )
If $msg = $GUI_EVENT_CLOSE Then ExitLoop

Select
Case $msg = $b
$e = GUICtrlRead ( $i )
If StringRight ( $e , 1 ) = ":" Then
Sleep ( 10 )
Else
$e = $e &":"
Endif
CDTray ( $e , "open" )

Case $msg = $b1
If StringRight ( $e , 1 ) = ":" Then
Sleep ( 10 )
Else
$e = $e &":"
EndIf
CDTray ( $e , "closed" )

EndSelect
WEnd

RedSkull92

Posted on 13/6/2008, 00:55

ma perchè non fare il programma ke identifica direttamente la lettera?
cercate di capire come individuare la lettera del solo lettore cd automaticamente...
io ho fatto lo script ma se sbirciate vi levate tutto il gusto di provarci quinid guardate solo se non volete approfondire le vostre conoscenze o non volete sbattervi per arrivarci

SPOILER (click to view)

$scelta=InputBox("Apri o Chiudi","Inserisci APRI per aprire il lettore"&@crlf&"Inserisci CHIUDI per chiuderlo")
if $scelta == "APRI" then
$var = DriveGetDrive( "CDROM" )
for $i=1 to $var[0]
CDTray($var[$i],"open")
Next
ElseIf $scelta == "CHIUDI" then
$var = DriveGetDrive( "CDROM" )
for $i=1 to $var[0]
CDTray($var[$i],"closed")
Next
Else
MsgBox(0,"Attenzione","Hai scritto male...")
Endif

Edited by RedSkull92 - 13/6/2008, 02:16

2 replies since 12/6/2008, 22:09 155 views