wieso geht das nicht?

Global $paused = FALSE
HotKeySet( "{PAUSE}", "TogglePause")
$i = 0
While $i <= 6
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Send("{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{LEFT}{LEFT}{TAB}{TAB}{TAB}")
Dim $lLimit1 = 25 ; 25-40
Dim $lLimit1_N = 0
Dim $lLimit2 = 90 ; 90-110
Dim $lLimit2_N = 0
Dim $lBuffer = ''
Dim $lRandom = ''

While 1
$lBuffer = Random( 1, 3, 1 )
Switch $lBuffer
Case 1 ; normal
$lRandom = Random( 56, 1441, 1 )
Case 2 ; $lLimit1
$lLimit1_N += 1
If ( $lLimit1_N == $lLimit1 ) Then
$lLimit1_N = 0
$lRandom = Random( 1241, 9999, 1 )
Else
$lRandom = Random( 56, 1441, 1 )
EndIf
Case 3 ; $lLimit2
$lLimit2_N += 1
If ( $lLimit2_N == $lLimit2 ) Then
$lLimit2_N = 0
$lRandom = Random( 9999, 50000, 1 )
Else
$lRandom = Random( 56, 1441, 1 )
EndIf
EndSwitch
;MsgBox( 0, "", $lRandom )
Send($lRandom)
sleep(Random(10,110))
;Send("{ENTER}")
Sleep(Random(300,500))
Send("{ESC}")
Sleep(Random(1600,2000))
Send("{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}")
sleep(Random(10,110))

Dim $lLimit1 = 25 ; 25-40
Dim $lLimit1_N = 0
Dim $lLimit2 = 90 ; 90-110
Dim $lLimit2_N = 0
Dim $lBuffer = ''
Dim $lRandom = ''

While 1
$lBuffer = Random( 1, 3, 1 )
Switch $lBuffer
Case 1 ; normal
$lRandom = Random( 56, 1441, 1 )
Case 2 ; $lLimit1
$lLimit1_N += 1
If ( $lLimit1_N == $lLimit1 ) Then
$lLimit1_N = 0
$lRandom = Random( 1241, 9999, 1 )
Else
$lRandom = Random( 56, 1441, 1 )
EndIf
Case 3 ; $lLimit2
$lLimit2_N += 1
If ( $lLimit2_N == $lLimit2 ) Then
$lLimit2_N = 0
$lRandom = Random( 9999, 50000, 1 )
Else
$lRandom = Random( 56, 1441, 1 )
EndIf
EndSwitch
Send($lRandom)
sleep(Random(10,110))
;Send("{ENTER}")
Sleep(Random(300,500))
Send("{ESC}")
Sleep(Random(1200,1900))
Send("{F6}")
WEnd
Wend
$i = $i + 1
WEnd
Func TogglePause()
$paused = Not $paused
While $paused
WEnd
EndFunc