#include <file.au3>
$File = @ScriptDir&"\test.txt"
If Not FileExists($File) Then
MsgBox(16, "Ошибка", "Файл "&$File&" не найден")
Exit
EndIf
$CountLines = _FileCountLines($File)
If $CountLines = 0 Then
MsgBox(48, "Инфо", "Файл "&$File&" пуст")
Exit
EndIf
$n = $CountLines
For $i = 1 To $CountLines
$NumStr = Random(1 , $n, 1)
If $NumStr = 0 Then $NumStr = 1
$line = FileReadLine($File, $NumStr)
If $line <> "" Then Send($line)
_FileWriteToLine($File, $NumStr, "", 1)
$n = $n-1
Next
Exit