Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Ping диапазона с уведомлением в телеграмм

Ответить
Настройки темы
Ping диапазона с уведомлением в телеграмм

Новый участник


Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать


Изменения
Автор: lapin9126
Дата: 11-09-2021
Здравствуйте помогите реализовать задумку. Нужно постоянно пинговать нескольких локальных адресов (не по порядку, нужны 192.168.1.3, 4, 7, 143), несколькими пакетами, и в случае отсутствия ответа от адреса, отправить уведомление в телеграмм с указанием какой адрес не отвечает. С одним адресом, в таком варианте работает. Но не хватает знаний как прикрутить массив к данному скрипту.

Код: Выделить весь код
Global $sBotKey ='bot*****************************' ;ваш API ключ
Global $nChatID = 123456789 				  ; ID получателя

Func _URIEncode($sData)
     Local $aData = StringSplit(BinaryToString(StringToBinary($sData,4),1),"")
    Local $nChar
    $sData=""
    For $i = 1 To $aData[0]
        $nChar = Asc($aData[$i])
        Switch $nChar
            Case 45, 46, 48 To 57, 65 To 90, 95, 97 To 122, 126
                $sData &= $aData[$i]
            Case 32
                $sData &= "+"
            Case Else
                $sData &= "%" & Hex($nChar,2)
        EndSwitch
    Next
    Return $sData
 EndFunc

$NotPing = 0
While Sleep(5000)
While Sleep(1000)
 If Not Ping("192.168.1.3") Then
    $NotPing = $NotPing + 1
	If $NotPing = 5 Then
  	 $sText = _URIEncode('Сервер не отвечает. Error code: ' & @error)
	 ConsoleWrite(InetRead('https://api.telegram.org/' & $sBotKey & '/sendMessage?chat_id=' & $nChatId & '&text=' & $sText, 0))
	EndIf
 Else
  $NotPing = 0
    EndIf
      ExitLoop 
WEnd
WEnd

Отправлено: 14:25, 11-09-2021

 


Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Ping диапазона с уведомлением в телеграмм

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Любой язык - Отправить соответствующее абоненту вложение в телеграмм v79italya Скриптовые языки администрирования Windows 19 15-11-2020 13:45
PowerShell - Скачать файлы с канала Телеграмм Uragan66 Скриптовые языки администрирования Windows 4 03-09-2019 23:20
CMD/BAT - [решено] Ping всего диапазона IP с сохранением в лог ответивших redkiynik Скриптовые языки администрирования Windows 1 12-10-2018 21:24
VBS/WSH/JS - Мониторинг файлов в папке с уведомлением по email mark81 Скриптовые языки администрирования Windows 1 04-12-2014 16:58
Любой язык - Замена экранных заставок на удалённых машинах с ftp сервера с уведомлением norest2005 Скриптовые языки администрирования Windows 1 24-01-2014 13:38




 
Переход