Author Topic: Предложения по применению от новичков. Какой скрипт вам будет интересен?  (Read 59178 times)

0 Members and 1 Guest are viewing this topic.

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Потому что он копирует ссылку сам и сам же ее вставляет. Или я как-то могу с помощью команда TFwrite записывать то, что в буфере обмена в данный момент?
Конечно можешь
Code: (clickermann) [Select]
TFWRITE("битые.txt", FROMCLIP())Но зачем тебе вообще буфер?


Yolley

  • Зашел в гости
  • *
  • Posts: 10
    • View Profile
Спасибо еще раз.
Ну у меня как устроен скрипт: нажал он на строку в таблице, скопировал ссылку, зашел в браузер, посмотрел, битая или нет. Если битая, то вставляет эту ссылку в файлик в блокноте. Дальше открывает excel, нажимает стрелку вниз, чтобы перейти на строку ниже и опять копирует, и дальше точно также.

i0

  • Оплот сообщества
  • ****
  • Posts: 353
  • CMann 4.13.014 final, ie, presto, win7 x86, x64
    • View Profile
[offtop]
а специализарованные инструменты для проверки ссылок не подойдут? AM-Deadlink например
[/offtop]

Yolley

  • Зашел в гости
  • *
  • Posts: 10
    • View Profile
Нет, он называет битыми те ссылки, которые не подходят по различным параметрам. То есть ссылка может быть рабочая, но по каким-то причинам не подходит для работы.

ЦИТРИН

  • Супермодератор
  • Оплот сообщества
  • *
  • Posts: 484
  • Марафон опавших листьев, коктейль из дыма и мыслей
    • View Profile
  Мне необходимо, чтобы он, допустим, начинал искать на этой странице слово "битая". И если он находит слово "битая", то тогда необходимо, чтобы он эту ссылку вставлял в текстовый документ. ...
А чем не устраивает обычный инструмент поиска битых ссылок?
Например , Portable Bookmarks   неплохо ссылки проверяет.
http://rutracker.org/forum/viewtopic.php?t=4271901
Бабочки полёт будит тихую поляну в солнечном свету...

bulgachevarada

  • Зашел в гости
  • *
  • Posts: 15
    • View Profile
Хочу задать вопрос:
Как прочитать с блокнота логин;пароль (написаны в столбик), и вставить в соответствующие поля в браузере, а затем удалить эту строку?

Создаешь рядом со скриптом файл "LogPass.txt" и в него записываешь строки по образцу

Code: [Select]
Тест1@mail.ru:111111111
Тест2@mail.ru:абвгд
Тест3@mail.ru:тестТестТЕСТ

Сам скрипт:
Code: (clickermann) [Select]
IF(TFCOUNT("LogPass.txt") > $count)
   INC($count,1)
ELSE
   $count = 1
END_IF
$str = TFREAD ("LogPass.txt", $count)
$log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
$pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))

LCLICK(10,10) // клик по полю логина
WAITMS (50)
TOCLIP($log) // скопировать в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (50)

LCLICK(10,10) // клик по полю пароля
WAITMS (50)
TOCLIP($pass)
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (50)

LCLICK(10,10) // клик по "Вход"
WAITMS(100)

каждый новый проход скрипт будет считывать новую строку и так по кругу

И как прочитать из блокнота рандомную строку и вставить в браузер?

Записываешь строки в файл "Text.txt"
Code: (clickermann) [Select]
$str = TFREAD ("Text.txt", RND(1,TFCOUNT("Text.txt")))

LCLICK(10,10) // клик по ввода
WAITMS (50)
TOCLIP($str) // скопировать в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (50)

Доброго дня не подскажите а как реализовать чтобы при остановке скрипта все логины что использовал удалялись с блокнота?? а то при остановке и включении все идет с начала и очень не удобно... подскажите как реализовать... и если можно полную остановку если логины закончились спасибо

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Доброго дня не подскажите а как реализовать чтобы при остановке скрипта все логины что использовал удалялись с блокнота?? а то при остановке и включении все идет с начала и очень не удобно... подскажите как реализовать... и если можно полную остановку если логины закончились спасибо

Зачем что то удалять когда можно записывать номер текущей строки

Code: (clickermann) [Select]
IF($count = 0)
   IF(TFCOUNT("conf.ini") > 0)
      $count = INT(INIREAD("conf.ini", "count")) // считываем номер строки
   END_IF
END_IF

IF(TFCOUNT("LogPass.txt") > $count)
   INC($count,1)
   INIWRITE("conf.ini", "count", $count) // записываем номер строки
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(10,10) // клик по полю логина
WAITMS (50)
TOCLIP($log) // скопировать в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (50)

LCLICK(10,10) // клик по полю пароля
WAITMS (50)
TOCLIP($pass)
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (50)

LCLICK(10,10) // клик по "Вход"
WAITMS(100)

bulgachevarada

  • Зашел в гости
  • *
  • Posts: 15
    • View Profile
Доброго дня не подскажите а как реализовать чтобы при остановке скрипта все логины что использовал удалялись с блокнота?? а то при остановке и включении все идет с начала и очень не удобно... подскажите как реализовать... и если можно полную остановку если логины закончились спасибо

Зачем что то удалять когда можно записывать номер текущей строки

Code: (clickermann) [Select]
IF($count = 0)
   IF(TFCOUNT("conf.ini") > 0)
      $count = INT(INIREAD("conf.ini", "count")) // считываем номер строки
   END_IF
END_IF

IF(TFCOUNT("LogPass.txt") > $count)
   INC($count,1)
   INIWRITE("conf.ini", "count", $count) // записываем номер строки
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(10,10) // клик по полю логина
WAITMS (50)
TOCLIP($log) // скопировать в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (50)

LCLICK(10,10) // клик по полю пароля
WAITMS (50)
TOCLIP($pass)
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (50)

LCLICK(10,10) // клик по "Вход"
WAITMS(100)

Сейчас объясню. У меня для примера база логинов паролей 1000 шт. сегодня по 1 голосованию я начала, в процесе подвисла страница, я остановила чтобы продолжить мне надо знать где закончила на каком аккаунте, если удалить в блокноте то все просто, завтра пришла доделала, удобно... если у меня так 100 скриптов где надо делать через день например.  В том же вк часто подвисает страница и надо не всегда сразу всю базу... вот потому и ищу вариант как лучше... и проще. Если подсчет вести если не ошибаюсь то будет сбиваться все если я буду добавлять в блокнот пополнение базы новыми аккаунтами, что постоянно делаю(
« Last Edit: August 29, 2016, 07:45:46 PM by bulgachevarada »

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Сейчас объясню. У меня для примера база логинов паролей 1000 шт. сегодня по 1 голосованию я начала, в процесе подвисла страница, я остановила чтобы продолжить мне надо знать где закончила на каком аккаунте, если удалить в блокноте то все просто, завтра пришла доделала, удобно... если у меня так 100 скриптов где надо делать через день например.  В том же вк часто подвисает страница и надо не всегда сразу всю базу... вот потому и ищу вариант как лучше... и проще. Если подсчет вести если не ошибаюсь то будет сбиваться все если я буду добавлять в блокнот пополнение базы новыми аккаунтами, что постоянно делаю(

Ну хорошо, так может действительно проще.
Code: (clickermann) [Select]
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(10,10) // клик по полю логина
WAITMS (50)
TOCLIP($log) // скопировать в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (50)

LCLICK(10,10) // клик по полю пароля
WAITMS (50)
TOCLIP($pass)
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (50)

LCLICK(10,10) // клик по "Вход"
WAITMS(100)




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

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Сейчас объясню. У меня для примера база логинов паролей 1000 шт. сегодня по 1 голосованию я начала, в процесе подвисла страница, я остановила чтобы продолжить мне надо знать где закончила на каком аккаунте, если удалить в блокноте то все просто, завтра пришла доделала, удобно... если у меня так 100 скриптов где надо делать через день например.  В том же вк часто подвисает страница и надо не всегда сразу всю базу... вот потому и ищу вариант как лучше... и проще. Если подсчет вести если не ошибаюсь то будет сбиваться все если я буду добавлять в блокнот пополнение базы новыми аккаунтами, что постоянно делаю(

Тебе предложили лучший вариант. Тоже пару раз была такая задача. И в начале я предлагал удалять из файла обработанные ссылки. Так и сделали. Но потом задача усложнилась, да и стало понятно, что так хоть и проще, но пользоваться не всегда неудобно.
Просто ведёшь счётчик в файле ini. При старте скрипта он читает номер акка на котором остановился. С него работаем. После успешной обработки акка увеличиваем счётчик в программе и файле.
Пополнять аккаунты можно в конец списка, это ничего не будет сбивать.

Такой способ позволит использовать список по кругу, если нужно. Или использовать с начала при новом дне. Или запустить с любой учётки. Если нужно учитывать дневной лимит по количеству - тоже легко сделать, независимо от количества запусков скрипта в день (сквозной счётчик). Отчёты... и т.д.
И не нужно следить если список опустел. И он не повредится в процессе работы, т.к. мы его не правим, а только читаем. Не нужно хранить две копии пополняемые.


bulgachevarada

  • Зашел в гости
  • *
  • Posts: 15
    • View Profile
Oraven спасибо большое! очень помогли...
Vint буду тестировать оба, просто скриптом у меня сотник разные базу уже привыкла проще все в отдельности держать, еще база всегда перемешивается после выполнения потому приоритет на удаление больше но запоминать удобней если не трогать оба способы очень хорошие я ваша должница!)

Cleoss

  • Активный участник
  • ***
  • Posts: 260
  • Автоматизируй это!
    • View Profile
Подскажите, а есть где-нить скрипт, детектирующий безоговорочно точно версию КЛМН? Или была ли задумка сделать подобный скрипт?

i0

  • Оплот сообщества
  • ****
  • Posts: 353
  • CMann 4.13.014 final, ie, presto, win7 x86, x64
    • View Profile
нету. была просьба к автору сделать такой функционал.
пока удалось добиться немногого: что версия КЛМН высвечивается в его основном окне ))))
« Last Edit: September 15, 2016, 09:53:40 PM by i0 »

i0

  • Оплот сообщества
  • ****
  • Posts: 353
  • CMann 4.13.014 final, ie, presto, win7 x86, x64
    • View Profile
и дабл-кастрейшен, адназначна!
но как отделить агнцев от козлищ? про это собсна вопрос

Cleoss

  • Активный участник
  • ***
  • Posts: 260
  • Автоматизируй это!
    • View Profile
Теперь я понял, Йоллопукка иногда заглядывает сюда и чистит посты Кирилла)