Problem mit Checkbox

08/05/2011 21:51 butter123#1

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

08/05/2011 22:08 Ludder231#2

PHP Code:


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

08/05/2011 22:19 Freddy#3

oder so

PHP Code:


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

08/05/2011 22:55 butter123#4

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?

08/05/2011 22:56 KDeluxe#5

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.

08/05/2011 23:30 butter123#6

Deine L�sung ist in der Tat wesentlich eleganter ;)

Ich werd mich morgen mal weiter reinarbeiten, danke dir :)

08/06/2011 09:58 ~>Kredar<~#7

#Stop-Beitr�ge
______

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

Diese Regel wurde erstellt von Adroxxx
[Only registered and activated users can see links. Click Here To Register...]

[Only registered and activated users can see links. Click Here To Register...]

Klicken [Only registered and activated users can see links. Click Here To Register...]

08/06/2011 14:21 omer36#8

Quote:

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
[Only registered and activated users can see links. Click Here To Register...]

[Only registered and activated users can see links. Click Here To Register...]

Klicken [Only registered and activated users can see links. Click Here To Register...]

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: [Only registered and activated users can see links. Click Here To Register...]

Lern lieber AutoIt, da du anscheinend mit deinem C&P nicht weit gekommen bist. Schaust du hier: [Only registered and activated users can see links. Click Here To Register...]

08/06/2011 14:32 butter123#9

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.

08/06/2011 15:31 KDeluxe#10

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

08/06/2011 16:34 butter123#11

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

08/06/2011 17:37 KDeluxe#12

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

08/06/2011 19:11 butter123#13

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.