Hmm Global ?

[Cha0sBG]

expandcollapse popup

#Include <GuiConstantsEX.au3>
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#Include <Misc.au3>
#Include <Constants.au3>

Global $PAUSED, $Continue = False

$Main = GUICreate("Easy Write", 350, 200)
GUISetState(true)
$Input = GUICtrlCreateInput("", 5, 33, 300)
$Input2 = GUICtrlCreateInput("Input Client Name", 5, 65, 300)
$Input3 = GUICtrlCreateInput("Delay", 280, 140, 55)
$But1 = GUICtrlCreateButton("Start", 110, 160, 80)
$CH1 = GUICtrlCreateCheckbox("Check The Box If U Want To Continue Sending", 5, 140)
$Stop = GUICtrlCreateButton("Stop", 200, 160, 80)   

Local $Delay, $read, $read2
While 1
    $msg = GUIGetMsg()
    Select
        case $msg = $But1
        Continue()
    Case $MSG = $GUI_EVENT_CLOSE 
        Exit
    Case Else
       Sleep(100)
    Case $msg = $Stop Then
    Stop()
    EndSelect
WEnd

Func Continue()
    $read = GUICtrlRead($Input)
    $read2 = GUICtrlRead($Input2)
    While 1
    If GUICtrlRead($CH1, $GUI_CHECKED) Then
    $Delay = GUICtrlRead($Input3)
    WinActivate($read2)
    WinSetOnTop("Easy Write", "",1)
    Send($read)
    Send("{Enter}")
            Sleep($Delay)
    Else
    WinActivate($read2)
    Send($read)
    Send("{Enter}")
        EndIf
    WEnd

    EndFunc

hmm what whoud be the right way to make the button STOP work ? with global or ? and what was the code if i set Pause on global i forgot can someone help ?

[Zedna]

expandcollapse popup

#include <GuiConstantsEX.au3>
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <Misc.au3>
#include <Constants.au3>

Global $PAUSED, $Continue = False

$Main = GUICreate("Easy Write", 350, 200)
$Input = GUICtrlCreateInput("", 5, 33, 300)
$Input2 = GUICtrlCreateInput("Input Client Name", 5, 65, 300)
$Input3 = GUICtrlCreateInput("Delay", 280, 140, 55)
$But1 = GUICtrlCreateButton("Start", 110, 160, 80)
$CH1 = GUICtrlCreateCheckbox("Check The Box If U Want To Continue Sending", 5, 140)
$Stop = GUICtrlCreateButton("Stop", 200, 160, 80)
GUISetState(@SW_SHOW)

Local $Delay, $read, $read2

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $But1
            Continue()
;~      Case $msg = $Stop
;~          Stop()
;~      Case Else
;~          Sleep(100)
    EndSelect
WEnd

Func Continue()
    $read = GUICtrlRead($Input)
    $read2 = GUICtrlRead($Input2)
        While 1
        If GUIGetMsg() = $Stop Then ExitLoop
                If GUICtrlRead($CH1, $GUI_CHECKED) Then
            $Delay = GUICtrlRead($Input3)
            WinActivate($read2)
            WinSetOnTop("Easy Write", "", 1)
            Send($read)
            Send("{Enter}")
            Sleep($Delay)
        Else
            WinActivate($read2)
            Send($read)
            Send("{Enter}")
        EndIf
    WEnd
EndFunc   ;==>Continue

;~ Func Stop()
;~ EndFunc   ;==>Stop

[someone]

hmm what whoud be the right way to make the button STOP work ? with global or ? and what was the code if i set Pause on global i forgot can someone help ?

The reason the stop buttong isn't working has nothing to do with global/local vars or anything like that. What is happenening is when you push the start button, there is nothing listening for the GUI message... so when you push stop or try to close the gui nothing happens.

I hacked up your code a bit so I could run it, but look this over you'll get the idea...

expandcollapse popup

#Include <GuiConstantsEX.au3>
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#Include <Misc.au3>
#Include <Constants.au3>

;Global $PAUSED, $Continue = False

$Main = GUICreate("Easy Write", 350, 200)
$Input = GUICtrlCreateInput("", 5, 33, 300)
$Input2 = GUICtrlCreateInput("Input Client Name", 5, 65, 300)
$Input3 = GUICtrlCreateInput("Delay", 280, 140, 55)
$But1 = GUICtrlCreateButton("Start", 110, 160, 80)
$CH1 = GUICtrlCreateCheckbox("Check The Box If U Want To Continue Sending", 5, 140)
$Stop = GUICtrlCreateButton("Stop", 200, 160, 80)   

GUISetState()

;Local $Delay, $read, $read2
While 1
    Sleep(10)
    $msg = GUIGetMsg()
    Select
        case $msg = $But1
        Continue()
    Case $MSG = $GUI_EVENT_CLOSE 
        Exit
;~   Case Else
;~      Sleep(100)
;~   Case $msg = $Stop;Then
;~   Stop()
    EndSelect
WEnd

Func Continue()
    $read = GUICtrlRead($Input)
    $read2 = GUICtrlRead($Input2)
    While 1
    $msg = GUIGetMsg()
    ToolTip("Running")
    If $msg = $Stop Then
        ToolTip("")
        Return
    EndIf
    If GUICtrlRead($CH1, $GUI_CHECKED) Then
    $Delay = GUICtrlRead($Input3)
;~   WinActivate($read2)
;~   WinSetOnTop("Easy Write", "",1)
;~   Send($read)
;~   Send("{Enter}")
            Sleep($Delay)
;~   Else
;~   WinActivate($read2)
;~   Send($read)
;~   Send("{Enter}")
    EndIf
    WEnd
EndFunc

If you have your Sleep() set to something large the GUI isn't going to respond quickly though. Test this out see how it works for you.