start:
IF(TFCOUNT("LogPass.txt") = 0) // если логины кончились
HALT // стоп
END_IF
$str = TFREAD ("LogPass.txt", 1) // читаем первую строку
// здесь делим строку на до двоеточия и после
$log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
$pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
LCLICK(208,332) // клик по полю логина
WAITMS (100)
TOCLIP($log) // скопировать в буфер
WAITMS (100)
KEYDOWN (#CTRL) // вставить
WAITMS (100)
KEYDOWN (#V)
WAITMS (100)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (100)
LCLICK(226,389) // клик по полю пароля
WAITMS (100)
TOCLIP($pass)
WAITMS (100)
KEYDOWN (#CTRL)
WAITMS (100)
KEYDOWN (#V)
WAITMS (100)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (100)
LCLICK(224,463) // клик по "Вход"
$time = $_time_t + 5 // таймер на 5 секунд
WHILE($time > $_time_t) // ждем картинку не более 5 секунд
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Error.bmp", -1, 100)
$time = 0
WAITMS(100)
ELSE
WAITMS(100)
END_IF
END_CYC
IF($time ! 0)
// время истекло, картинка не найдена
TFWRITE ("Bad.txt", $str)
TFDELETE ("LogPass.txt", 1)
KEYPRESS(#F5) // перезагружаем страницу
WAIT(10) // время на перезагрузку страницы в секундах
GOTO(start) // возвращаемся к метке в начало
ELSE
// если картинка была найдена идем дальше
TFWRITE ("Good.txt", $str)
TFDELETE ("LogPass.txt", 1)
END_IF
LCLICK(340,14) // клик сайт
WAIT(6)
LCLICK(980,203) // клик войти
WAIT(4)
LCLICK(219,425) // клик войти стим
WAIT(4)
$check = 0
WHILE($check = 0)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Error.bmp", -1, 100)
$check = 1
LCLICK($_return1, $_return2)
WAIT(1)
ELSE
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Steam.bmp", -1, 100)
$check = 1
WAIT(1)
ELSE
WAITMS(50)
END_IF
END_IF
END_CYC
$check = 0
WHILE($check = 0)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Join.bmp", -1, 100)
$check = 1
LCLICK($_return1, $_return2)
WAIT(1)
ELSE
WAITMS(50)
END_IF
END_CYC
$check = 0
WHILE($check = 0)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Part.bmp", -1, 100)
$check = 1
LCLICK($_return1, $_return2)
WAIT(1)
ELSE
WAITMS(50)
END_IF
END_CYC
$check = 0
WHILE($check = 0)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Code.bmp", -1, 100)
$check = 1
LCLICK($_return1, $_return2)
WAIT(1)
ELSE
WAITMS(50)
END_IF
END_CYC
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "если все нормально. то там будет поле ввода.bmp", -1, 100)
IF(TFCOUNT("Code.txt") > $count2)
INC($count2,1)
ELSE
$count2 = 1
END_IF
$str = TFREAD("Code.txt", $count2)
LCLICK(626,475)
WAITMS (50)
TOCLIP($str) // текст в буфер
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (500)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Activ.bmp", -1, 100)
LCLICK($_return1, $_return2)
WAITMS(100)
END_IF
$check = 0
WHILE($check = 0)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Exit.bmp", -1, 100)
$check = 1
LCLICK($_return1, $_return2)
WAIT(1)
ELSE
WAITMS(50)
END_IF
END_CYC
END_IF
$check = 0
WHILE($check = 0)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Steam.bmp", -1, 100)
$check = 1
WAIT(1)
ELSE
WAITMS(50)
END_IF
END_CYC
LCLICK(170,14) // клик сайт
WAITMS (2000)
$check = 0
WHILE($check = 0)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "3.bmp", -1, 100)
$check = 1
LCLICK($_return1, $_return2)
WAITMS(1000)
ELSE
WAITMS(50)
END_IF
END_CYC
$check = 0
WHILE($check = 0)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "4.bmp", -1, 100)
$check = 1
LCLICK($_return1, $_return2)
WAITMS(1000)
ELSE
WAITMS(50)
END_IF
END_CYC
$check = 0
WHILE($check = 0)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "5.bmp", -1, 100)
$check = 1
LCLICK($_return1, $_return2)
WAITMS(1000)
ELSE
WAITMS(50)
END_IF
END_CYC
WAIT(10)
