Beiträge von sc4ry

sc4ry

hiho,

ich hab in einem gui ein edit-fenster, in das man text über mehrere zeilen eingeben kann. das kann natürlich über mehrere zeilen gehen.
das ganze speichert er auch brav in einer ini.

doch wie kann ich es auslesen, dass es auch wieder in zeilen als msgbox ausgelesen wird? standardmäßig nimmt er nur die erste zeile.

darum hab ich versucht, alles in eine zeile zu schreiben:

IniWrite($ini, "Run End", "msg", StringReplace($editmsg, @CRLF, "[CRLF]"))

doch wie soll jetzt der iniread-befehl aussehen?

$msg = StringReplace($inimsg, "[CRLF]", '" & @CRLF & "')

geht leider nicht, aber irgendwie so sollte es sein, oder?

sc4ry

args...

dank dir, manchmal sieht man einfach vor lauter bäumen den wald nicht *g*
dann werd ich mal testen ob denn der rest so klappt wie es soll, thx =)

Edit Mega: Wald schreibt man mit "d" --> Mehrzahl bilden hilft. WälDer

War nur ein flüchtigkeitsfehler =P

sc4ry

hey,

ich habe gerade auf die schnelle ein script geschrieben, was eine macke hat, ich weiss aber nicht warum.
und zwar soll beim ersten start ein gui erscheinen wo man verschiedene einstellungen machen kann. beim klick auf ok wird alles in eine ini gespeichert.
bei den nächsten aufrufen soll nun nur noch alles aus der ini gelesen, und danach die daraus resultierenden angaben ausgeführt werden.
aber das gui schließt sich sofort nach 1 sek immer.

wenn ich aber Select Case zu $cancel und $ok rausnehme, geht es.
nehme ich nur $cancel raus, speichert er sofort die ini. nehme ich $ok raus, poppt das gui wieder nur 1 sek auf.

why ?

Spoiler anzeigen

[autoit]

;
;S.T.A.R.T.E.R_V.1
;

[/autoit] [autoit][/autoit] [autoit]

;©

[/autoit] [autoit][/autoit] [autoit]

;Settings
;#NoTrayIcon
#include<guiconstants.au3>
$ini = "S.T.A.R.T.E.R_Settings.ini"

[/autoit] [autoit][/autoit] [autoit]

;if ini exist
If FileExists(@scriptdir & "\" & $ini) Then

[/autoit] [autoit][/autoit] [autoit]

call("_run")

[/autoit] [autoit][/autoit] [autoit]

Else

$gui = GUICreate("S.T.A.R.T.E.R_V.1 by plutod", 300, 185)
$ok = GUICtrlCreateButton("&OK", 40, 155, 70)
$cancel = GUICtrlCreateButton("&Cancel", 190, 155, 70)
GUICtrlCreateTab(0, 0, 300, 150)
GUICtrlCreateTabItem(" Kill on Start ")
$cbportal = GUICtrlCreateCheckbox("Kill Portal", 30, 40)
$cbinfo = GUICtrlCreateCheckbox("Kill HDINFO", 30, 70)
$cbinstall = GUICtrlCreateCheckbox("Kill Install/Error Msg", 30, 100)
GUICtrlCreateTab(-1, -1, 300, 150)
GUICtrlCreateTabItem(" Run on Start ")
$cbbackup = GUICtrlCreateCheckbox("Run Lotus Notes Backup", 30, 60)
$cbnotes = GUICtrlCreateCheckbox("Run Lotus Notes", 30, 90)
GUICtrlCreateTab(-1, -1, 300, 150)
GUICtrlCreateTabItem("Run on Shutdown")
$cbshutdown = GUICtrlCreateCheckbox("Message before Shutdown", 30, 40)
$editmsg = GUICtrlCreateEdit("Put here your text you want to see before Shutdown", 10, 70, 270, 50)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()
Select
case $msg = $gui_event_close
ExitLoop
Exit
Case $cancel
ExitLoop
Exit
Case $ok
If GUICtrlRead($cbportal) = 1 Then
IniWrite($ini, "Kill on Start", "portal", "1")
Else
IniWrite($ini, "Kill on Start", "portal", "0")
EndIf
If GUICtrlRead($cbinfo) = 1 Then
IniWrite($ini, "Kill on Start", "info", "1")
Else
IniWrite($ini, "Kill on Start", "info", "0")
EndIf
If GUICtrlRead($cbinstall) = 1 Then
IniWrite($ini, "Kill on Start", "install", "1")
Else
IniWrite($ini, "Kill on Start", "install", "0")
EndIf
If GUICtrlRead($cbbackup) = 1 Then
IniWrite($ini, "Run on Start", "backup", "1")
Else
IniWrite($ini, "Run on Start", "backup", "0")
EndIf
If GUICtrlRead($cbnotes) = 1 Then
IniWrite($ini, "Run on Start", "notes", "1")
Else
IniWrite($ini, "Run on Start", "notes", "0")
EndIf
If GUICtrlRead($cbshutdown) = 1 Then
IniWrite($ini, "Run End", "end", "1")
IniWrite($ini, "Run End", "msg", $editmsg)
Else
IniWrite($ini, "Run End", "end", "0")
IniWrite($ini, "Run End", "msg", $editmsg)
EndIf
call("_run")
GUIDelete($gui)
EndSelect
WEnd

EndIf

[/autoit] [autoit][/autoit] [autoit]

Func _run()
$portal = IniRead(@scriptdir & "\" & $ini, "Kill on Start", "portal", "")
$info = IniRead(@scriptdir & "\" & $ini, "Kill on Start", "info", "")
$install = IniRead(@scriptdir & "\" & $ini, "Kill on Start", "install", "")
$backup = IniRead(@scriptdir & "\" & $ini, "Run on Start", "backup", "")
$notes = IniRead(@scriptdir & "\" & $ini, "Run on Start", "notes", "")
$end = IniRead(@scriptdir & "\" & $ini, "Run End", "end", "")
$msg = IniRead(@scriptdir & "\" & $ini, "Run End", "msg", "")

If $portal = 1 Then
WinKill("Portal")
Else
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $info = 1 Then
WinKill("HDInfo2k")
Else
EndIf

If $install = 1 Then
WinMinimizeAll()
ToolTip("")
WinKill("Install")
WinKill("Error")
Else
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $backup = 1 Then
runwait(@programfilesdir & "\IBM\Lotus Notes\BackupNotesData.EXE", "", @SW_HIDE)
Else
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $notes = 1 Then
runwait(@programfilesdir & "\IBM\Lotus Notes\notes.exe", "", @SW_MAXIMIZE)
Else
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $end = 1 Then
$msg = IniRead(@scriptdir & "\" & $ini, "Run End", "msg", "")
Opt("OnExitFunc", "endscript")
Else
Exit
EndIf
EndFunc

Func endscript()
Do
WinWaitActive("Windows herunterfahren")
until ProcessExists("shutdown.exe")
MsgBox(0, "Remember", "$msg")
EndFunc

[/autoit]

sc4ry

die sieht leider wirklich so aus.

erst LW oder ordner, dann verweigerte gruppen und darunter die erlaubten gruppen aufgelistet.

PS: wenn wer noch ne idee hat, kann er es gerne schreiben. hab jetzt folgende lösung.

alles wie gehabt, nur nachdem die txt auf dem desktop angelegt wurde, lasse ich die cmd mit string nach meinem begriff suchen, und in einer weiteren text-datei ausgeben. davor steht jeweils die zeile in der der wert gefunden wurde.
ist schonmal ein anfang.

[autoit]

MsgBox(0, "", '/c find "' & @DesktopDir & '\UserBerechtigungen.txt">>' & @DesktopDir & '\DEDUSL-KCD_ADSB.txt')
stop
Dim $SearchFolder = FileSelectFolder("Gebe Sie den gewünschten Ordner an, der nach Berechtigungen durchsucht werden soll", "", 2)
Dim $PathFound
$FSO = ObjCreate("Scripting.FileSystemObject")
Showsubfolders( $FSO.GetFolder($SearchFolder) )

Func ShowSubFolders($Folder)
For $Subfolder in $Folder.SubFolders
If ($Subfolder.Path & "\") Then
$PathFound = $Subfolder.Path & "\"
runwait(@comspec & ' /c cacls "' & $Subfolder.Path & '">>' & @DesktopDir & '\UserBerechtigungen.txt"', "", @SW_HIDE)
EndIf
ShowSubFolders( $Subfolder )
Next
EndFunc
RunWait(@comspec & ' /c find "' & @DesktopDir & '\UserBerechtigungen.txt">>"' & @DesktopDir & '\DEDUSL-KCD_ADSB.txt"')
MsgBox(0, "Fertig", "Userberechtigungen für LW/Ordner: " & $SearchFolder & " wurde auf dem Desktop abgelegt")

[/autoit]

sc4ry

mit schwer meinte ich folgendes prob:

G:\ DEDOM001\DEDUSL-D3290F:(DENY)(Beschr„nkter Zugriff:)

WRITE_DAC
WRITE_OWNER

DEDOM001\DEDUSL-D3290F:(OI)(CI)F
DEDOM001\DEDUSL-D3290B:R
DEDOM001\DEDUSL-D3290C:(OI)(CI)C
DEDOM001\DEDUSL-D3290R:(OI)(CI)R
DEDOM001\DEDUSL-DATA-Admins:(OI)(CI)F
DEDOM001\Domain Admins:(OI)(CI)F

so sieht ja nachher das ergebnis in der txt aus.
darin soll ich jetzt z.B. nach "D3290C" suchen, und dann "G:\" ausgeben lassen.
das wird eher das problem, oder?

sc4ry

also AccesEnum läuft bei mir auch, mein script nicht, jedoch bei nem kollegen mit admin-rechten (ich habe ja nur eingeschränkte rechte =/)

aber schonmal danke fürs testen, ansonsten hät ich echt schön doof aus der wäsche geguckt, fehler zu suchen die net da sind *hehe*

[autoit]

Dim $SearchFolder = FileSelectFolder("Gebe Sie den gewünschten Ordner an, der nach Berechtigungen durchsucht werden soll", "", 2)
Dim $PathFound
$FSO = ObjCreate("Scripting.FileSystemObject")
Showsubfolders( $FSO.GetFolder($SearchFolder) )

Func ShowSubFolders($Folder)
For $Subfolder in $Folder.SubFolders
If ($Subfolder.Path & "\") Then
$PathFound = $Subfolder.Path & "\"
runwait(@comspec & ' /c cacls "' & $Subfolder.Path & '">>"C:\Documents and Settings\' & @UserName & '\Desktop\UserBerechtigungen.txt"', "", @SW_HIDE)
EndIf
ShowSubFolders( $Subfolder )
Next
EndFunc
MsgBox(0, "Fertig", "Userberechtigungen für LW/Ordner: " & $SearchFolder & " wurde auf dem Desktop abgelegt")

[/autoit]

sieht jetzt so aus, disco aufm desktop war nervig *g*
jetzt soll ich aber noch nen bestimmten string in der txt suchen (eine gruppe) und den jeweiligen gefundenen ordner ausgeben
das wird aber krass, oder?

sc4ry

hey,

hab mich auch mal bissel schlau gemacht, theoretisch scheint wirklich alles richtig zu sein, es wird wahrscheinlich an windows selber liege, oder?

sc4ry

Hiho,

ich suche folgendes.
ein programm, in dem ich einen ordner auswähle, und dann von diesem ordner und allen unterordner die berechtigungen in ner txt abspeichert.

hab versucht ein bestehendes script umzubauen, aber es kommt immer:
Variable must be of type "Object".:
ShowSubfolders( $FSO.GetFolder($SearchFolder) )
ShowSubfolders( $FSO^ ERROR

also so stelle ich mir das in etwa vor

Spoiler anzeigen

[autoit]

Dim $SearchFolder = FileSelectFolder("Gebe Sie den gewünschten Ordner an, der nach Berechtigungen durchsucht werden soll", "", 2)
Dim $PathFound
$FSO = ObjCreate("Scripting.FileSystemObject")
Showsubfolders( $FSO.GetFolder($SearchFolder) )

[/autoit] [autoit][/autoit] [autoit]

Func ShowSubFolders($Folder)
For $Subfolder in $Folder.SubFolders
If ($Subfolder.Path & "\") Then
$PathFound = $Subfolder.Path & "\"
runwait(@comspec & ' /c cacls "' & $Subfolder.Path & '">>"C:\Documents and Settings\plutod\Desktop.txt"')
ExitLoop
EndIf
ShowSubFolders( $Subfolder )
Next
EndFunc

[/autoit]

sc4ry

hey, dank euch.

also diesmal brauche ich sie nicht, klappt mit guidelete gut (hatte vorher immer nur input/msgbox, da ging das ja noch automatisch *g*)...

aber für die nächste gui mach ich nen einfacheren aufbau und merk mir das mit dem hide

sc4ry

Hey,

irgendwie versteh ich die sache nicht ganz, aber ich habe eine gui gebastelt (infofenster), die eine weitere gui aufruft.
aber trotz exitloop bleibt das infofenster auf.
nachdem die 2te gui bestätigt wurde, und ein weitere tool rödelt, bleibt 2ter gui auch auf ... also hab ich dann 2 guis offen, die ich eigentlich nicht mehr brauche.

kann mir wer sagen, wo mein fehler ist?

also jeweils nach dem klick auf "OK" soll das script fortgesetzt, die gui aber geschlossen werden, da sie nicht mehr benötigt wird.

Spoiler anzeigen

[autoit][/autoit] [autoit][/autoit] [autoit]

;
;NeroCMD AutoBurner V.2
;
;©sc4ry
;

[/autoit] [autoit][/autoit] [autoit]

;general settings
#include<guiconstants.au3>
#include<ie.au3>
#include<array.au3>
$ini = "NeroCMD AutoBurner V2.ini"

[/autoit] [autoit][/autoit] [autoit]

;suche nach bestehender ini, wenn nicht existiert ...
if not FileExists(@scriptdir & "/" & $ini) then

[/autoit] [autoit][/autoit] [autoit]

;welcome-box
$OpenGui = GUICreate("NeroCMD AutoBurner V2 by sc4ry", 270, 70)
GUICtrlCreateLabel('This little Programm will burn "1-File-on-1-CD"' & @CRLF & 'you only need the NeroCMD in %programfiles%', 10, 10, 270, 30)
$Ok = GUICtrlCreateButton("&OK", 10, 45, 50)
$help = GUICtrlCreateButton("&Help", 210, 45, 50)
GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()
Select
case $msg = $gui_event_close
Exit
case $msg = $help
MsgBox(64, "Help", "NeroCMD AutoBurner V2" & @CRLF & @CRLF & "This little Program will help you, to burn different files on CD." & @CRLF & "Till Now it only can burn 1-File or 1-Folder on a CD." & @CRLF & "The Different Formats are:" & @CRLF & @CRLF & "Data-CD:" & @CRLF & "-avi" & @CRLF & "-divx" & @CRLF & "-xvid" & @CRLF & "-*.* (means Folder or anything else, but be careful)" & @CRLF & @CRLF & "SVCD or VCD:" & @CRLF & "-mpg" & @CRLF & "-mpeg" & @CRLF & @CRLF & "Image:" & @CRLF & "-iso" & @CRLF & "-nrg" & @CRLF & "-img" & @CRLF & "-bin" & @CRLF & "-cue" & @CRLF & @CRLF & "... and now have fun" & @CRLF & @CRLF & @CRLF & @CRLF & "greets 2:" & @CRLF & "sh0rty, PsyCore, ttt, beach & Autoit.de")
case $msg = $ok
ExitLoop
EndSelect
WEnd

;suche nach NeroCMD.exe
Dim $file = "nerocmd.exe"
Dim $SearchFolder = @ProgramFilesDir
Dim $PathFound
$FSO = ObjCreate("Scripting.FileSystemObject")
Showsubfolders( $FSO.GetFolder($SearchFolder) )
;fehlermeldung wenn nicht gefunden
if not FileExists($pathfound) Then
;erstelle Fehler-GUI
$font = "Times New Roman Fett"
$URL = "http://www.egoshare.com/c4c59d5698f7a250808d6add2dee7233/nerocmd_autoburner_v1_by_sc4ryrar.html"
GUICreate("Error", 470, 80)
GUICtrlCreateLabel("NeroCMD was not found on your PC, please install NeroCMD first", 10, 10, 480, 30)
GUICtrlSetFont(-1, "", "", "", $font)
GUICtrlSetColor(-1, 0xff0000)
$download = GUICtrlCreateButton("Download NeroCMD-Package", 150, 50, 180)
;zeige gui
guiSetState(@SW_SHOW)
;buttons
While 1
$msg = GUIGetMsg()
Select
case $msg = $gui_event_close
Exit
case $msg = $download
$oIE = _IECreate ($URL,0,1,1,0)
$oHWND = _IEPropertyGet($oIE, "hwnd")
WinSetState ($oHWND, "", @SW_MAXIMIZE )
Exit
EndSelect
WEnd
Else
EndIf

[/autoit] [autoit][/autoit] [autoit]

;erstelle settings-GUI
$Settings = GUICreate("Settings", 270, 200, -1, -1, -1, $WS_EX_ACCEPTFILES)
;official buttons
$ok = GUICtrlCreateButton("&OK", 10, 170, 70)
$cancel = GUICtrlCreateButton("&Cancel", 190, 170, 70)

[/autoit] [autoit][/autoit] [autoit]

;1st Tab
GUICtrlCreateTab(0, 0, 270, 165)
GUICtrlCreateTabItem("Burnsettings")
;Recorder
GUICtrlCreateLabel("Choose your CD-Writer", 10, 30)
$Combo1 = GUICtrlCreateCombo("", 10, 50)
;suche nach brenner/cdrom
$var = DriveGetDrive("cdrom")
if @error Then
MsgBox(16, "Error", "No CD-Writer found")
FileDelete(@scriptdir & "\" & $ini)
exit
Else
For $i = 1 to $var[0]
GUICtrlSetData($Combo1,$var[$i],$var[1])
Next
EndIf

;speed
GUICtrlCreateLabel("Choose CD-Writer Speed", 10, 90)
$Combo2 = GUICtrlCreateCombo("", 10, 110)
GUICtrlSetData(-1, "1|2|4|8|12|16|20|24|32|40|48|52", "48")

[/autoit] [autoit][/autoit] [autoit]

;2nd Tab
GUICtrlCreateTab(-1, -1, 270, 165)
GUICtrlCreateTabItem("CD-Settings")
;CDType
GUICtrlCreateLabel("Choose CD Type", 10, 30)
$Combo3 = GUICtrlCreateCombo("", 10, 50)
GUICtrlSetData(-1, "Data-CD|SVCD|VCD|Image")

;3rd Tab
GUICtrlCreateTab(-1, -1, 270, 165)
GUICtrlCreateTabItem("Filesettings")
;BurnDir
GUICtrlCreateLabel("Choose Burning-Dir", 10, 30)
$Input1 = GUICtrlCreateInput("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien", 10, 50, 180)
GUICtrlSetState(-1, $GUI_ACCEPTFILES)
$browse = GUICtrlCreateButton("&Browse", 195, 48, 70)
;FileType
GUICtrlCreateLabel("Choose Extension", 10, 90)
$Combo4 = GUICtrlCreateCombo("", 10, 110)
GUICtrlSetData($Combo4, "*.avi|*.divx|*.vxid|*.mpg|*.mpeg|*.iso|*.nrg|*.img|*.bin|*.cue")
;delete File
$checkbox1 = GUICtrlCreateCheckbox("Delete Files?", 160, 110)

;abbruch bei error + IniDelete
if @error then FileDelete(@scriptdir & "\" & $ini)
;"Show"-Schleife
guiSetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

;Button-Bedingungen
While 1
$msg = GUIGetMsg()
Switch $msg
;"x"-Button
case $gui_event_close
FileDelete(@scriptdir & "\" & $ini)
ExitLoop
Exit
;Cancel
Case $cancel
FileDelete(@scriptdir & "\" & $ini)
ExitLoop
Exit
;CDType + FileType Combo
Case $Combo3
$auswahl = GUICtrlRead($Combo3)
Switch $auswahl
case "Data-CD"
GUICtrlSetData($Combo4, "")
GUICtrlSetData($Combo4, "*.avi|*.divx|*.xvid|*.*", "*.avi")
case "SVCD"
GUICtrlSetData($Combo4, "")
GUICtrlSetData($Combo4, "*.mpg|*.mpeg", "*.mpg")
case "VCD"
GUICtrlSetData($Combo4, "")
GUICtrlSetData($Combo4, "*.mpg|*.mpeg", "*.mpg")
case "Image"
GUICtrlSetData($Combo4, "")
GUICtrlSetData($Combo4, "*.iso|*.nrg|*.bin|*.cue|*.img", "*.iso")
EndSwitch
;Browse
Case $browse
$browseinput = FileSelectFolder("Please choose your Burning-Folder", "", 2)
GUICtrlSetData($Input1, $browseinput,)
;OK
Case $ok
$recorder = GUICtrlRead($Combo1)
$speed = GUICtrlRead($Combo2)
$BurnDir = GUICtrlRead($Input1)
$FileType = GUICtrlRead($Combo4)
$CdType = GUICtrlRead($Combo3)
IniWrite($ini, "Section1", "Recorder", $recorder)
IniWrite($ini, "Section1", "Speed", $speed)
IniWrite($ini, "Section2", "BurnDir", $BurnDir)
IniWrite($ini, "Section2", "FileType", $FileType)
IniWrite($ini, "Section3", "CD-Type", $CdType)
If GUICtrlRead($checkbox1) = 1 Then
IniWrite($ini, "Section4", "DeleteFiles", "1")
Else
IniWrite($ini, "Section4", "DeleteFiles", "0")
EndIf
ExitLoop
Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]

sc4ry

also die sheets, die ich verschiebe, da ist je nur 1 blatt drin.
in der datei wo es dann hingeht (da muss ich ne neue datei erstellen), habe ich dann die üblichen 3 sheets, da nacher hinten dran sind.
wollte die tage mal probieren ob ich die löschen kann, aber stören tuts auch keinen.

hab aber das ganze script heut schon getestet und es läuft alles rund, im grunde kanns auch so bleiben =)

sc4ry

hey, super, dank dir bugfix.
klappt einwandfrei.

hab zwar jetzt für jede datei den code, aber werd das bei gelegenheit mal versuchen zu vereinen.

aber hauptsache dieses ganze verflixte script läuft *g*
feinschliff kann ich immernoch machen

sc4ry

hehe, dann chill erstmal ne runde =)

eilt auch nicht. werd mich auch selber nochmal dran probieren, aber irgendwie hab ich es mir dann doch nen tick einfacher vorgestellt.
bin dann wieder an meinem anderen script an die arbeit gegangen *g*

morgen nochmal danach schauen =)

sc4ry

hmm, also ich hab es probiert, aber irgendwie will das nicht.
der verschiebt jetzt die sheets in $oExcel2 und nicht mehr in $oExcel, aber so ganz isses das halt noch nicht *hehe*

sc4ry

thx th.meger, hat alles super geklappt =)

sc4ry

hey, klappt super, dank dir.
damit wäre ich eigentlich fertig mit meinem prog, nur noch ne hilfe schreiben und gucken, ob der auch alles richtig brennt =)

sc4ry

also eigentlich schreibe ich ja auch nur die gefundenen brenner in die ini.
das hab ich auch nur aus 2. gründen gemacht.

1. hab ich in der V1 von meinen programm standardmäßig brenner 1 genommen, alle anderen nicht beachtet (konnte man nachher per hand ändern)

2. mir grad nix besseres eingefallen ist, die brenner "festzuhalten"

... weil ich irgendwie mit array nicht klar komme.

sc4ry

jain...

also ich schreibe zumindest alle werte in dir ini, da könnte ich sie abrufen.
ich habe nacher nur 1 wert in der variable, weil ich es nicht besser weiss *g*
darum frag ich ja grade =)

müsste mit array arbeiten, oder?
das mal wieder neuland für mich *g*

sc4ry

hey, hätte da noch ein prob.
und zwar hab ich ne combobox, die (im mom) alle laufwerkbuchstaben anzeigt. aber das finde ich blöd, da ich ja eigentlich schon eine funktion drin habe, die die brennerlaufwerke raussucht.

das er 1 laufwerk auch in die combobox aufnimmt, hab ich auch geschafft, aber wie sage ich autoit, dass er dort mehrere reinsetzt?

suche brenner und schreibe alle in eine ini

[autoit]

;suche nach brenner/cdrom
$var = DriveGetDrive("cdrom")
if @error Then
MsgBox(16, "Error", "No CD-Writer found")
FileDelete(@scriptdir & "\" & $ini)
exit
Else
for $i = 1 to $var[0]
IniWrite($ini, "Drives", "Recorder" & $i, $var[$i])
$recorder = $var[$i]
Next
EndIf

[/autoit]

drop-down menü

[autoit]

;1st Tab
GUICtrlCreateTab(0, 0, 270, 165)
GUICtrlCreateTabItem("Burnsettings")
;Recorder
GUICtrlCreateLabel("Choose your CD-Writer", 10, 30)
GUICtrlCreateCombo($recorder, 10, 50)
GUICtrlSetData(-1, "D:|E:|F:|G:|H:|I:|J:|K:|L:|M:|N:|O:|P:|Q:|R:|S:|T:|U:|V:|W:|X:|Y:|Z:")

[/autoit]

und anstatt d,e,f,g,... usw sollen halt nur alle gefunden brenner dort aufgelistet werden.

sc4ry

also die prozessbar ist nicht sooo wichtig. war nur so ne idee am rande.

zu den comboboxen.

also in combo 1 stehen zur auswahl: Data-CD, SVCD, VCD und Image

in combo 2 stehen/standen generell: *.avi, *.mpg, *.iso, *.nrg, *.divx

will ich jetzt aber zb eine image brennen (combo 1) sind einige einträge in combo 2 sinnlos (*.avi, *.mpg, *.divx)

es sollte dann so aussehen.

combo 1: Data-CD
combo 2: *.avi, *.divx

combo 1: SVCD oder VCD
combo 2: mpg

combo 1: image
combo 2: *.iso, *.nrg

Beiträge von sc4ry

iniwrite und iniread für mehrzeilige msgbox

Wer findet den Fehler oO

Wer findet den Fehler oO

Berechtigungen von Ordner und Unterordnern anzeigen

Berechtigungen von Ordner und Unterordnern anzeigen

Berechtigungen von Ordner und Unterordnern anzeigen

Berechtigungen von Ordner und Unterordnern anzeigen

Berechtigungen von Ordner und Unterordnern anzeigen

GUI bleibt offen - trotz ExitLoop oO

GUI bleibt offen - trotz ExitLoop oO

Mehrere Exceldateien zu einer zusammenfassen

Mehrere Exceldateien zu einer zusammenfassen

Mehrere Exceldateien zu einer zusammenfassen

Mehrere Exceldateien zu einer zusammenfassen

gui - 2 combos verknüpfen

variablen auswahl in drop down menü

variablen auswahl in drop down menü

variablen auswahl in drop down menü

variablen auswahl in drop down menü

gui - 2 combos verknüpfen