Оптимизированный вариант
DEFINE($path, "C:\Users\Admin\Desktop\xxx.txt") // путь до файла Логины-пароли-почта
SUB(send, $x, $y, $clip)
LCLICK($x, $y) // клик
WAITMS (50)
TOCLIP($clip) // отправляем в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставляем
WAITMS (50)
KEYPRESS(#V)
KEYUP (#CTRL)
WAITMS (50)
END_SUB
IF(TFCOUNT($path) = 0) // Если файл пуст, СТОП
HALT
END_IF
STRSEPARATE(TFREAD($path, 1), ":", $arr) // читаем первую строку и разбираем на массив по разделителю :
send(1222,270, $arr[0])
send(1222,318, $arr[1])
send(1222,360, $arr[2])
UNDEFINE($arr) // удаляем массив
TFDELETE($path, 1) // удаляем первую строку из файла
WAITMS (50)