Hallo, ich habe ein Problem .
Mein Prog. funzt soweit nun möchte ich nur noch meine 6! InputBox Abfragen vor dem Programmstart durch ein Kleines GUI ersetzen.
Jedoch komme ich auf keinen "grünen Ast"!
Der Speicherort soll mittels "Browse" gewählt werden können.
Als $drive sollten nur verfügbare Laufwerke angesprochen werden können.
Ist es möglich die verfügbaren COM ports abzufragen? Sonnst müsste man von COM 1 bis COM 20 auswählen können, da Windows Ständig neue Comport anlegt (USB/Com -Adapter Nutzung)
Und wie kann ich bei KODA einen Text einfügen um z.B die Eingaben zu beschreiben "Speicherort: " ??
Vielen Dank für EURE Hilfe!
[autoit]#include <GUIConstants.au3>
[/autoit][autoit][/autoit][autoit]#Region ### START Koda GUI section ###
$Form1 = GUICreate("Setup", 539, 366, 222, 245)
$Path = GUICtrlCreateCombo("Path", 40, 64, 153, 25)
$Browse = GUICtrlCreateButton("Browse", 208, 64, 65, 25, 0)
$Drive = GUICtrlCreateCombo("Drive", 336, 64, 153, 25)
$Comport = GUICtrlCreateCombo("Comport", 40, 120, 153, 25)
$Radio_Full = GUICtrlCreateRadio("Full", 48, 240, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Radio_Menu = GUICtrlCreateRadio("Menu", 48, 176, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Radio_Main = GUICtrlCreateRadio("Main", 48, 208, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$OK = GUICtrlCreateButton("OK", 296, 280, 105, 41, 0)
$Anzahl = GUICtrlCreateInput("Anzahl", 336, 120, 153, 21)
$Time = GUICtrlCreateInput("Time", 336, 176, 153, 21)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 128, 280, 105, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
MsgBox(4096,"Programminfo","ROBOTIC" &@CRLF& "Automatic DVD Ripper" &@CRLF& "Version" &@CRLF& "v1.08",10)
$drive=InputBox("ROBOTIC LAUFWERK","Bitte Laufwerksbuchstaben eingeben","E:")
$path=InputBox("Pfad","Bitte Speicherort eingeben. ","C:\")
$funktion=InputBox("Ripping Settings","Wie soll die DVD gerippt werden?" &@CRLF& "/MAIN /MENU /FULL","/MAIN")
$Comport=InputBox("ROBOTIC COMPORT","Bitte Comport der Robotic eingeben.","COM2")
$Anzahl=InputBox("Anzahl der Discs","Wieviele Disc´s sollen verarbeitet werden?","1")
$Zeit=InputBox("Disc Ready","Zeit für Disc Ready [Sekunden] ","25")
$Version=('V:X:30:2:E');Robotic Version Info Command
$Calibration=('C:X:30:2:E');Calibration Command
$Load=('I:X:30:2:E');Get Input (load) Command
$Unload=('A:X:30:2:E');Unload the Drive Command
HotKeySet("{ESC}","_exit")
Global $iCount = 1
Gruß
Bastian