Es gibt hier keine 10 Post Regel. 
Das System gibt dir sehr wohl ein Feedback. Gleich nach dem Absenden des Beitrags wird dir mitgeteilt, das dein Beitrag zur Moderation vorgelegt wurde. Da in der Warteschleife aber momentan kein Thema vorliegt vermute ich mal, das du da ein anderes Problem hast.
#include <GUIConstants.au3>
#include <Array.au3>
Dim $aCheckbox[4][2] = [[0, "var1"],[1, "var2"],[2, "var3"],[3, "var4"]]
Dim $aInput[4]
#region - GUI Create
GUICreate("", 200, 400)
$top = 8
For $i = 0 To 3
$aCheckbox[$i][0] = GUICtrlCreateCheckbox($aCheckbox[$i][1], 8, $top, 40, 25)
$aInput[$i] = GUICtrlCreateInput("", 50, $top, 50, 25)
GUICtrlSetLimit(-1, 1)
$top += 25
Next
$button = GUICtrlCreateButton("klick", 8, 120)
GUISetState()
#endregion - GUI Create
#region - GUI SelectLoop
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $button
_save()
EndSelect
WEnd
#endregion - GUI SelectLoop
Func _save()
Local $aTmp[4][2]
For $i = 0 To 3
If BitAND(GUICtrlRead($aCheckbox[$i][0]), $GUI_CHECKED) = $GUI_CHECKED Then
$aTmp[$i][0] = $aCheckbox[$i][1]
$aTmp[$i][1] = GUICtrlRead($aInput[$i])
EndIf
Next
_ArraySort($aTmp, 0, 0, 0, 1)
;ab hier in Datei schreiben
For $i = 1 To UBound($aTmp) - 1
ConsoleWrite($aTmp[$i][0] & @CRLF)
Next
EndFunc ;==>_save
edit: Kleiner Nachtrag. Wenn du es auf diese Weise machst, wäre es besser $aTmp[1][2] zu deklarieren und dann mit _array2dAdd() zu arbeiten. Dann gibt's auch keine leeren Elemente im Array und die Ausgabe ist "sauber". Daran hab ich jetzt nicht gedacht.
#include<array.au3>
$aTaskbarPos = WinGetPos( "[Class:Shell_TrayWnd]")
_ArrayDisplay($aTaskbarPos)
Das gibt dir ein Array mit der Position un den Abmessungen der Taskbar aus.
0 => x Position
1 => y Position
2 => Breite
3 => Hoehe
Daraus kannst du die Position der taskleiste auf dem Bildschirm ableiten. Sind zum Beispiel $aTaskbarPos[0] und $aTaskbarPos [1] jeweils 0, befindet sich die Taskbar an der linken Bildschirmseite. Bei $aTaskbarPos [2] würde dann der Arbeitsbereich beginnen und wäre in diesem Fall auch die Left Position deiner GUI.
Einfach mal mit verschiedenen Taskbar Positionn ausführen, erklärt sich praktisch selbst.
Eine Ini_Write_de() wird direkt am Anfang gebraucht.
Das heist für mich, du führst die Funktion bereits einmal vor dem Skriptschnipsel den du uns hier zeigst aus.
Zu diesem Zeitpunkt sind die Variablen aber noch nicht deklariert.
Variable used without being declared
Variable nicht deklariert. http://translation.autoit.de/onlinehilfe/in…g_variables.htm
Du kannst den embed code auch in eine Variable packen und dann mit _IEBodyWriteHTML() anzeigen. Vorher nach about:blank navigieren.
Schreib die Dateipfade in ein Array und durchlauf es in einer FOR Schleife.
edit: Den Wert für deine $workflowtype Variable könntest du dann über regex aus dem Pfad holen oder über eine IF StringInStr() setzen.
Hab dann heute doch noch was zusammengebastelt.
Schau's dir mal an.
Würd ich dir zusammenbasteln wenn du dich mit meinem schnellen GUI Entwurf anfreunden kannst.
Ansonsten müsstest du mir was in Koda zusammenschustern.
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
Opt("GUIOnEventMode", 1)
$guiMain = GUICreate("", 930, 373, 228, 146)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$cGroup1 = GUICtrlCreateGroup("Gast", 8, 16, 252, 345)
$cListGuest = GUICtrlCreateList("", 48, 40, 200, 305)
$cAddGuest = GUICtrlCreateButton("+", 14, 41, 27, 27)
GUICtrlSetTip(-1, "Gast hinzufügen")
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$cRemoveGuest = GUICtrlCreateButton("-", 14, 71, 27, 27)
GUICtrlSetTip(-1, "Gast entfernen")
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$cGroup2 = GUICtrlCreateGroup("Zettel", 272, 16, 361, 345)
$cList = GUICtrlCreateListView("Produkt|Menge|Preis", 279, 41, 340, 240)
$cLabel1 = GUICtrlCreateLabel("gesammt:", 280, 296, 71, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$cLabelComplete = GUICtrlCreateLabel("10,00€", 352, 296, 64, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$cLabel2 = GUICtrlCreateLabel("-", 421, 288, 13, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$cLabelPayed = GUICtrlCreateLabel("10,00€", 439, 296, 64, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$cLabel3 = GUICtrlCreateLabel(">>", 510, 292, 24, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$cLabelResult = GUICtrlCreateLabel("10,00€", 540, 296, 72, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$cLabel4 = GUICtrlCreateLabel("zahlt;", 283, 331, 40, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$cInput = GUICtrlCreateInput("", 328, 326, 65, 21)
$cLabel5 = GUICtrlCreateLabel("€", 399, 323, 15, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$cPay = GUICtrlCreateButton("bestättigen", 424, 324, 75, 25)
GUICtrlSetTip(-1, "Gast zahlt Betrag x")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$cGroup3 = GUICtrlCreateGroup("Produkt", 670, 16, 252, 345)
$cListProducts = GUICtrlCreateList("", 678, 40, 200, 305,$WS_VSCROLL)
$cAddProduct = GUICtrlCreateButton("+", 884, 41, 27, 27)
GUICtrlSetTip(-1, "Produkt hinzufügen")
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$cRemoveProduct = GUICtrlCreateButton("-", 884, 71, 27, 27)
GUICtrlSetTip(-1, "Produkt entfernen")
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$cPaddGuest = GUICtrlCreateButton("<<", 637, 41, 27, 27)
GUICtrlSetTip(-1, "anschreiben")
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
$cPremoveGuest = GUICtrlCreateButton(">>", 637, 70, 27, 27)
GUICtrlSetTip(-1, "entfernen")
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
_guest()
_product()
_topay()
While 1
Sleep(100)
WEnd
Func _Exit()
Exit
EndFunc
Func _guest()
GUICtrlSetData($cListGuest, "Hans|Peter|Fritz")
EndFunc
Func _topay()
_GUICtrlListView_AddItem($cList, "Schnaps")
_GUICtrlListView_AddItem($cList, "Bier")
_GUICtrlListView_AddItem($cList, "Wein")
_GUICtrlListView_AddSubItem($cList, 0,"3",1)
_GUICtrlListView_AddSubItem($cList, 0,"3,00",2)
_GUICtrlListView_AddSubItem($cList, 1,"4",1)
_GUICtrlListView_AddSubItem($cList, 1,"8,00",2)
_GUICtrlListView_AddSubItem($cList, 2,"1",1)
_GUICtrlListView_AddSubItem($cList, 2,"2,00",2)
EndFunc
Func _product()
GUICtrlSetData($cListProducts, "Korn|Bier|Schnaps|und Wein|denn wir hören unsere Leber schrein ...")
EndFunc
Ich würde mal beim Öffnen der Datei ansetzen.
; Return Value(s): On Success - 1
; On Failure - -1 and set
; @Error to:
; 0 - No error
; 1 - Parse error, @Extended = MSXML reason
; 2 - No object
Entweder 1 oder -1. $ret=0 dürfte hier keinen Fehler abfangen. Ich wette _XMLFileOpen() liefert dir -1 zurück.
Ersetz dein Skript mit der Version aus dem Startpost, dann geht's wieder.
Wenn du nur den Source haben willst, ohne die Seite zu öffnen benutz halt InetRead(), _InetGetSource().
For $i= 1 to 100
$key = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE", $i)
If @error <> 0 then ExitLoop
For $j = 1 To 100
$value = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE" &"\"&$key, $j)
If @error <> 0 Then ExitLoop
ConsoleWrite($key & "-" & $value & @CRLF)
Next
Next
getline(cin,sName);
getline(), hab ich dir doch schonmal irgendwo geschrieben.
RegWrite(), RegRead() etc.
[/autoit]
Die Dinger heissen Schlüssel.
GUICtrlSetData()
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#Include <GuiComboBox.au3>
$Form1 = GUICreate("Form1", 204, 180, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 16, 144, 75, 25, $WS_GROUP)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 185, 89)
GUICtrlSetData(-1, "Edit1")
GuiCtrlSetData($Edit1, "")
$Combo1 = GUICtrlCreateCombo("", 8, 112, 145, 25)
GUISetState(@SW_SHOW)
$FileList = _FileListToArray(@ScriptDir,'*.ini',1)
For $i = 1 to $FileList[0]
_GUICtrlComboBox_AddString($Combo1, $FileList[$i])
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
;$Wert = Guictrlread($a) & Guictrlread($b)
;Guictrlsetdata($Edit1,$Wert)
EndSwitch
WEnd
Inkludes vergessen, die INIs liegen in @ScriptDir. Die INIs nicht immer wieder in einer While einlesen lassen.
Was sind $Wert, $a und $b ?
RAD Studio. Aber das ist schon Ok, Spricht ja nichts gegen Visual Studio.
Hätt ich die stdafx.h inkludiert und die pragmas entfernt, wär es warscheinich auch bei dir sofort gelaufen.