Логин из тхт

[kiaskiks]

Всем привет. Есть задача нужно логинится на сайте . логин:пароль берем из тхт. Попробовал несколько решений которые смог найти на данном форуме , но столкнулся с проблемами в каждом. на данный момент  более понятен этот код, но он почему то всегда вставляет только 1 строку из файла. Буду очень благодарен если расскажите что я делаю не так .в идеале, чтобы после того как строка взята и вставлена , она удалялась их тхт . при новом запуске бралась следующая.
//Сам скрипт:
 
IF(TFCOUNT("LogPass.txt") > $count)
   INC($count,1)
ELSE
   HALT // Стоп по достижении конца файла
END_IF
$str = TFREAD ("LogPass.txt", $count)
$log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
$pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
 
LCLICK(646,278) // клик по полю логина
WAITMS (50)
TOCLIP($log) // скопировать логин в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYPRESS(#V)
WAITMS (50)
KEYUP (#CTRL)
WAITMS (50)
 
LCLICK(650,338) // клик по полю пароля
WAITMS (50)
TOCLIP($pass) // скопировать в пароль в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYPRESS(#V)
WAITMS (50)
KEYUP (#CTRL)
WAITMS (50)

[4.У.В.@.К]

Привет.

Code: (clickermann) [Select]

IF(TFCOUNT("LogPass.txt") = 0)
   HALT // Стоп по достижении конца файла
END_IF

$str = TFREAD ("LogPass.txt", 1) // Берем первую строку из файла LogPass.txt
$log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
$pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
 
LCLICK(646,278) // клик по полю логина
WAITMS (50)
TOCLIP($log) // скопировать логин в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYPRESS(#V)
WAITMS (50)
KEYUP (#CTRL)
WAITMS (50)
 
LCLICK(650,338) // клик по полю пароля
WAITMS (50)
TOCLIP($pass) // скопировать в пароль в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYPRESS(#V)
WAITMS (50)
KEYUP (#CTRL)
WAITMS (50)

TFDELETE("LogPass.txt", 1) // Удаляем первую строку из файла LogPass.txt