По просьбе , написал типовые скриптики , для облегчения входа в различные социальные сети.
Вроде бы все работает.
Скорее всего, это можно бы поместить и в типовые алгоритмы.
Но хотелось, чтобы предварительно корифеи посоветовали.
Можно ли убрать ненужное, или что-то откорректировать?.
// Скрипт для автоматического открытия браузера Хром и авторизованного перехода на страницу "в контакте"
// Author: ЦИТРИН
// Version: 1.0 (19.12.2012)
#name "vk.com"
WAITMS (1024)
ss:
LCLICK(0,400) // что-то типа "в фокус"
WAITMS (150)
$HWnd = WNDFIND ("Google Chrome") // ищем, есть ли открытый хром
WAITMS (150)
if ($HWnd > 0) // если уже есть открытый хром то
WNDSTATE (WNDFIND("Google Chrome"), 1) // если вдруг окно хрома было свернуто, - разворачиваем
waitms(750)
WNDPOS (WNDFIND("Google Chrome"), 0,0 ) // если вдруг окно было не на месте, - ставим окно в начальную позицию
waitms(750)
RCLICK(8,7) // раздвигаем окно на максимум ( 1 шаг )
WAITMS (550)
LCLICK(24,109) // раздвигаем окно на максимум (2 шаг)
WAITMS (350)
LCLICK(24,109) // дубль для верности
WAITMS (350)
$HWnd2 = WNDFIND ("Новая вкладка - Google Chrome") // ищем новую вкладку
WAITMS (750)
if ($HWnd2 > 0) // если обнаружилась, что уже есть чистая новая вкладка, то переход к ff
WAITMS (350)
GOTO(ff)
END_IF
KEYDOWN (#CTRL) // разворачиваем новую вкладку , если не нашли
WAITMS (50)
KEYDOWN (#T)
WAITMS (50)
KEYUP (#T)
KEYUP (#CTRL)
ELSE
WAITMS (150)
EXECUTE("chrome.exe") // открывем хром браузер, если был не открыт
WAITMS(2500)
GOTO(ss) // идем в начало и проверяем браузер на предмет наличия чистой вкладки
END_IF
ff:
WAITMS(1500)
LCLICK(140,42) // активация
waitms(rnd(550,750))
$h = hget(140,42) // получаем HWND окна
SETKBLAYOUT($h, 1033) // устанавливаем английскую раскладку для окон
//..............................................................................
LCLICK(140,42) // активация адресной строки хром
waitms(rnd(150,250))
//
///////////////////////////////
//
GOSUB(sub_A_D)
//
///////////////////////////////
//
LCLICK(140,42) // активация
waitms(rnd(550,750))
//
///////////////////////////////
//
TOCLIP(StrReadln ("1234.txt", 1 )) // результат 1 строка из файла 1234.тхт ( для ВК http://vk.com/ )
waitms(rnd(150,250))
//
///////////////////////////////
//
LCLICK(140,42) // активация
waitms(rnd(550,750))
//
///////////////////////////////
//
GOSUB (sub_CO_V) // введение адреса сайта (1 строка из файла 1234.тхт )
waitms(rnd(550,750))
//
//////////////////
//
GOSUB(sub_ENTER) // переход и ожидание открытия сайта
waitms(rnd(3550,4750))
//
///////////////////////////////
//
LCLICK(26,394) //
waitms(rnd(350,450))
//..............................................................................
LCLICK(248,133) // b
waitms(rnd(150,250))
GOSUB(sub_A_D)
LCLICK(248,133) // b
waitms(rnd(350,450))
TOCLIP(StrReadln ("1234.txt", 2)) // результат 2 строка из файла 1234тхт ( логин ffotto99@mail.ru )
waitms(rnd(650,750))
GOSUB (sub_CO_V) // вставляем логин из (2 строки файла 1234тхт )
waitms(rnd(650,750))
//
///////////////////////////////
//
LCLICK(246,177) // c
waitms(rnd(150,250))
GOSUB(sub_A_D)
LCLICK(246,177) // c
waitms(rnd(150,250))
TOCLIP(StrReadln ("1234.txt", 3)) // результат 3 строка из файла 1234тхт ( пароль 7395solffg )
waitms(rnd(450,550))
GOSUB (sub_CO_V) // вставляем пароль из (3 строки файла 1234тхт )
GOSUB(sub_ENTER)
//..............................................................................
//..............................................................................
//..............................................................................
SUB (sub_CO_V)
KEYDOWN(#CTRL)
waitms(rnd(150,250))
KEYDOWN(#V)
waitms(rnd(150,250))
KEYUP(#V)
waitms(rnd(150,250))
KEYUP(#CTRL)
waitms(rnd(2150,2250))
END_SUB
//..............................................................................
SUB (sub_ENTER)
KEYDOWN(#ENTER)
waitms(rnd(150,250))
KEYUP(#ENTER)
waitms(rnd(150,250))
END_SUB
//..............................................................................
SUB(sub_A_D)
KEYDOWN(#CTRL)
waitms(rnd(150,250))
KEYDOWN(#A)
waitms(rnd(150,250))
KEYUP(#A)
waitms(rnd(150,250))
KEYUP(#CTRL)
waitms(rnd(150,250))
KEYPRESS(#DELETE)
waitms(rnd(150,250))
END_SUB
halt // for single run
Ниже добавил вложение.
Папку распаковать.
Записать папку в директорию проектов кликермана.
Поменять логин и пароль в файле 1234.тхт на свои
п.с.
Координаты окон для логина и пароля будут точными только для сайта Вконтакте , открытого в браузере Хром.