func sendOne($keyA, $keyB , $keyC, $Max)

Local $i, $rnd, $lastRnd
$rnd = Round(Random(1, 3), 0)

If $Max = 3 Then

For $i = 1 To $Max

    If $lastRnd = 2 Or $lastRnd = 3 Then
        $rnd = 1
        ElseIf $lastRnd = 1 Or $lastRnd = 3  Then
        $rnd = 2
        ElseIf $lastRnd = 1 Or $lastRnd = 2 Then
        $rnd = 3
    EndIf

    Select

        Case $rnd == 1;uc (65-90)
            ;MsgBox(0,"Status A", $rnd)
            send($keyA)
        Case $rnd == 2;lc (97-112)
            ;MsgBox(0,"Status B", $rnd)
            send($keyB)
        Case $rnd == 3;nr (48-57)
            ;MsgBox(0,"Status C", $rnd)
            send($keyC)

    EndSelect

    $lastRnd = $rnd

    Next

endFunc