Simple Script Help

[Douglasjbell]

Hi All

Just new to AutoIT and programming in general.

I have the following script, basically what I want it to do is when the start button is pressed and the notepad is active to continually send text to the notepad. When the Stop button is pressed its stops the script, just cant seem to get it to stop the script, please see my script below.

#include <GUIConstantsEx.au3>
GUICreate("Type in Notepad", 200, 100)
GUICtrlCreateLabel("Type in Notepad?", 30, 10)
$Startbutton = GUICtrlCreateButton("Start", 20, 50, 60)
$Stopbutton = GUICtrlCreateButton("Stop", 100, 50, 60)
GUISetState(@SW_SHOW)

Dim $i
$i = 1


While 1
  $msg = GUIGetMsg()

  Select
    Case $msg = $Startbutton

    Do
;sleep(5000)     
Send("This is some text.")
winWaitActive("Untitled - Notepad")
Until $i = 10

Case $msg = $Stopbutton
$i = 10

    Case $msg = $GUI_EVENT_CLOSE
      
      ExitLoop
  EndSelect
WEnd

Cheers

Dougie

[Rawox]

Hi All

Just new to AutoIT and programming in general.

I have the following script, basically what I want it to do is when the start button is pressed and the notepad is active to continually send text to the notepad. When the Stop button is pressed its stops the script, just cant seem to get it to stop the script, please see my script below.

#include <GUIConstantsEx.au3>
GUICreate("Type in Notepad", 200, 100)
GUICtrlCreateLabel("Type in Notepad?", 30, 10)
$Startbutton = GUICtrlCreateButton("Start", 20, 50, 60)
$Stopbutton = GUICtrlCreateButton("Stop", 100, 50, 60)
GUISetState(@SW_SHOW)

Dim $i
$i = 1


While 1
  $msg = GUIGetMsg()

  Select
    Case $msg = $Startbutton

    Do
;sleep(5000)     
Send("This is some text.")
winWaitActive("Untitled - Notepad")
Until $i = 10

Case $msg = $Stopbutton
$i = 10

    Case $msg = $GUI_EVENT_CLOSE
      
      ExitLoop
  EndSelect
WEnd

Cheers

Dougie

Maybe it would be a better idea to use hotkeys... Look in the help file for "HotKeySet"

[nekkutta]

#include <GUIConstantsEx.au3>
GUICreate("Type in Notepad", 200, 100)
GUICtrlCreateLabel("Type in Notepad?", 30, 10)
$Startbutton = GUICtrlCreateButton("Start", 20, 50, 60)
$Stopbutton = GUICtrlCreateButton("Stop", 100, 50, 60)
GUISetState(@SW_SHOW)

Dim $i
$i = 1


While 1
    $msg = GUIGetMsg()

    Select
        Case $msg = $Startbutton

            Do
                Sleep(500)
                WinWaitActive("Untitled - Notepad")
                Send("This is some text.")
                $msg = GUIGetMsg()
                If $msg = $Stopbutton Then ExitLoop
            Until $i = 10

        Case $msg = $Stopbutton
            $i = 10

        Case $msg = $GUI_EVENT_CLOSE

            ExitLoop
    EndSelect
WEnd

it'll stop, but you have to push the stop button a couple times.