Local $hFileOpen = FileOpen("kb.au3",1)
Local $index = 0
FileWriteLine($hFileOpen,";следит только за одной раскладкой" & @CRLF)
FileWriteLine($hFileOpen,"Local $hFileOpen = FileOpen(" &  """" &"keys.txt" & """" & ", 1)" & @CRLF)

For $i = 0 to 255
$text = "HotKeySet("
$text &= "Chr(" & $i & ")"
$text &= ","
$text &= """" & "function_" & $index & """"
$text &= ")"
$index = $index + 1
FileWriteLine($hFileOpen, $text & @CRLF)
Next

for $i = 0 to 255
FileWriteLine($hFileOpen,"func function_" &$i &"()" & @CRLF)

FileWriteLine($hFileOpen,"FileWriteLine($hFileOpen," & " Chr(" & $i & ") )" & @CRLF)
FileWriteLine($hFileOpen,"endfunc" & @CRLF)
Next

FileWriteLine($hFileOpen,"while 1" & @CRLF)

FileWriteLine($hFileOpen,"wend" & @CRLF)