Андрей
Андрей
Оффлайн
4
Вот пример точного времени и даты, мб кому понадобится.
Знаю, что отправил не туда, куда надо, но другого места не нашел.
Администрация, сделайте отдельную тему или раздел, где пользователи смогли бы обмениваться проектами.

Окно1.Интернет1.Ссылка запроса = "http://time100.ru/"
Окно1.Интернет1.Выполнить запрос
Окно1.Память1.Значение = _Полезные объекты._Текст._Поиск с регулярными выражениями(Окно1.Интернет1.Результат запроса, "<span>%H%:%i%:%s</span>.*")
Окно1.Память1.Значение = _Полезные объекты._Текст._Взять кусок текста(Окно1.Интернет1.Результат запроса, Окно1.Память1.Значение, 300)
Окно1.Память2.Значение = _Полезные объекты._Текст._Разбить на части(Окно1.Память1.Значение, "</div>", 1)
Окно1.Память2.Значение = _Полезные объекты._Текст._Разбить на части(Окно1.Память2.Значение, ">", 4)
Окно1.Память3.Значение = _Полезные объекты._Текст._Разбить на части(Окно1.Память1.Значение, "сегодня: <b>", 2)
Окно1.Память3.Значение = _Полезные объекты._Текст._Разбить на части(Окно1.Память3.Значение, "</b>, <u>", 1)
Окно1.Надпись1.Текст = Окно1.Память2.Значение & "¶" & Окно1.Память3.Значение
Вложения:
Нравится
Ответы (22)
  • Ответ принят

    Андрей
    Андрей
    Оффлайн
    Понедельник, Сентябрь 01 2014, 03:52 PM - #постоянная ссылка
    2
    Создал программу для управления другим компом.
    Админ, можно ли будет как -нибудь сделать, чтобы программа, которую я создал в алгоритм, создала и скомпилировала другую программу?

    1. Указанный порт должен быть открыт
    2. Я пользуюсь для постоянного IP прогой Hotspot shield Желательно пользоваться любой другой программой для постоянного IP
    3. В управляемом в свойствах КлиентСервер1 изменяете IP на свой так же меняете порт на открытый.
    В Управляторе меняете IP на свой, порт я сделал возможным менять во время работы проги специально, для тех случаев, когда надо менять управляемые компы (Возможно в следующих версиях сделаю так, чтобы по одному порту все были.)
    4. Управляемый запускаете на одном компе, управлятор на своем
    5. В Управляторе пишите порт, Жмете присоединиться, если вам надо поменять порт, не забудьте сначала нажать отключиться.
    6. Управляете другим компом.

    Ниже кнопки отключиться, есть поля, эти поля позволяют менять IP и порт управляемого.
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Андрей
    Андрей
    Оффлайн
    Понедельник, Сентябрь 01 2014, 03:54 PM - #постоянная ссылка
    2
    Люди, прокомментируйте, поставьте лайк, чтобы я знал, что не зря трудился 5 часов.
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Mishail
    Mishail
    Оффлайн
    Понедельник, Сентябрь 01 2014, 04:27 PM - #постоянная ссылка
    2
    Андрей, отличная работа , но работает ли он - не проверял, т.к. при запуске "Управляемого" выдаёт ошибку (уже создал твой проект в .exe файл)

    http://cs616925.vk.me/v616925630/19bdc/fzP9x4PDmKg.jpg
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Mishail
    Mishail
    Оффлайн
    Понедельник, Сентябрь 01 2014, 04:38 PM - #постоянная ссылка
    2
    http://screentool.net/image/5404a0f1572a6bf94c8d8792


    Вот, что пишет Алгоритм
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Андрей
    Андрей
    Оффлайн
    Вторник, Сентябрь 02 2014, 11:39 AM - #постоянная ссылка
    1
    Изменил
    Вложения:
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Андрей
    Андрей
    Оффлайн
    Вторник, Сентябрь 02 2014, 11:51 AM - #постоянная ссылка
    1
    В файле System хранятся ип и порт по которым будет подключаться, если вы хотите, чтобы был только неизменяемые ип и порт, то можете удалить действие "Создание" у объекта Окно
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Mishail
    Mishail
    Оффлайн
    Вторник, Сентябрь 02 2014, 12:22 PM - #постоянная ссылка
    1
    Не вылетает, но открыть порт очень сложно, особенно через роутер
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Андрей
    Андрей
    Оффлайн
    Вторник, Сентябрь 02 2014, 01:54 PM - #постоянная ссылка
    1
    добавил несколько функций, просмотр экрана, чат и переход по ссылке
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Андрей
    Андрей
    Оффлайн
    Вторник, Сентябрь 02 2014, 01:56 PM - #постоянная ссылка
    1
    прошу проверить просмотр экрана и чат. Если проверяете на своем том же компе, на котором включен управлятор, то порты не обязательно открыватьи IP будет 127.0.0.1
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Сергей
    Сергей
    Оффлайн
    Вторник, Сентябрь 02 2014, 02:15 PM - #постоянная ссылка
    1
    Ребят прочтите мой вопрос, проверьте у себя. Может у меня только так. Или у всех так: http://algoritm2.ru/index.php/ru/discussions/проблемы-с-открытием-таблиц-exel
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Mishail
    Mishail
    Оффлайн
    Вторник, Сентябрь 02 2014, 02:45 PM - #постоянная ссылка
    1
    Андрейwrote:

    прошу проверить просмотр экрана и чат. Если проверяете на своем том же компе, на котором включен управлятор, то порты не обязательно открыватьи IP будет 127.0.0.1


    Скриншоты делает, показывать - не показывает. Чат ошибку выдаёт какую-то
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Андрей
    Андрей
    Оффлайн
    Вторник, Сентябрь 02 2014, 03:24 PM - #постоянная ссылка
    1
    Вот исправил, дело в том, что я думал, что регистр букв важен, а оказалось, что он считает Чат и чат одним и тем же
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Administrator
    Administrator
    Оффлайн
    Среда, Сентябрь 03 2014, 11:02 AM - #постоянная ссылка
    1
    Админ, можно ли будет как-нибудь сделать, чтобы программа, которую я создал в алгоритм, создала и скомпилировала другую программу?

    В _Полезные объекты._Расширенные возможности._Выполнить код Алгоритма есть возможность выполнять любой код, который вы можете сгенерировать в процессе выполнения программы. Таким образом, если вы создадите на Алгоритме некую программу-оболочку, которая будет открывать лежащий рядом файл, и выполнять код Алгоритма, который в нём прописан, это будет аналогом скомпилированной программы =)
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Андрей
    Андрей
    Оффлайн
    Пятница, Сентябрь 05 2014, 01:30 PM - #постоянная ссылка
    1
    Мне надо будет сделать так, чтобы программа "управлятор", создала другую прграмму - "Управляемый", но с определенными Портом и IP.
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Андрей
    Андрей
    Оффлайн
    Пятница, Сентябрь 05 2014, 01:31 PM - #постоянная ссылка
    1
    и чтобы "Управляемый был в одном файле
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Андрей
    Андрей
    Оффлайн
    Пятница, Сентябрь 12 2014, 04:08 PM - #постоянная ссылка
    0
    Кликатор 2.0
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Андрей
    Андрей
    Оффлайн
    Суббота, Сентябрь 13 2014, 11:57 AM - #постоянная ссылка
    0
    В Версии 2.5 добавил:
    Автоматический ввод текста
    Нажатие клавиатуры (Поддерживаются комбинации)
    Зажатие кнопок мыши
    Задержка
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Kot_lock
    Kot_lock
    Оффлайн
    Пятница, Ноябрь 07 2014, 03:55 PM - #постоянная ссылка
    1
    Моя попытка создать Trojan.Winlock на Алгоритме, в старой версии сайта, был раздел с программами, и у кого-то тоже была такая же идея.
    На данный момент версия КотЛок Project 55 v1.2 (так я его назвал, номер проекта был 55, пожтому так и назвал).
    Код разблокировки:123 Версию 1.0 не выкладываю, в ней очень много багов, хотя и в 1.2 не мало, так что лучше запускать на виртуалке, мало ли...
    Собственно, начал по минимуму:
    Секундомер с интервалом 100 делает окно1 поверх всех окон за каждый шаг, поэтому невозможно открыть диспетчер задач.
    добавляется в автозагрузку в HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN
    Развернут на весь экран, запрещено закрытие, сворачивание
    Не отображается в панели задач
    Имеет экранную клавиатуру
    Упакован в SFX архив и невидимо распаковывается в Program files

    Баги:
    Не открывается после перезагрузки в Windows Vista, 7 и т.д. с включенным UAC
    Не убирается из автозагрузки сам
    Надписи не всегда располагаются по центру, хотя секундомер должен выравнивать.
    Почему-то стал обнаруживаться Dr.Web как Backdoor.Comet.152, хотя версию 1.0 он игнорировал.
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Максим
    Максим
    Оффлайн
    Суббота, Ноябрь 08 2014, 05:51 PM - #постоянная ссылка
    1
    отправка по ftp
    Вложения:
    Нравится
    Этот ответ в настоящее время свёрнут Показать
  • Ответ принят

    Максим
    Максим
    Оффлайн
    Суббота, Ноябрь 08 2014, 06:07 PM - #постоянная ссылка
    1
    Андрейwrote:

    Вот пример точного времени и даты, мб кому понадобится.
    Знаю, что отправил не туда, куда надо, но другого места не нашел.
    Администрация, сделайте отдельную тему или раздел, где пользователи смогли бы обмениваться проектами.

    Окно1.Интернет1.Ссылка запроса = "http://time100.ru/"
    Окно1.Интернет1.Выполнить запрос
    Окно1.Память1.Значение = _Полезные объекты._Текст._Поиск с регулярными выражениями(Окно1.Интернет1.Результат запроса, "<span>%H%:%i%:%s</span>.*")
    Окно1.Память1.Значение = _Полезные объекты._Текст._Взять кусок текста(Окно1.Интернет1.Результат запроса, Окно1.Память1.Значение, 300)
    Окно1.Память2.Значение = _Полезные объекты._Текст._Разбить на части(Окно1.Память1.Значение, "</div>", 1)
    Окно1.Память2.Значение = _Полезные объекты._Текст._Разбить на части(Окно1.Память2.Значение, ">", 4)
    Окно1.Память3.Значение = _Полезные объекты._Текст._Разбить на части(Окно1.Память1.Значение, "сегодня: <b>", 2)
    Окно1.Память3.Значение = _Полезные объекты._Текст._Разбить на части(Окно1.Память3.Значение, "</b>, <u>", 1)
    Окно1.Надпись1.Текст = Окно1.Память2.Значение & "¶" & Окно1.Память3.Значение

    оно не совсем точное т.к не все живут в Москве. Лучше читать данные из http://www.direct-time.ru/
    Нравится
    Этот ответ в настоящее время свёрнут Показать
Ваш ответ