Code: Select all
StepDelay := -9999999999
global MessageList := [[0, 1], [2, 3], [4, 5], [6, 7], [8, 9], [10, 11], [12, 13], [14, 15], [16, 17], [18, 19]]
Code: Select all
Sequence:
; CustomMessage uses SendMessage. Different values are used depending on Index - see the
; function definition at the end.
CustomMessage(Index)
TimerSet := A_TickCount ; Record when the timer was started. This is used for the countdown
SetTimer, Sequence, % TimerLength := StepDelay ; Set the timer for the next time
Return
CustomMessage(ByRef Index)
{
if (++Index > 10) ; Add one to Index. If Index is > 61...
Index := 1 ; Reset to one
SendMessage, 0x1330, MessageList[Index, 1], 1, SysTabControl321, Sierra ;TCM_SETCURFOCUS = 0x1330
SendMessage, 0x1330, MessageList[Index, 2], 1, SysTabControl321, Sierra ;TCM_SETCURFOCUS = 0x1330
}
So far, I have got help in creating this, but it just sends the Messagelist Index as numbers and commas, i.e. 0,1 then 2,3 etc
Code: Select all
TestLabel:
StartIndex := 1
EndIndex := 4
InterruptMe := 0
SlX := 2000 ; Sleep duration.
Loop, ; Send MessageList endlessly until interrupted.
{
LoopIndex := StartIndex - 1
Loop, % EndIndex - StartIndex + 1 ; Loop as many times as there are entries between End and Start.
{
LoopIndex ++
SEND, % MessageList[LoopIndex, 1] "," MessageList[LoopIndex, 2]
SLEEP SlX
If InterruptMe
{
ErrorLevel := 1
Return
}
}
Loop, % EndIndex - StartIndex - 1
{
LoopIndex --
SEND, % MessageList[LoopIndex, 1] "," MessageList[LoopIndex, 2]
SLEEP SlX
If InterruptMe
{
ErrorLevel := 1
Return
}
}
}
Return
}