Custom Query

Hello,

Here an example:

#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)

Global $Label, $iPos = 0 , $sleep = 10

$Form1 = GUICreate("Adlibtest - Sleep("&$sleep&")", 240, 100, 990, 30)
GUISetOnEvent(-3, "_Exit")
$Label = GUICtrlCreateLabel("Testlabel", 25, 14, 300, 16)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Start",15,50,60,40)
GUICtrlSetOnEvent(-1,"_startadlib")
$Button2 = GUICtrlCreateButton("Stop",120,50,60,40)
GUICtrlSetOnEvent(-1,"_stopadlib")
GUISetState(@SW_SHOW)

While Sleep($sleep) ; the higher the sleep , the more often the labelswitch fails
WEnd

Func _startadlib()
GUICtrlSetData($Label,"Running")
AdlibRegister("_Laufschrift")
EndFunc

Func _stopadlib()
AdlibUnRegister("_Laufschrift")
GUICtrlSetData($Label,"Stopped") ; labelswitch failing sometimes 
EndFunc

Func _Exit()
    Exit
EndFunc

Func _Laufschrift()
    GUICtrlSetData($Label, StringMid("Running", $iPos) & "           " & "Running")
    $iPos += 1.8
    If $iPos > StringLen("Running") Then $iPos = 0
EndFunc

I tested this script on several pcs but the behavoir is always the same. AdlibUnRegister

sometimes

fails and the subsequent command is not being executed.

You can try the examplescript , just click the buttons "Start" and "Stop" by turns.(wait 1-2 secs. before clicking stop) Sooner or later the label will be stopped on "Running Running Running" despite of the GuictrlsetData($Label,"Stopped").

Bug or not? :)

Greetz Devol

PS: I talked to the german forum before opening this ticket.

After AdlibUnregister, the original time interval is retained in memory instead of it being released. This causes a problem when you register the same function again. There should always be approximately 10 seconds between each return and new call to the function in the example below, however it goes wildly out of sync after the first run.

Global $iTimer = TimerInit(), $iSleep = 10000

AdlibRegister("AdlibTimer", $iSleep)

While 1

Sleep(20)

WEnd

Func AdlibTimer()

ConsoleWrite(TimerDiff($iTimer) & @LF) ; Time since the last visit. AdlibUnRegister("AdlibTimer") ; This should clear everything. Sleep($iSleep/2) ; Waste a bit of time. AdlibRegister("AdlibTimer", $iSleep) ; The timer was not reset. $iTimer = TimerInit() ; The time AdlibTimer was registered.

EndFunc ==

Actually SmOkE_N discovered this issue - see the following link: ​http://www.autoitscript.com/forum/topic/167126-adlibregister-issue/?p=1222290

GUICtrlRead(@GUI_CtrlId,1)

With AutoIt 3.2.12.0, it always return "-1" instead of the text of the control (Context Menu)

It work perfectly with 3.2.10.0