Beiträge von autoBert

  • If Bedingung - Fehler

    Hallo Bakku,

    ich weis ja nicht was du erreichen möchtest, aber teste einmal diese Version:

    Spoiler anzeigen
    [autoit]


    testXY(1, 2)

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

    For $x = 1 To 9
    For $y = 1 To 9
    testXY($x, $y)
    Next
    Next

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

    Func testXY($xoldArraynum1, $yoldArraynum1)
    ;If $xoldArraynum1 <> 1 And $xoldArraynum1 = 9 And $yoldArraynum1 = 0 Or $yoldArraynum1 = 2 Or $yoldArraynum1 = 4 Or $yoldArraynum1 = 6 Or $yoldArraynum1 = 8 Then
    If ($xoldArraynum1 = 9) And (Mod($yoldArraynum1, 2) = 0) Then
    MsgBox(0, "2", "2te")
    MsgBox(0, "Nummern", $xoldArraynum1 & ", " & $yoldArraynum1)
    $xhelp1 = $xoldArraynum1
    $yhelp1 = $yoldArraynum1 + 1
    $xoldArraynum1 = $xhelp1
    $yoldArraynum1 = $yhelp1
    MsgBox(0, "Nummern", $xoldArraynum1 & ", " & $yoldArraynum1)
    Else
    MsgBox(0, "Nummern x<>9 oder y nicht durch 2 teilbar", $xoldArraynum1 & ", " & $yoldArraynum1)
    EndIf
    EndFunc ;==>testXY

    [/autoit]

    mfg (Auto)Bert

  • Mehrere checkboxen auslesen und inhal auflisten

    Hallo JuraX,

    du musst den advanced Parameter verwenden

    Zitat von Hilfe

    GUICtrlRead ( controlID [, advanced] )
    ..
    Bemerkungen

    Im "advanced" Modus enthält der Rückgabewert zusätzliche Daten des Controls (siehe unten).

    Merke: nicht für alle bekannten Controls sind zusätzliche Daten verfügbar!

    Typ zusätzlicher Wert
    Checkbox, Radio Der Text des Controls.

    mfg (Auto)Bert

  • BIT/s

    Hallo Sever,

    schau dir dazu

    [autoit]

    InetGetInfo

    [/autoit]

    und

    [autoit]

    TimerInit
    TimerDiff

    [/autoit]

    an der Rest ist wie @tklausl schon anmerkte: ausrechnen,

    mfg (Auto)Bert

  • JaYT-DwiMP3-P (YT-Downloader) Version 0.8.7.1

    Hallo Fabian,

    Zitat von Fabian

    Ist ja logisch wie das funktioniert (Kopf auf Tischkante hau)
    Naja leider startet bei mir kein Download nachdem ich auf den Button Go gedrückt habe.
    Und der Titel wird auch nicht angezeigt sondern einfach "0"

    ja leider, dass kommt daher dass YouTube am 1. April den Seitenaufbau testweise verändert hat, es gibt zwar noch vereinzelt Zeiten in denen Downloads möglich sind. OB YT noch nicht alles umgestellt oder Probleme mit dem neuen System hat :?: Ich habe aber bisher noch keinen Weg gefunden, wie ich jetzt an die tatsächlichen Downloaddaten komme, mir ist auch kein mit AutoIt geskripteter YT-Downloader bekannt der dies derzeit beherrscht,

    mfg (Auto)Bert

  • Daten aus einer Liste in .ini schreiben

    Hier dein Skript für Gruppe A bereits angepasst, damit die Einträge in INI stimmen,

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #Include <GuiListBox.au3>

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

    #region ### START Koda GUI section ### Form=
    $Form1_1_1 = GUICreate("Gruppen", 903, 606, 186, 122)
    GUISetFont(12, 400, 0, "Monotype Corsiva")
    GUISetBkColor(0xC0C0C0)
    GUICtrlSetFont(-1, 60, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlSetBkColor(-1, 0x316AC5)
    $Button1 = GUICtrlCreateButton("OK", 176, 120, 33, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $List1 = GUICtrlCreateList("", 8, 192, 153, 150)
    GUICtrlSetData(-1, "")
    $Input1 = GUICtrlCreateInput("Team", 6, 117, 161, 26)
    GUICtrlSetColor(-1, 0x800000)
    $Label1 = GUICtrlCreateLabel("Gruppe A", 16, 160, 136, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0x800000)
    $Button2 = GUICtrlCreateButton("OK", 396, 121, 33, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $List2 = GUICtrlCreateList("", 228, 193, 153, 150)
    GUICtrlSetData(-1, "")
    $Input2 = GUICtrlCreateInput("Team", 226, 118, 161, 26)
    GUICtrlSetColor(-1, 0x800000)
    $Label2 = GUICtrlCreateLabel("Gruppe B", 236, 161, 136, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0x800000)
    $Button3 = GUICtrlCreateButton("OK", 620, 121, 33, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $List3 = GUICtrlCreateList("", 452, 193, 153, 150)
    GUICtrlSetData(-1, "")
    $Input3 = GUICtrlCreateInput("Team", 450, 118, 161, 26)
    GUICtrlSetColor(-1, 0x800000)
    $Label3 = GUICtrlCreateLabel("Gruppe C", 460, 161, 134, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0x800000)
    $Button4 = GUICtrlCreateButton("OK", 844, 121, 33, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $List4 = GUICtrlCreateList("", 676, 193, 153, 150)
    GUICtrlSetData(-1, "")
    $Input4 = GUICtrlCreateInput("Team", 674, 118, 161, 26)
    GUICtrlSetColor(-1, 0x800000)
    $Label4 = GUICtrlCreateLabel("Gruppe D", 684, 161, 138, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0x800000)
    $weg1 = GUICtrlCreateButton("Liste löschen", 24, 384, 121, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $weg2 = GUICtrlCreateButton("Liste löschen", 244, 384, 121, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $weg3 = GUICtrlCreateButton("Liste löschen", 472, 381, 121, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $weg4 = GUICtrlCreateButton("Liste löschen", 695, 383, 121, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $Weiter = GUICtrlCreateButton("Weiter", 768, 560, 75, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
    $Abbrechen = GUICtrlCreateButton("Abbrechen", 656, 560, 75, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $Team1 = GUICtrlRead($Input1)
    GUICtrlSetData($List1, $Team1)
    $i= _GUICtrlListBox_GetCount($List1)
    IniWrite("Teams.ini", "Gruppe A", $i & ")", $Team1)
    GUICtrlSetData($Input1, "")
    #cs ab hier noch anpassen
    Case $Button2
    $Team2 = GUICtrlRead($Input2)
    GUICtrlSetData($List2, $Team2)
    IniWrite("Teams.ini", "Gruppe B", "2)", $Team2)
    GUICtrlSetData($Input2, "")
    Case $Button3
    $Team3 = GUICtrlRead($Input3)
    GUICtrlSetData($List3, $Team3)
    IniWrite("Teams.ini", "Gruppe C", "3)", $Team3)
    GUICtrlSetData($Input3, "")
    Case $Button4
    $Team4 = GUICtrlRead($Input4)
    GUICtrlSetData($List4, $Team4)
    IniWrite("Teams.ini", "Gruppe D", "4)", $Team4)
    GUICtrlSetData($Input4, "")
    Case $weg1
    GUICtrlSetData($List1, "")
    IniDelete("Teams.ini", "Gruppe A")
    Case $weg2
    GUICtrlSetData($List2, "")
    IniDelete("Teams.ini", "Gruppe B")
    Case $weg3
    GUICtrlSetData($List3, "")
    IniDelete("Teams.ini", "Gruppe C")
    Case $weg4
    GUICtrlSetData($List4, "")
    IniDelete("Teams.ini", "Gruppe D")
    #ce
    Case $Abbrechen
    ; IniDelete("Teams.ini")
    Exit
    Case $Weiter
    Exit
    EndSwitch
    WEnd

    [/autoit]

    mfg (Auto)Bert

  • Combobox updaten

    Hallo aquaplant,

    da du dein Skript nicht gepostet hast, hier ein allgemein gehaltenes Beispiel:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ComboConstants.au3>
    #Include <GuiComboBox.au3>
    #include <File.au3>
    #include <array.au3>

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

    Global $szDrive,$szDir,$szFName,$szExt

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

    $idGUI = GUICreate("Flaggen", 300, 115)
    $idcbo = GUICtrlCreateCombo("", 10, 10, 180, 80,BitOR($CBS_SORT,$GUI_SS_DEFAULT_COMBO))
    $idNeu = GUICtrlCreateButton("...",200,10,30,25)
    $idVorschau = GUICtrlCreatePic(@ScriptDir & "\Flaggen\NA.jpg", 210, 40, 36, 24)
    $idInfo = GUICtrlCreateButton("&alle auslesem",10,90,180,25)
    GUISetState()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $idInfo
    $count = _GUICtrlComboBox_GetCount($idcbo)
    Dim $acbo[$count]
    $acbo = _GUICtrlComboBox_GetListArray($idcbo)
    _ArrayDisplay($acbo)
    case $idNeu
    $sAlt = GUICtrlRead($idcbo)
    $sPlus = FileOpenDialog("Land auswählen:",@ScriptDir & "\Flaggen","Bilder (*.jpg)",3,"",$idGUI)
    _PathSplit($sPlus,$szDrive,$szDir,$szFName,$szExt)
    ConsoleWrite($szFName & @CRLF)
    GUICtrlSetData($idcbo,$szFName,$szFName)
    Case $idcbo
    GUICtrlSetImage($idVorschau, @ScriptDir & "\Flaggen\" & GUICtrlRead($idcbo) & ".jpg")
    EndSwitch
    WEnd

    [/autoit]

    mfg (Auto)Bert

  • Anzeige im Listfeld ans Ende

    Hallo johnny1099,

    so:[spoiler]

    [autoit]

    #include <EditConstants.au3>
    #include <ListBoxConstants.au3>
    #include <GuiListBox.au3>
    #include <File.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    Dim $array_1, $suche_adressen, $string_logfile
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 1000, 543, -1, 50)
    $grp_group1 = GUICtrlCreateGroup("Liste der Adressen", 5, 40, 963, 350)
    $list_list1 = GUICtrlCreateList("", 10, 60, 950, 420, BitOR($WS_BORDER, $WS_VSCROLL, $LBS_NOTIFY, $LBS_DISABLENOSCROLL, $WS_HSCROLL))

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

    $button_listadressen = GUICtrlCreateButton("Adressen anzeigen", 10, 10, 100, 30)

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

    GUISetState(@SW_SHOW)

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

    #endregion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $button_listadressen
    GUICtrlSetLimit($list_list1, 960)
    GUICtrlSetData($list_list1, "")
    _FileReadToArray(@ScriptDir & "\Adressen.txt", $array_1)
    For $i = 1 To UBound($array_1) - 1
    _GUICtrlListBox_AddString($list_list1, $array_1[$i])
    Next
    $iIndex = _GUICtrlListBox_GetCount($list_list1) - 1
    ConsoleWrite($iIndex & @CRLF)
    _GUICtrlListBox_SetTopIndex($list_list1, $iIndex)
    EndSwitch

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

    WEnd

    [/autoit]

    [/spoiler

    mfg (Auto)Bert