Author Topic: Помогите реализовать  (Read 2508 times)

0 Members and 2 Guests are viewing this topic.

мои яички съели птички

  • Зашел в гости
  • *
  • Posts: 10
  • Всех люблю, всех целую
    • View Profile
Помогите реализовать
« on: January 30, 2019, 12:20:08 PM »
Помогите реализовать.
1. Текст из файла txt 1 строка сравнить с буфером если текст отличается выполнить внешний файл.
2. Если пинг на ya.ru есть продолжить выполнение скрипта.

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Помогите реализовать
« Reply #1 on: January 30, 2019, 01:36:46 PM »
Что подразумевается под "выполнить внешний файл"

1.
Code: (clickermann) [Select]
IF(FROMCLIP() ! TFREAD("text.txt", 1))
// Выполнить внешний файл
END_IF

На счет второго, кликер не умеет пинговать. Можно конечно послать запрос через  HTTPGET но эта функция работает только по не шифрованному протоколу http, а ya.ru не работает через http

Code: (clickermann) [Select]
$a = HTTPGET("http://ya.ru")
LOGWRITE ($a)
HALT


мои яички съели птички

  • Зашел в гости
  • *
  • Posts: 10
  • Всех люблю, всех целую
    • View Profile
Re: Помогите реализовать
« Reply #2 on: January 30, 2019, 02:18:18 PM »
внешний файл это программа .exe
не обязательно пинговать ya.ru задача проверить наличие интернета и если его нет повторить задание.
« Last Edit: January 30, 2019, 02:20:41 PM by lomanosov »

Космич

  • Активный участник
  • ***
  • Posts: 265
    • View Profile
Re: Помогите реализовать
« Reply #3 on: January 30, 2019, 02:22:42 PM »
Code: (clickermann) [Select]
EXECUTE("программа.ехе")
«Иногда ты ваяешь до тех пор, пока до тебя не дойдёт, что именно ты делаешь.»

мои яички съели птички

  • Зашел в гости
  • *
  • Posts: 10
  • Всех люблю, всех целую
    • View Profile
Re: Помогите реализовать
« Reply #4 on: January 30, 2019, 04:41:25 PM »
Code: [Select]
$a = HTTPGET("http://ya.ru")
LOGWRITE ($a)
HALT

Вроде понял при отсутствии пинга ошибка уходит в лог, а вот дальше нужно если есть файл errorlog.txt или в файле есть error выполнять другое действие.

Космич

  • Активный участник
  • ***
  • Posts: 265
    • View Profile
Re: Помогите реализовать
« Reply #5 on: January 30, 2019, 04:56:34 PM »
Code: (clickermann) [Select]
IF(FROMCLIP() ! TFREAD("text.txt", 1))
   EXECUTE("программа.ехе")
END_IF

IF(HTTPGET("http://crapware.aidf.org/") ! "")
   // Тут действия если интернет есть
END_IF
«Иногда ты ваяешь до тех пор, пока до тебя не дойдёт, что именно ты делаешь.»

мои яички съели птички

  • Зашел в гости
  • *
  • Posts: 10
  • Всех люблю, всех целую
    • View Profile
Re: Помогите реализовать
« Reply #6 on: January 30, 2019, 05:11:57 PM »
ошибка при интерпретации строки
Code: [Select]
IF(HTTPGET("http://crapware.aidf.org/") ! "")

Космич

  • Активный участник
  • ***
  • Posts: 265
    • View Profile
Re: Помогите реализовать
« Reply #7 on: January 30, 2019, 05:13:27 PM »
А какая у тебя версия кликера?
«Иногда ты ваяешь до тех пор, пока до тебя не дойдёт, что именно ты делаешь.»

мои яички съели птички

  • Зашел в гости
  • *
  • Posts: 10
  • Всех люблю, всех целую
    • View Profile
Re: Помогите реализовать
« Reply #8 on: January 30, 2019, 05:19:30 PM »
4.13

Космич

  • Активный участник
  • ***
  • Posts: 265
    • View Profile
Re: Помогите реализовать
« Reply #9 on: January 30, 2019, 05:21:30 PM »
я не знаю, у меня тоже 4.13 и всё работает, но на свеже-скачанным такая же фигня

P.S.
Попробуй так
Code: (clickermann) [Select]
IF(STRLEN(HTTPGET("http://crapware.aidf.org/")) > 0)

END_IF
« Last Edit: January 30, 2019, 05:26:02 PM by Космич »
«Иногда ты ваяешь до тех пор, пока до тебя не дойдёт, что именно ты делаешь.»

мои яички съели птички

  • Зашел в гости
  • *
  • Posts: 10
  • Всех люблю, всех целую
    • View Profile
Re: Помогите реализовать
« Reply #10 on: January 30, 2019, 05:33:48 PM »
спс работает