Hallo Leute,
es gibt doch eine Methode um alle Laufwerke anzusteuern oder?
Ich habe momentan es so gemacht.:
...
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $open_dvdl
CDTray("F:", "open")
Case $open_dvdb
CDTray("G:", "open")
Case $close_dvdl
CDTray("F:", "close")
Case $close_dvdb
CDTray("G:", "close")
EndSwitch
WEnd
hi,
versuch doch mal das folgende (90% aus der AutoIT hilfe):
$var = DriveGetDrive( "all" )
If NOT @error Then
MsgBox(4096,"", "Found " & $var[0] & " drives")
For $i = 1 to $var[0]
MsgBox(4096,"Drive " & $i, $var[$i])
MsgBox(0,"Drive-Info",DriveGetType($var[$i]))
Next
EndIf
musst dann nur gucken obs ein CD-Laufwerk ist (wird ja angezeigt)
Mal schnell 'ne Funktion gescriptet:
[autoit]
_CDTrayAll()
Func _CDTrayAll($iFlag = 1)
Local $aStatus[2] =['CLOSE', 'OPEN']
Local $aCDROM = DriveGetDrive('CDROM')
If @error Then Return SetError(1, 0, 0)
For $i = 1 To $aCDROM[0]
CDTray($aCDROM[$i], $aStatus[$iFlag])
Next
EndFunc
Danke schön und gut aber das hilft mir nichts weil ich die Open und Close funktion so nicht mit einbauen kann das ganze sieht dann so aus.:
[autoit]
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: Michi2q
Script Function:Öffnet oder Schließt auf Knopfdruck das ausgewählte Laufwerk.
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Laufwerke Opener", 188, 71, 192, 124)
GUISetIcon("H:\~~Icon~~\Backup_-_No_-_Icons\Equal\ICO\CDs\DVD.ico")
GUISetCursor (3)
GUISetBkColor(0x000000)
$open_dvdl = GUICtrlCreateButton("Open", 8, 24, 81, 17, 0)
$close_dvdl = GUICtrlCreateButton("Close", 8, 48, 81, 17, 0)
$open_dvdb = GUICtrlCreateButton("Open", 96, 24, 81, 17, 0)
$close_dvdb = GUICtrlCreateButton("Close", 96, 48, 81, 17, 0)
$Label1 = GUICtrlCreateLabel("DVD Laufwerk", 8, 7, 74, 17)
GUICtrlSetColor(-1, 0xD4D0C8)
$Label2 = GUICtrlCreateLabel("DVD Brenner", 96, 7, 67, 17)
GUICtrlSetColor(-1, 0xD4D0C8)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $open_dvdl
CDTray("F:", "open")
Case $open_dvdb
CDTray("G:", "open")
Case $close_dvdl
CDTray("F:", "close")
Case $close_dvdb
CDTray("G:", "close")
EndSwitch
WEnd
Das ganze will ich jetzt so halt haben das ich alle Laufwerke angezeigt bekomme und diese dann Öffnen und Schließen kann.
So in etwa?
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]GUICreate("Laufwerke Opener", 278, 71, 192, 124)
GUISetOnEvent(-3, '_Exit')
GUISetIcon("H:\~~Icon~~\Backup_-_No_-_Icons\Equal\ICO\CDs\DVD.ico")
GUISetCursor(3)
GUISetBkColor(0x000000)
Global $choice = GUICtrlCreateCombo("", 8, 24, 81, 20, 0x2)
GUICtrlSetOnEvent(-1, '_ReadInfo')
Local $Drives
For $i = Asc('D') To Asc('Z')
If DriveGetType(Chr($i) & ':\') = 'CDROM' Then $Drives &= '|' & Chr($i) & ':\'
Next
GUICtrlSetData(-1, $Drives, StringTrimLeft(StringLeft($Drives, 4), 1))
GUICtrlCreateButton("Open", 96, 24, 81, 22, 0)
GUICtrlSetOnEvent(-1, '_OpenCD')
GUICtrlCreateButton("Close", 183, 24, 81, 22, 0)
GUICtrlSetOnEvent(-1, '_CloseCD')
Global $info = GUICtrlCreateLabel("DVD Brenner", 8, 6, 267, 17)
GUICtrlSetColor(-1, 0x00FF00)
_ReadInfo()
GUISetState(@SW_SHOW)
While 1
Sleep(10000)
WEnd
Func _ReadInfo()
GUICtrlSetData($info, StringTrimLeft(BinaryToString(RegRead("HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices", "\DosDevices\" & StringTrimRight(GUICtrlRead($choice), 1)), 2), 4))
EndFunc ;==>_ReadInfo
Func _OpenCD()
CDTray(GUICtrlRead($choice), 'open')
EndFunc ;==>_OpenCD
Func _CloseCD()
CDTray(GUICtrlRead($choice), 'close')
EndFunc ;==>_CloseCD
Func _Exit()
Exit
EndFunc ;==>_Exit
