Problem mit Checkbox

[butter123]

Hallo Leute,

ich hab ein Programm geschrieben, dass die aktuelle IP alle x Minuten ausließt und in einer txt speichert.
Es soll auch im Hintergrund gestartet werden können, aber ich hab Probleme mit der Checkbox: sie verändert sich nicht, wenn man draufklickt...

 Spoiler

PHP Code:

#include <ButtonConstants.au3>
#include "INet.au3"
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>


HotKeySet("^+{END}", "Terminate")
HotKeySet("^+{HOME}", "Pause")

Dim $file[4]
Dim $Minuten1[2]

$pause = False

_FileReadToArray("config.txt", $file)



$Form2 = GUICreate("IP", 335, 262, 302, 218)
$Pfad = GUICtrlCreateInput($file[1], 136, 24, 121, 21)
$Button1 = GUICtrlCreateButton("Save n' Go", 184, 200, 123, 25)
$Label1 = GUICtrlCreateLabel("IP hier speichern:", 32, 24, 86, 17)
$Label2 = GUICtrlCreateLabel("Alle", 32, 96, 21, 17)
$Minuten = GUICtrlCreateInput($file[2], 64, 96, 121, 21)
$Label3 = GUICtrlCreateLabel(" Minuten aktualisieren.", 185, 96, 140, 17)
$Button2 = GUICtrlCreateButton("IP aktualisieren", 32, 200, 99, 25)
$start = GUICtrlCreateCheckbox("Start in background?", 184, 180)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)






While 1

    $nMsg = GUIGetMsg()


            If $file[3] = "1" Then                                ;setzt die Checkbox auf den in der config.txt gespeicherten Wert
                GUICtrlSetState($start,$GUI_Checked)
            Else
                GUICtrlSetState($start,$GUI_Unchecked)
            EndIf

            If $file[3] = "1" Then
                GUISETSTATE(@SW_HIDE)
                IP()
            EndIf

    Switch $nMsg


        Case $GUI_EVENT_CLOSE
            Exit


        Case $Button2
            $file = FileOpen($file[1], 2)
            $ip = _GetIP()
            FileWrite($file, $ip)


        Case $Button1
            IP()


    EndSwitch
WEnd



Func IP()

            $config = FileOpen("config.txt", 2)                    ;speichert die Einstellungen
            $config = FileOpen("config.txt", 1)

            FileWrite($config, GuiCtrlRead($Pfad) & @CRLF)

            FileWrite($config, GuiCtrlRead($Minuten) & @CRLF)

            If GUICtrlRead($start = $GUI_Checked) Then
                FileWrite($config, "1")
            Else
                FileWrite($config, "0")
            EndIf



            GUISETSTATE(@SW_HIDE)

            _FileReadToArray("config.txt", $file)
            $time = $file[2] * 10000


                While 1



                    $file1 = FileOpen($file[1], 2)            ;speichert die IP
                    $ip = _GetIP()
                    FileWrite($file1, $ip)



                    If $pause = True Then                    ;kontrolliert ob das Skript pausiert wurde
                        ExitLoop                            ;ja ich war zu faul eine Schleife einzubauen :D
                    EndIf

                    Sleep($time)
                    If $pause = True Then
                        ExitLoop
                    EndIf
                    Sleep($time)
                    If $pause = True Then
                        ExitLoop
                    EndIf
                    Sleep($time)
                    If $pause = True Then
                        ExitLoop
                    EndIf
                    Sleep($time)
                    If $pause = True Then
                        ExitLoop
                    EndIf
                    Sleep($time)
                    If $pause = True Then
                        ExitLoop
                    EndIf
                    Sleep($time)


                WEnd

    EndFunc



Func Terminate()                                        ;beenden per Strg+Shift+POS1
    Exit
EndFunc

Func Pause()                                            ;pausieren mit Strg+Shift+ENDE
    GUISETSTATE(@SW_SHOW)
    $pause = True
EndFunc 


[Ludder231]

PHP Code:

 If GUICtrlRead($start)= $GUI_CHECKED Then
                FileWrite($config, "1")
            Else
                FileWrite($config, "0")
            EndIf 


[Freddy​]

oder so

PHP Code:

$a = GUICtrlRead($start)
If $a = 1 Then
    FileWrite($config, "1")
Else
    FileWrite($config, "0")
EndIf 


[butter123]

Das wars leider nicht ich kann die Box immer noch nicht anklicken...

Edit: Kommt das evtl. durch

PHP Code:

            If $file[3] = "1" Then             
                GUICtrlSetState($start,$GUI_Checked)
            Else
                GUICtrlSetState($start,$GUI_Unchecked)
            EndIf 


, dass die Box den Wert immer beibehalten will?
Aber wie bekomm ich es dann hin, dass sie den vorher gespeicherten Wert wieder hat?

[KDeluxe]

Dein Lösungsweg lässt doch zu wünschen übrig. Die Lösung mit der 2. Dauerschleife und den vielen Sleeps die zudem noch enorm hoch ausfallen können ist schlichtweg zu schlecht. Ich finde das ganze Script schlecht, möchte jetzt aber nicht auf jede Kleinigkeit eingehen.

Ich habe mal eine bessere Lösung erstellt, diese kannst du ja nach deinen Wünschen ausbauen:

PHP Code:

#include <GUIConstantsEx.au3>
#include <INet.au3>

Global $Timer, $bSaveIP = True
GUICreate("KD", 100, 50)
$Button = GUICtrlCreateButton("Start", 0, 0, 100, 25)
$Checkbox = GUICtrlCreateCheckbox("Hintergrund", 5, 25, 90, 25)
GUICtrlSetState(-1, IniRead("Settings.ini", "Checkbox", "State", $GUI_UNCHECKED))
If BitAND(GUICtrlRead($Checkbox), $GUI_UNCHECKED) Then
    $bSaveIP = False
    GUISetState()
EndIf

Do
    $Msg = GUIGetMsg()
    If $Msg == $Button Then
        $Timer = 0
        $bSaveIP = Not $bSaveIP

        If $bSaveIP Then
            GUICtrlSetData($Button, "Stopp")
        Else
            GUICtrlSetData($Button, "Start")
        EndIf
    ElseIf $Msg == $Checkbox Then
        $State = GUICtrlRead($Checkbox)
        IniWrite("Settings.ini", "Checkbox", "State", $State)
        If BitAND($State, $GUI_CHECKED) Then GUISetState(@SW_HIDE)
    EndIf

    If $bSaveIP Then
        If TimerDiff($Timer) >= 10 * 60 * 1000 Then ;10 Minuten
            FileWrite("IPList.txt", @MDAY & "." & @MON & "." & @YEAR & " " & _
                                    @HOUR & ":" & @MIN & ":" & @SEC & "    IP Adresse: " & _GetIP() & @CRLF)
            $Timer = TimerInit()
        EndIf
    EndIf

    Sleep(50)
Until $Msg == $GUI_EVENT_CLOSE 


Zu deinem Fehler:

PHP Code:

If $file[3] = "1" Then
    GUICtrlSetState($start,$GUI_Checked)
Else
    GUICtrlSetState($start,$GUI_Unchecked)
EndIf 


Das hat ohne Abfrage NICHTS in der Schleife verloren.

Haja, bist ja schon selbst drauf gekommen.

[butter123]

Deine Lösung ist in der Tat wesentlich eleganter

Ich werd mich morgen mal weiter reinarbeiten, danke dir

[~>Kredar<~]

#Stop-Beiträge
______

Nach den Regeln dürfen wir nicht zu schreiben, dass wir ein Problem haben.

Diese Regel wurde erstellt von Adroxxx

Klicken

[omer36]

Originally Posted by ~>Kredar<~

#Stop-Beiträge
______

Nach den Regeln dürfen wir nicht zu schreiben, dass wir ein Problem haben.

Diese Regel wurde erstellt von Adroxxx

Klicken

Threadtitle sollen so gewählt werden, dass man erkennt um was für ein Problem es sich handelt. "Problem mit Checkbox" also sieht man, dass es sich um eine Checkbox handelt.

Was man bei deinem Threadtitle nicht sagen kann:

Lern lieber AutoIt, da du anscheinend mit deinem C&P nicht weit gekommen bist. Schaust du hier:

[butter123]

Naja die Grundlagen aus den Tutorial gehen nicht sehr weit, damit kann man nicht sehr viel machen. Ich schreibe das Programm grad nochmal neu und versuche das von KillerDeluxe geschreibene einzubauen.

[KDeluxe]

Wofür was neues erstellen? Ein Input hätte gereicht:

PHP Code:

#include <GUIConstantsEx.au3>
#include <INet.au3>

Global $Timer, $bSaveIP = True
GUICreate("KD", 110, 75)
$B_Start = GUICtrlCreateButton("Start", 0, 0, 110, 25)
GUICtrlCreateLabel("Alle", 5, 33, 20, 17)
$I_Delay = GUICtrlCreateInput("10", 30, 30, 30, 21)
GUICtrlCreateLabel("Minuten", 65, 33, 40, 17)
$C_Background = GUICtrlCreateCheckbox("im Hintergrund", 5, 50, 100, 25)
GUICtrlSetState(-1, IniRead("Settings.ini", "Checkbox", "State", $GUI_UNCHECKED))
If BitAND(GUICtrlRead($C_Background), $GUI_UNCHECKED) Then
    $bSaveIP = False
    GUISetState()
EndIf

Do
    $Msg = GUIGetMsg()
    If $Msg == $B_Start Then
        $Timer = 0
        $bSaveIP = Not $bSaveIP

        If $bSaveIP Then
            GUICtrlSetData($B_Start, "Stopp")
        Else
            GUICtrlSetData($B_Start, "Start")
        EndIf
    ElseIf $Msg == $C_Background Then
        $State = GUICtrlRead($C_Background)
        IniWrite("Settings.ini", "Checkbox", "State", $State)
        If BitAND($State, $GUI_CHECKED) Then GUISetState(@SW_HIDE)
    EndIf

    If $bSaveIP Then
        If TimerDiff($Timer) >= GUICtrlRead($I_Delay) * 60 * 1000 Then
            FileWrite("IPList.txt", @MDAY & "." & @MON & "." & @YEAR & " " & _
                                    @HOUR & ":" & @MIN & ":" & @SEC & "    IP Adresse: " & _GetIP() & @CRLF)
            $Timer = TimerInit()
        EndIf
    EndIf

    Sleep(50)
Until $Msg == $GUI_EVENT_CLOSE 


[butter123]

Soooo, bin fast fertig^^

 Spoiler

PHP Code:

#include <GUIConstantsEx.au3>
#include <INet.au3>

Global $Timer, $SaveIP = False

GUICreate("IP", 335, 262)
$Label1 = GUICtrlCreateLabel("IP hier speichern:", 32, 24)
$Label2 = GUICtrlCreateLabel("Alle", 32, 90)
$Label3 = GUICtrlCreateLabel(" Minuten aktualisieren.", 185, 90)
$Label4 = GUICtrlCreateLabel("Status:", 32, 160)
$Label5 = GUICtrlCreateLabel("1", 80, 160,145,50)
$Pfad = GUICtrlCreateInput(IniRead("Settings.ini", "Pfad", "Path", "IP.txt"), 125, 21, 170, 21)
$Minuten = GUICtrlCreateInput(IniRead("Settings.ini", "Minuten", "Minuten", "10"), 60, 86, 121, 21)
$Button1 = GUICtrlCreateButton("Start", 230, 230, 90, 25)
$Button2 = GUICtrlCreateButton("Speichern", 120, 230, 90, 25)
$Button3 = GUICtrlCreateButton("Aktualisieren", 10, 230, 90, 25)
$Checkbox = GUICtrlCreateCheckbox("Hintergrund", 125, 200, 90, 25)                    ;startet das programm im hintergrund, bzw lässt es nach button2 im hintergrund laufen
GUICtrlSetState(-1, IniRead("Settings.ini", "Checkbox", "State", $GUI_UNCHECKED))
$tVordergrund  = TrayCreateItem("Vordergrund")
AutoItSetOption("TrayAutoPause",0)


If IniRead("Settings.ini", "Checkbox", "State", $GUI_UNCHECKED) = 1 Then
    $SaveIP = True
    $Timer = 0
    GUICtrlSetData($Button1, "Stopp")
Else
    GUISetState()
EndIf



Do
    $Msg = GUIGetMsg()
    $tMsg = TrayGetMsg()


    If $Msg == $Button1 Then                                                        ;ip aktualisieren starten

        If $SaveIP Then                                                                ;wenn es gestartet ist, wird start zu stopp
            GUICtrlSetData($Button1, "Stopp")
            GUICtrlSetData($Label5, "Stopped")                                        ;status
        Else
            GUICtrlSetData($Button1, "Start")
            GUICtrlSetData($Label5, "Starting")                                        ;status
        EndIf

        If GUICtrlRead($Checkbox) == $GUI_Checked Then                                ;programm geht in den hintergrund
            GUISetState(@SW_HIDE)
        EndIf

        $Timer = 0                                                                    ;startet den timer für die regelmäßige kontrolle
        $SaveIP = Not $SaveIP                                                        ;schaltet zwischen ip soll gespeichert werden und "pause" hin und her


    ElseIf $Msg == $Button2 Then                                                    ;alles in ini speichern

        $State = GUICtrlRead($Checkbox)
        IniWrite("Settings.ini", "Checkbox", "State", $State)

        $Pfad1 = GuiCtrlRead($Pfad)
        IniWrite("Settings.ini", "Pfad", "Path", $Pfad1)

        $Minuten1 = GuiCtrlRead($Minuten)
        IniWrite("Settings.ini", "Minuten", "Minuten", $Minuten1)


    ElseIf $Msg == $Button3 Then                                                    ;einmal aktualisieren

        $ip = _GetIP()
        FileOpen (IniRead("Settings.ini", "Pfad", "Path", "IP.txt"), 2)
        FileWrite(IniRead("Settings.ini", "Pfad", "Path", "IP.txt"), $ip)
        GUICtrlSetData($Label5, "Zuletzt aktualisiert: " & @HOUR & ":" & @MIN & ":" & @SEC) ;status

    ElseIf $SaveIP Then                                                                ;regelmäßiges aktualisieren der txt


                $status = Round(TimerDiff($Timer)/60/1000,2)
                $next = Round(IniRead("Settings.ini", "Minuten", "Minuten", "10") - TimerDiff($Timer)/60/1000,2)
                GUICtrlSetData($Label5, "Aktualisiert vor " & $status & " Minuten" &" Nächste in " & $next &" Minuten") ;status

        If TimerDiff($Timer) >= IniRead("Settings.ini", "Minuten", "Minuten", "10") * 60 * 1000 Then

            $ip = _GetIP()
            FileOpen (IniRead("Settings.ini", "Pfad", "Path", "IP.txt"), 2)
            FileWrite(IniRead("Settings.ini", "Pfad", "Path", "IP.txt"), $ip)

            $Timer = TimerInit()


        EndIf



    ElseIf $tMsg == $tVordergrund Then                                                ;traymenü
        GUISetState(@SW_SHOW)


    EndIf





    Sleep(50)


Until $Msg == $GUI_EVENT_CLOSE 


Zwei Fragen:
Wieso verwendest du kein While 1 Switch Case... für die Buttons? So hab ich es in bisher jedem Beispiel gesehen.

Wieso Funktioniert das mit dem Traymenü nciht richtig? (es passiert nichts, wenn ich auf "Vordergrund" klicke) In der Hilfe ist es mit While 1 Select Case... gemacht, lässt sich das nicht einfach in deine Version einbauen?

lg und schonmal danke :P

keks

[KDeluxe]

Natürlich, bei einem oder zwei Controls benutze ich aber meistens If-Abfragen und eine Do-Schleife. Prinzipiell ist das aber egal.

[butter123]

So Programm ist fertig. Danke ncohmal für die Hilfe

Für alle die es wissen wollen: Ich habe

PHP Code:

    Select
        Case $tMsg = $tVordergrund                                                 ;traymenü

            $show = Not $show
            If $show = True  Then
                GUISetState(@SW_SHOW)
                TrayItemSetState($tVordergrund,$TRAY_CHECKED)
            Else
                GUISetState(@SW_HIDE)
                TrayItemSetState($tVordergrund,$TRAY_UNCHECKED)
            EndIf

    EndSelect 


in die Do Schleife eingefügt, und an entsprechenden Stellen die Variable... geändert.
Die Variable musste ich einfügen, da es mit TrayItemGetState() nicht 100% funktioniert hat.