1
Общие вопросы / Логин из тхт
« on: October 31, 2020, 02:36:02 PM »
Всем привет. Есть задача нужно логинится на сайте . логин:пароль берем из тхт. Попробовал несколько решений которые смог найти на данном форуме , но столкнулся с проблемами в каждом. на данный момент более понятен этот код, но он почему то всегда вставляет только 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)
//Сам скрипт:
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)