[Pomocy] Co zrobić, żeby po kliknięciu na gui wyłączał się skrypt?

[TheMineOfMine]

Cześć! Mam pytanie dot. mojego skryptu - co zrobić, by po kliknięciu na button, który w kodzie określiłem jako "stop1" skrypt "start1" się wyłączał? Mam nadzieję, że mi pomożecie.

 

 

 

 
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate(" Omijanie AFK by KoKi v 0.2", 615, 438, 192, 124)
GUISetFont(8, 800, 0, "NewDigital Italic")
$start1 = GUICtrlCreateButton("Omijanie start", 120, 128, 161, 57)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Rounded MT Bold")
$stop1 = GUICtrlCreateButton("Omijanie stop", 352, 128, 153, 57)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Rounded MT Bold")
$Label1 = GUICtrlCreateLabel(" System stworzony w stu procentach przez uzytkownika KoKi - wszystkie parawa zastrzezone", 0, 56, 607, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Arial Rounded MT Bold")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Form1
            Exit
        Case $start1
            while 1
mouseclick("right",100,100)
sleep(20000)
mouseclick("right",101,101)
sleep(1)
mouseclick("right",100,100)
sleep(13000)
mouseclick("right",101,101)
sleep(1)
mouseclick("right",100,100)
sleep(19000)
mouseclick("right",101,101)
sleep(1)
mouseclick("right",100,100)
sleep(15000)
mouseclick("right",101,101)
wend
        Case $stop1
            Exit
    EndSwitch
WEnd
 

[Wasiij Iwanowic]

a nie sry to nie tak

 

jak chcesz aby ten Case $start1 ci się wyłączał to hmmm...możesz dać tam coś w stylu Do <to co masz w tym case> Until Case $stop1 albo jakoś tak

wyjaśniam

pętla Do Until wykonuje coś dopóki nie pojawi się jakiś warunek np. jeżeli zmienna $1 = 10 wtedy przestanie robić to co robi

[C.J]

Wrzuciłeś to w pętle While 1, ona się nie kończy, więc program nie sprawdzi czy kliknąłeś na przycisk, który ma zamknąć ten skrypt.
Możesz wrzucić to w inną pętle np. adlibregister, albo użyć hotkeyset i pod przykładowo klawisz "end" dać funkcję Exit

[TheMineOfMine]

a nie sry to nie tak

 

jak chcesz aby ten Case $start1 ci się wyłączał to hmmm...możesz dać tam coś w stylu Do <to co masz w tym case> Until Case $stop1 albo jakoś tak

 

wyjaśniam

pętla Do Until wykonuje coś dopóki nie pojawi się jakiś warunek np. jeżeli zmienna $1 = 10 wtedy przestanie robić to co robi

 

Jesteś w stanie mi to napisać?

[Phoenix_PL]

 

Do
;twój kod
Until $rob = true

 

$true to wartość logiczna (true/false), wystarczy że ustawisz ją za pomoca przycisku na true lub false (w zależności co chcesz zrobić) i wszystko będzie śmigać. Nie zapomnij zadeklarować wcześniej tej zmiennej.

 

Tą pętlę musisz wstawić w pętlę główną (While 1) żeby wszystko działało.

[TheMineOfMine]

 

Do
;twój kod
Until $rob = true

 

$true to wartość logiczna (true/false), wystarczy że ustawisz ją za pomoca przycisku na true lub false (w zależności co chcesz zrobić) i wszystko będzie śmigać. Nie zapomnij zadeklarować wcześniej tej zmiennej.

 

Tą pętlę musisz wstawić w pętlę główną (While 1) żeby wszystko działało.

 

Nie rozumiem zupełnie. Wkleisz mi to w kod?

[C.J]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate(" Omijanie AFK by KoKi v 0.2", 615, 438, 192, 124)
GUISetFont(8, 800, 0, "NewDigital Italic")
$start1 = GUICtrlCreateButton("Omijanie start", 120, 128, 161, 57)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Rounded MT Bold")
$stop1 = GUICtrlCreateButton("Omijanie stop", 352, 128, 153, 57)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Rounded MT Bold")
$Label1 = GUICtrlCreateLabel(" System stworzony w stu procentach przez uzytkownika KoKi - wszystkie parawa zastrzezone", 0, 56, 607, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Arial Rounded MT Bold")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$koniec = 0
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Form1
            Exit
        Case $start1
   Do
mouseclick("right",100,100)
sleep(20000)
mouseclick("right",101,101)
sleep(1)
mouseclick("right",100,100)
sleep(13000)
mouseclick("right",101,101)
sleep(1)
mouseclick("right",100,100)
sleep(19000)
mouseclick("right",101,101)
sleep(1)
mouseclick("right",100,100)
sleep(15000)
mouseclick("right",101,101)
Until $koniec = 1
        Case $stop1
            Exit
    EndSwitch
WEnd

Przykładowo, ale musisz przypisać jeszcze pod jakiś klawisz, albo funkcję zmiany wartości $koniec na 1...

[Gość]

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate(" Omijanie AFK by KoKi v 0.2", 615, 438, 192, 124)

GUISetFont(8, 800, 0, "NewDigital Italic")

$start1 = GUICtrlCreateButton("Omijanie start", 120, 128, 161, 57)

GUICtrlSetFont(-1, 8, 400, 0, "Arial Rounded MT Bold")

$stop1 = GUICtrlCreateButton("Omijanie stop", 352, 128, 153, 57)

GUICtrlSetFont(-1, 8, 400, 0, "Arial Rounded MT Bold")

$Label1 = GUICtrlCreateLabel(" System stworzony w (prawie)stu procentach przez uzytkownika KoKi - wszystkie parawa zastrzezone", 0, 56, 607, 19)

GUICtrlSetFont(-1, 10, 400, 0, "Arial Rounded MT Bold")

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

$koniec = 0

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $Form1

Exit

Case $start1

$koniec = 0

Do

mouseclick("right",100,100)

sleep(20000)

mouseclick("right",101,101)

sleep(1)

mouseclick("right",100,100)

sleep(13000)

mouseclick("right",101,101)

sleep(1)

mouseclick("right",100,100)

sleep(19000)

mouseclick("right",101,101)

sleep(1)

mouseclick("right",100,100)

sleep(15000)

mouseclick("right",101,101)

Until $koniec

Case $stop1

$koniec = 1

EndSwitch

WEnd

 

[C.J]

Until $koniec

To nie zadziała..

 

Musi być

Until $koniec = 1

[Gość]

Jak się zostawi samo to będzie znaczyło

Until $koniec = True

Sprawdź sam