While Problem

[Misha]

Func AutoPicker ()
    GuiCtrlSetData( $AutoPickerButton, "Stop Picking")
    $PickerWhile = 0
    $AutoPicker = 1
    While $PickerWhile = 0
        GuiCtrlSetOnEvent( $AutoPickerButton, "ExitPicker")
        sleep($Slide)
        WinActivate ("Classname=Shell_TrayWnd")
        Send(" ",1)
        WinActivate ("Classname=Shell_TrayWnd")
        Send("{BACKSPACE}")
    WEnd
EndFunc



Func ExitPicker ()
    $PickerWhile = 1
    GuiCtrlSetData( $AutoPickerButton, "Start Picking")
    GuiCtrlSetOnEvent( $AutoPickerButton, "AutoPicker")
EndFunc

Edited April 14, 2006 by Misha

[GaryFrost]

is there a question in this somewhere?

if there is, you'll need to provide more info, like the problem/question and maybe even more script.

[Misha]

it enters the while but can not exit...I think it cant get to the guictrlsetonevent..

help

[Valuater]

this will so the trick

expandcollapse popup

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)

Dim $Slide = 100, $PickerWhile

GUICreate("MY GUI")

$AutoPickerButton = GUICtrlCreateButton("Start Picking", 150, 150, 150, 20)
GUICtrlSetOnEvent($AutoPickerButton, "AutoPicker")

GUISetState()

While 1
    Sleep(10)
    While $PickerWhile = 0
        sleep($Slide)
        WinActivate ("Classname=Shell_TrayWnd")
        Send(" ",1)
        WinActivate ("Classname=Shell_TrayWnd")
        Send("{BACKSPACE}")
    WEnd
WEnd


Func AutoPicker ()
    GuiCtrlSetData( $AutoPickerButton, "Stop Picking")
    GuiCtrlSetOnEvent( $AutoPickerButton, "ExitPicker")
    $PickerWhile = 0
    $AutoPicker = 1
EndFunc



Func ExitPicker ()
    $PickerWhile = 1
    GuiCtrlSetData( $AutoPickerButton, "Start Picking")
    GuiCtrlSetOnEvent( $AutoPickerButton, "AutoPicker")
EndFunc

@gafrost... i saw the other post and helped before

8)