prosba o pomoc

[Marakash]

udało mi się znalesc na necie takie w miare proste GUI ale nie wiem jak przypisać funkcje do odpowiednich buttonów :/

 

 

tak w skrócie jak chciałbym żeby to wyglądało z mojjej perspektywy:

odpalam to GUI mam 3 klawisze jeden pod drugim 1 "F4" 2 "F7" 3 "Pauza"

gdy klikne pierwszy klawisz (F4) to co 0,8sekundy program bedzie naciskał F4

gdy klikne (F7-nazwa buttona) program bedzie wciskal f7 co 2,5sek caly czas,gdy klikne "pauza" program po prostu się zatrzyma.

 

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

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

$Przyklad = GUICreate("Przyklad", 158, 164, 192, 124)

$Button1 = GUICtrlCreateButton("Start", 32, 8, 89, 33, $WS_GROUP)

$Button2 = GUICtrlCreateButton("Stop", 33, 61, 89, 33, $WS_GROUP)

$Button3 = GUICtrlCreateButton("Wyjście", 32, 112, 91, 33, $WS_GROUP)

GUISetState(@SW_SHOW)

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

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE ;Funkcja zamykania okna (exit)

Exit

Case $Button1 ;Funkcja 1 przycisku

MsgBox(0, "Przyklad", "Funkcja")

Case $Button2 ;Funkcja 2 przycisku

MsgBox(0, "Przyklad", "Funkcja")

Case $Button3 ;Funkcja 3 przycisku

MsgBox(0, "Przyklad", "exit")

EndSwitch

WEnd

 

doszedlem do tylko do tego dalej nie wiem co robić :

 

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

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

$Przyklad = GUICreate("MLVL", 158, 164, 192, 124)

$Button1 = GUICtrlCreateButton("F4", 32, 8, 89, 33, $WS_GROUP)

$Button2 = GUICtrlCreateButton("F7", 33, 61, 89, 33, $WS_GROUP)

$Button3 = GUICtrlCreateButton("Pauza", 32, 112, 91, 33, $WS_GROUP)

GUISetState(@SW_SHOW)

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

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE ;Funkcja zamykania okna (exit)

Exit

Case $Button1 ;Funkcja 1 przycisku

While 1

 

Sleep(800)

Send("{F4}")

 

WEnd

Case $Button2 ;Funkcja 2 przycisku

MsgBox(0, "Przyklad", "Funkcja")

Case $Button3 ;Funkcja 3 przycisku

MsgBox(0, "Przyklad", "exit")

EndSwitch

WEnd

 

gdy probuje zrobić drugi button tym samym sposobem co pierwszy wogole go nie widzi :/ siedze nad tym od 21 jest 01:01 pomoocy :/

 

chce tylko dodac do button2 żeby cały czas wciskało f7 co 2,5sek a do button3 pauze i nie działa mi w GUI "x" odpowiedzialny za zamknięcie okna.

 

czytałem o funkcjach pętlach itd jest 3 w nocy poddaje się na dzisiaj ,mam nadzieje że ktoś się zlituje i mi pomoże

[Marakash]

niechce żeby ktoś napisał to za mnie tylko pomógł mi ,naprowadził.

[Pawellek]

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

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

$Przyklad = GUICreate("MLVL", 158, 164, 192, 124)

$Button1 = GUICtrlCreateButton("F4", 32, 8, 89, 33, $WS_GROUP)

$Button2 = GUICtrlCreateButton("F7", 33, 61, 89, 33, $WS_GROUP)

$Button3 = GUICtrlCreateButton("Pauza", 32, 112, 91, 33, $WS_GROUP)

GUISetState(@SW_SHOW)

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

 

Global $paused = False

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE ;Funkcja zamykania okna (exit)

Exit

Case $Button1 ;Funkcja 1 przycisku

AdlibRegister("F4", 800)

Case $Button2 ;Funkcja 2 przycisku

AdlibRegister("F7", 2500)

Case $Button3 ;Funkcja 3 przycisku

_Pause()

EndSwitch

WEnd

 

Func F4()

If Not $paused Then

Send("{F4}")

EndIf

EndFunc ;==>F4

 

Func F7()

If Not $paused Then

Send("{F7}")

EndIf

EndFunc ;==>F7

 

Func _Pause()

$paused = Not $paused

EndFunc ;==>_Pause