$counter = 0
$rc = SRnd( @MSECS )
Do
	$random = Rnd( 2 )
	If $random = 1
		$rc = SendKeys( "{NUMLOCK}" );
	Else
		$rc = SendKeys( "{CAPSLOCK}" );
	EndIf
	Sleep 1
	$counter = $counter + 1;
Until $counter > 15