Beiträge von autoBert

  • Skript nach Neustart fortsetzen

    Zitat von Matthias_199

    Also das sich dien PC automatisch anmeldet würde mir das einfallen.
    http://www.tipps-tricks-kniffe.de/window…tisch-anmelden/


    Da meldest du dich nicht an, sondern schaltest die Anmeldung ab.

    Zitat von Tigger1975

    @ Autobert es gibt schon mal gründe mehrere Scripte zu Schreiben.


    Einfacher wäre es mit einem und da er ....Wait verwendet ist wenn das

    • 1. Nebenskript den Neustart initiert, das 2. noch gar nicht gestartet
    • 2. Nebenskript den Neustart initiert, das 1. bereits abgearbeitet

    Wozu also für diesen Fall 3 Skripte.

    Zitat von Tigger1975

    ich denke die automatisch Anmeldung ist möglich, du müsstest das vor dem Herunterfahren in der registry eintragen

    wenn es sich über die Registry lösen lässt ist nichts dagegen einzuwenden, mir sin aber die nötigen Reg-Einträge nicht bekannt,

    mfg autoBert

  • Skript nach Neustart fortsetzen

    Zitat von petter2

    Auch die Windows-Anmeldung sollte automatisch erfolgen

    Die Windows-Anmeldung kann man afaik nicht automatisieren (zum Glück).

    Zitat von petter2

    Es ist nicht möglich, alle Skripte in eine Datei zu schreiben.

    Wenn du die Skripte eh nacheinander abarbeitest, geht es auch in einem Skript!

    Zitat von petter2

    In einem der Nebenskripte möchte ich einen Neustart durchführen lassen. Nach dem Neustart sollen beide Skripte an der selben Stelle weiterarbeiten, an der sie aufgehört haben.

    Sollte zumindest in dem Skript, dass den Neustart initiert möglich sein, dehalb bin ich auch der Meinung, dass ein einziges Skript die bessere Lösung ist,

    mfg autoBert

  • 2 Listviews "verbinden"

    Hallo

    schau dir das Beispiel zu

    [autoit]

    _GUICtrlListView_EnsureVisible

    [/autoit]

    an. Das ist die Lösung wenn beide LVs vom Index her identisch aufgebaut sind. Mit

    [autoit]

    _GUICtrlListView_SetItemFocused

    [/autoit]

    kannst du dann auch in der 2. LV den Focus setzen,

    mfg autoBert

  • Funktionen werden übersprungen

    Zitat von Dietmar

    autoBert
    sehe ich auch so,

    sieht (fast) jeder. War dazu da um Nakroma auch sehend zu machen.

    Zitat von Dietmar

    wenn dann kommst du aus einer Funktion nicht sauber zurück :)

    es werden immer alle 3 Funktionen ausgführt.

    Zitat von Nakroma

    Wenn man nochmal ziehen will kommt einfach ein Exit O_o
    Was stimmt den nicht?

    Das Skript mach was du geshrieben hast es führt die 3 funcs aus und wenn in Main die Frage nach noch einer Karte mit Ja beantwortet wird auch noch einmal die func card ausgeführt. Danach wird die func Main beendet.
    Du hast also ein Logikproblem,

    mfg autoBert

  • Funktionen werden übersprungen

    Es werden alle Funktionen aufgerufen:

    Spoiler anzeigen
    [autoit]

    $cash = 30
    $cash2 = 30
    $wert = 0
    $wert2 = 0
    $player1 = True
    $player2 = True
    Local $card, $card2
    einsatz()
    Func einsatz()
    Global $player1 = True
    Global $player2 = True
    Global $wert = 0
    Global $wert1 = 0
    Global $in = InputBox("Einsatz", "Player 1, wieviel Geld willst du einsetzen?")
    Global $in2 = InputBox("Einsatz", "Player 2, wieviel Geld willst du einsetzen?")
    If @error Then Exit
    If $in < 1 Then
    MsgBox(0, "Einsatz", "Bitte neuen Einsatz wählen. Zu niedrig")
    einsatz()
    EndIf
    If $in > $cash Then
    MsgBox(0, "Einsatz", "Du hast nicht genug Geld!")
    einsatz()
    EndIf
    If $in2 < 1 Then
    MsgBox(0, "Einsatz", "Bitte neuen Einsatz wählen. Zu niedrig")
    einsatz()
    EndIf
    If $in2 > $cash2 Then
    MsgBox(0, "Einsatz", "Du hast nicht genug Geld!")
    einsatz()
    EndIf
    card()
    card2()
    main()
    EndFunc ;==>einsatz
    Func card()
    MsgBox(0, "", "Card")
    $cardr = Random(1, 13, 1)
    If $cardr = 1 Then
    $card = "Ass(1)"
    $wert = $wert + 1
    ElseIf $cardr = 2 Then
    $card = "Zwei(2)"
    $wert = $wert + 2
    ElseIf $cardr = 3 Then
    $card = "Drei(3)"
    $wert = $wert + 3
    ElseIf $cardr = 4 Then
    $card = "Vier(4)"
    $wert = $wert + 4
    ElseIf $cardr = 5 Then
    $card = "Fünf(5)"
    $wert = $wert + 5
    ElseIf $cardr = 6 Then
    $card = "Sechs(6)"
    $wert = $wert + 6
    ElseIf $cardr = 7 Then
    $card = "Sieben(7)"
    $wert = $wert + 7
    ElseIf $cardr = 8 Then
    $card = "Acht(8)"
    $wert = $wert + 8
    ElseIf $cardr = 9 Then
    $card = "Neun(9)"
    $wert = $wert + 9
    ElseIf $cardr = 10 Then
    $card = "Zehn(10)"
    $wert = $wert + 10
    ElseIf $cardr = 11 Then
    $card = "Bube(11)"
    $wert = $wert + 11
    ElseIf $cardr = 12 Then
    $card = "Dame(12)"
    $wert = $wert + 12
    ElseIf $cardr = 13 Then
    $card = "König(13)"
    $wert = $wert + 13
    EndIf
    EndFunc ;==>card
    Func card2()
    MsgBox(0, "", "Card2")
    $cardr2 = Random(1, 13, 1)
    If $cardr2 = 1 Then
    $card2 = "Ass(1)"
    $wert2 = $wert2 + 1
    ElseIf $cardr2 = 2 Then
    $card2 = "Zwei(2)"
    $wert2 = $wert2 + 2
    ElseIf $cardr2 = 3 Then
    $card2 = "Drei(3)"
    $wert2 = $wert2 + 3
    ElseIf $cardr2 = 4 Then
    $card2 = "Vier(4)"
    $wert2 = $wert2 + 4
    ElseIf $cardr2 = 5 Then
    $card2 = "Fünf(5)"
    $wert2 = $wert2 + 5
    ElseIf $cardr2 = 6 Then
    $card2 = "Sechs(6)"
    $wert2 = $wert2 + 6
    ElseIf $cardr2 = 7 Then
    $card2 = "Sieben(7)"
    $wert2 = $wert2 + 7
    ElseIf $cardr2 = 8 Then
    $card2 = "Acht(8)"
    $wert2 = $wert2 + 8
    ElseIf $cardr2 = 9 Then
    $card2 = "Neun(9)"
    $wert2 = $wert2 + 9
    ElseIf $cardr2 = 10 Then
    $card2 = "Zehn(10)"
    $wert2 = $wert2 + 10
    ElseIf $cardr2 = 11 Then
    $card2 = "Bube(11)"
    $wert2 = $wert2 + 11
    ElseIf $cardr2 = 12 Then
    $card2 = "Dame(12)"
    $wert2 = $wert2 + 12
    ElseIf $cardr2 = 13 Then
    $card2 = "König(13)"
    $wert2 = $wert2 + 13
    EndIf
    EndFunc ;==>card2
    Func main()
    MsgBox(0, "", "Main")
    MsgBox(0, "Karte", "Player 1, du hast die Karte: " & $card)
    MsgBox(0, "Karte", "Player 2, du hast die Karte: " & $card2)
    If $wert > 21 Then
    MsgBox(0, "Verloren", "Player 1, Du bist über dem Wert 21! Du bist raus.")
    $player1 = False
    MsgBox(0, "Cash", "Player 1, dein momentaner Cash: " & $cash)
    If $player2 = False Then
    $choose_loose = MsgBox(4, "Bank", "Player 1, Player 2, wollt ihr nochmal spielen?")
    If $choose_loose = 6 Then
    einsatz()
    Else
    Exit
    EndIf
    EndIf
    EndIf
    If $wert2 > 21 Then
    MsgBox(0, "Verloren", "Player 2, Du bist über dem Wert 21! Du bist raus.")
    $player2 = False
    MsgBox(0, "Cash", "Player 2, dein momentaner Cash: " & $cash2)
    If $player1 = False Then
    $choose_loose2 = MsgBox(4, "Bank", "Player 1, Player 2, wollt ihr nochmal spielen?")
    If $choose_loose2 = 6 Then
    einsatz()
    Else
    Exit
    EndIf
    EndIf
    EndIf
    EndFunc ;==>main

    [/autoit]

    mfg autoBert

  • Nur Textteile auswerten

    Hallo Scritch,

    Wenn es unterschiedliche Längenanzahl sein soll aber immer das gleiche Schlüsselwort (ergibt) vorkommt kannst du es so machen:

    [autoit]

    $sVar = "100 mal 100 ergibt 10000"
    $array = StringSplit($sVar,"ergibt",1)
    ConsoleWrite($array[$array[0]] & @CRLF)

    [/autoit]

    mfg autoBert

  • DOSBox Fehler

    Hallo psyche,

    das zu sendende Zeichen kansst d hiermit ermitteln:

    [autoit]

    run("C:\Program Files (x86)\DOSBox-0.74\dosbox.exe")
    winwait("DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: DOSBOX")
    For $i = 33 to 255
    Send($i & @TAB & Chr($i))
    send("{ENTER}")
    Next

    [/autoit]

    mfg autoBert

  • AutoIt Textdatei lesen?

    Hallo Scarecraft,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem: falls du in C# EXE-Dateien ausführen kannst, sollte das doch kein Problem sein. Wenn ich dich richtig verstanden habe sollte es mit

    [autoit]

    ControlSend;oder
    ControlSetText

    [/autoit]

    möglich sein, die nötigen Eingaben in den AutoIt-GUIs vorzunehmen.
    Ich frage mich allerdings warum du nicht alles mit AutoIt löst,

    mfg autoBert

  • SQL-Statement DELETE

    Hallo ineedhelp,

    erstelle nach dem Erstellen der Tables noch einen Trigger:

    [autoit]

    _SQLite_Exec(-1, _
    'CREATE TRIGGER [Test] ' & _
    'AFTER DELETE ON [TableA] ' & _
    'FOR EACH ROW ' & _
    'BEGIN ' & _
    ' delete from TableB where TabelleA_ID = old.ID; ' & _
    ' delete from TableC where TabelleA_ID = old.ID; ' & _
    'END')

    [/autoit]


    dieser wird automatisch nach jedem erfolgreichen Löschvorgang in TableA ausgeführt,

    mfg autoBert

  • DOSBox Fehler

    Hallo Psyche,

    das liegt an unterschiedlichen Zeichensätzen von DOS und Windows. Sende einfach einmal alle CHR($i); $i>32 <255 Zeilenweise dann erkennst du das richtige,

    PS.: man kann Beiträge aucg editieren

    mfg autoBert

  • 2-dimensionales Array mit Combobox

    Hallo wuff,

    hier das geänderte Skript:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiComboBox.au3>
    #include <GuiToolTip.au3>
    #include <GuiEdit.au3>
    #include <IE.au3>
    #include <File.au3>
    #include <Array.au3>
    _IEErrorHandlerRegister()
    $oIE = _IECreateEmbedded()
    #region ### START Koda GUI section ### Form=d:\messmittelliste\html.kxf
    ;$Form1_1 = GUICreate("Messmittelliste HTML Code-Generator", 1600, 800, -1, -1, $WS_OVERLAPPEDWINDOW)
    $Form1_1 = GUICreate("Messmittelliste HTML Code-Generator", 1600, 800, 0, 0, $WS_OVERLAPPEDWINDOW)
    ;<============ an meinen Bildschirm angepasst
    ;~ GUICtrlSetResizing($Form1_1, $GUI_DOCKAUTO)
    $Edit1 = GUICtrlCreateEdit("", 32, 560, 529, 209, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY))
    GUICtrlSetData(-1, "")
    $Edit2 = GUICtrlCreateEdit("", 592, 176, 977, 593, BitOR($GUI_SS_DEFAULT_EDIT, $WS_EX_LAYERED))
    GUICtrlSetData(-1, "")
    GUICtrlSetBkColor($Edit2, 0xCCE4FF)
    $Edit3 = GUICtrlCreateEdit("", 32, 280, 532, 170, BitOR($GUI_SS_DEFAULT_EDIT, $WS_EX_LAYERED))
    GUICtrlSetLimit(-1, 1500)
    GUICtrlSetBkColor($Edit3, 0xCCE4FF)
    $Combo1 = GUICtrlCreateCombo("", 192, 230, 41, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
    $Combo2 = GUICtrlCreateCombo("", 256, 230, 81, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
    $Combo3 = GUICtrlCreateCombo("", 360, 230, 81, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
    $Combo4 = GUICtrlCreateCombo("", 850, 90, 81, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
    $Combo5 = GUICtrlCreateCombo("", 900, 90, 100, 25);<============= an meinen BS angepasst war 1000,90.300
    $Label1 = GUICtrlCreateLabel("", 128, 100, 436, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_CENTERIMAGE, $ES_READONLY, $ES_CENTER, $ES_AUTOHSCROLL))
    $Label2 = GUICtrlCreateLabel("Messmittelliste HTML Code-Generator", 10, 10, 1548, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_CENTERIMAGE, $ES_READONLY, $ES_CENTER, $ES_AUTOHSCROLL)); File in Label einlesen!
    GUICtrlSetColor(-1, 0xE20074)
    GUICtrlSetFont(-1, 20, 500, 0, "TeleLogo")
    $Label3 = GUICtrlCreateLabel("", 744, 150, 676, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_CENTERIMAGE, $ES_READONLY, $ES_CENTER, $ES_AUTOHSCROLL)); File in Label einlesen!
    $Button1 = GUICtrlCreateButton("HTML-Code erzeugen", 208, 500, 185, 41, $BS_NOTIFY)
    $Button2 = GUICtrlCreateButton("Datei öffnen", 32, 90, 81, 33, $BS_NOTIFY)
    $Button3 = GUICtrlCreateButton("Textdatei öffnen", 592, 50, 113, 33, $BS_NOTIFY)
    $Button4 = GUICtrlCreateButton("Textdatei speichern", 592, 130, 113, 33, $BS_NOTIFY)
    $Button5 = GUICtrlCreateButton("HTML Vorschau", 592, 90, 113, 33, $BS_NOTIFY)
    $Button6 = GUICtrlCreateButton("select_copy", 493, 510, 70, 33, $BS_NOTIFY)
    ;$Button7 = GUICtrlCreateButton("Hochladen", 1500, 90, 70, 33, $BS_NOTIFY)
    $Button7 = GUICtrlCreateButton("Hochladen", 1000, 120, 70, 33, $BS_NOTIFY) ;<============ an meinen BS angepasst
    $input = GUICtrlCreateInput("", 32, 178, 532, 25, $ES_OEMCONVERT, $SS_CENTERIMAGE)
    GUICtrlSetLimit(-1, 100)
    GUICtrlSetBkColor($input, 0xCCE4FF)
    $label = GUICtrlCreateLabel("", 230, 70, 200, 30, BitOR($GUI_SS_DEFAULT_LABEL, $SS_CENTERIMAGE, $ES_CENTER, $ES_READONLY, $ES_AUTOHSCROLL))
    GUICtrlSetColor(-1, 0xE20074)
    GUICtrlSetFont(-1, 10, 500, 0, "Tele-GroteskHal")
    $Group1 = GUICtrlCreateGroup("Datei öffnen", 16, 58, 553, 90)
    GUISetState()
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###
    ;aktuelles Datum
    Func Datum()
    return (@MDAY & "." & @MON & "." & @YEAR)
    EndFunc ;==>Datum
    ; Tool-Tip anzeigen
    GUICtrlSetTip($Combo2, "Der Text kann verändert werden, in HTML blau dargestellt", "Versionsnummer", 1, 2)
    GUICtrlSetTip($Button2, "Button betätigen", "einzulesende Datei öffnen, Firmware, Software, Dokumente etc.", 1, 2)
    GUICtrlSetTip($Combo1, "Der Text kann verändert werden, in HTML blau dargestellt", "Version = V,Ausgabe = A", 1, 2)
    GUICtrlSetTip($Combo3, "1. aktuelles Datum" & @CRLF & "2. Datei erstellt" & @CRLF & "3. Datei verändert" & @CRLF & "4. Datei letzter Zugriff", "Das Datum kann verändert werden, in Html blau dargestellt ", 1, 2)
    GUICtrlSetTip($Button1, "Button betätigen", "HTML-Code erzeugen", 1, 2)
    GUICtrlSetTip($Button3, "Button betätigen", "HTML-Textdatei öffnen", 1, 2)
    GUICtrlSetTip($Button4, "Button betätigen", "HTML-Textdatei speichern", 1, 2)
    GUICtrlSetTip($Button5, "Button betätigen", "HTML-Vorschau, die Textdatei wird gespeichert", 1, 2)
    GUICtrlSetTip($input, "Der Text kann verändert werden", "Auswahltext", 1, 2)
    GUICtrlSetTip($Edit1, "Der Text kann nicht im Feld verändert werden", "Auswahltext durch rechtsklick kopieren", 1, 2)
    ;GUICtrlSetTip($Edit3, "Der Text kann verändert werden" > = CR"&@CRLF&" & nbsp = space"," Beschreibungstext, In HTML blau dargestellt",1,2)
    ;<================ obige Zeile ergibt Fehler
    GUICtrlSetTip($Label1, "Länge der Zeichen wird gezählt", "Dateiname", 1, 2)
    GUISetState()
    ;~ ;version.ini auslesen!
    $var = IniReadSection(@ScriptDir & "\ini\version.ini", "version")
    If IsArray($var) Then ;<================
    For $i = 1 To $var[0][0]
    _GUICtrlComboBox_AddString($Combo1, $var[$i][1])
    Next
    EndIf
    ;~ ;version.ini auslesen!
    $var = IniReadSection(@ScriptDir & "\ini\version.ini", "usergruppe")
    If IsArray($var) Then ;<================
    For $i = 1 To $var[0][0]
    _GUICtrlComboBox_AddString($Combo4, $var[$i][1])
    Next
    EndIf;gtyp.ini schreiben und lesen!
    $gtypfileopen = FileOpen("V:\ZMM_Datenbank_Export\messmittelliste_gtyp.txt", 0)
    $gtypfileread = FileRead($gtypfileopen, 100000)
    $gtypfilereplace = StringReplace($gtypfileread, "|", "=")
    MsgBox(1, "", $gtypfilereplace)
    ;$gtypS = IniWriteSection(@ScriptDir & "\ini\gtyp.ini", "gtyp", $gtypfilereplace);~ gtyp INI schreiben
    ;<================ obige Zeile auskommetiert sonst wird ja die INI ünerschrieben (geleert)
    $gtypL = IniReadSection(@ScriptDir & "\ini\gtyp.ini", "gtyp");~ gtyp INI auslesen
    if IsArray($gtypL) Then ;<================
    _ArrayDisplay($gtypL)
    For $i = 1 To $gtypL[0][0]
    _GUICtrlComboBox_AddString($Combo5, $gtypL[$i][0]) ;~ die Werte (INI-Datei) erste Spalte in Combobox schreiben
    Next
    EndIf
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Button7
    ;Combo 4 auslesen
    $dttsread = GUICtrlRead($Combo4)
    ;~ MsgBox(1,"",$dttsread)
    ;Ini version auslesen dtts, dtnp
    If $dttsread = "dtts" Then
    $usergruppe = IniRead(@ScriptDir & "\ini\version.ini", "daten", "item1", "default")
    MsgBox(1, "", $usergruppe)
    EndIf
    If $dttsread = "dtnp" Then
    $usergruppe = IniRead(@ScriptDir & "\ini\version.ini", "daten", "item2", "default")
    MsgBox(1, "", $usergruppe)
    EndIf
    $read2 = GUICtrlRead($Combo5, 1);V,A
    $sValue = $gtypL[_ArraySearch($gtypL,$read2)][1]
    MsgBox(1, $read2,$sValue)
    EndSwitch
    WEnd
    ;---------------

    [/autoit]

    Änderungen habe ich mit ;<========= gekennzeichnet

    mfg autoBert