Здравствуйте уважаемые форумчане. Подскажите почему этот скрипт работает на Windows 10 и не работает на windows 7. Пробовал на х64 Максимальная и х86 Профессиональная.
Уважаемые гуру Autoit, неужели ни каких идей нет?
Здравствуйте. Еще вопрос по данному скрипту. Как можно зациклить данную часть для постоянной проверки с интервалом, допустим 30 секунд?
Код:
Global $sBotKey ='bot***************************' ;ваш API ключ
Global $nChatID = 12******** ; 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
Local $iPing = Ping("192.168.1.132", 250)
if $iPing = 0 Then
$sText = _URIEncode('Сервер_1 не отвечает. Error code: ' & @error)
ConsoleWrite(InetRead('https://api.telegram.org/' & $sBotKey & '/sendMessage?chat_id=' & $nChatId & '&text=' & $sText, 0))
EndIf
Local $iPing = Ping("192.168.1.4", 250)
if $iPing = 0 Then
$sText = _URIEncode('Сервер_2 не отвечает. Error code: ' & @error)
ConsoleWrite(InetRead('https://api.telegram.org/' & $sBotKey & '/sendMessage?chat_id=' & $nChatId & '&text=' & $sText, 0))
EndIf
Local $iPing = Ping("192.168.1.7", 250)
if $iPing = 0 Then
$sText = _URIEncode('Сервер_3 не отвечает. Error code: ' & @error)
ConsoleWrite(InetRead('https://api.telegram.org/' & $sBotKey & '/sendMessage?chat_id=' & $nChatId & '&text=' & $sText, 0))
EndIf
Local $iPing = Ping("192.168.1.143", 250)
if $iPing = 0 Then
$sText = _URIEncode('Сервер_4 не отвечает. Error code: ' & @error)
ConsoleWrite(InetRead('https://api.telegram.org/' & $sBotKey & '/sendMessage?chat_id=' & $nChatId & '&text=' & $sText, 0))
EndIf
Сообщение автоматически объединено:
Уважаемые гуру Autoit, неужели ни каких идей нет?
Сообщение автоматически объединено:
Здравствуйте. Еще вопрос по данному скрипту. Как можно зациклить данную часть для постоянной проверки с интервалом, допустим 30 секунд?
Код:
Local $iPing = Ping("192.168.1.132", 250)
if $iPing = 0 Then
$sText = _URIEncode('Сервер_1 не отвечает. Error code: ' & @error)
ConsoleWrite(InetRead('https://api.telegram.org/' & $sBotKey & '/sendMessage?chat_id=' & $nChatId & '&text=' & $sText, 0))
EndIf
Local $iPing = Ping("192.168.1.4", 250)
if $iPing = 0 Then
$sText = _URIEncode('Сервер_2 не отвечает. Error code: ' & @error)
ConsoleWrite(InetRead('https://api.telegram.org/' & $sBotKey & '/sendMessage?chat_id=' & $nChatId & '&text=' & $sText, 0))
EndIf
Local $iPing = Ping("192.168.1.7", 250)
if $iPing = 0 Then
$sText = _URIEncode('Сервер_3 не отвечает. Error code: ' & @error)
ConsoleWrite(InetRead('https://api.telegram.org/' & $sBotKey & '/sendMessage?chat_id=' & $nChatId & '&text=' & $sText, 0))
EndIf
Local $iPing = Ping("192.168.1.143", 250)
if $iPing = 0 Then
$sText = _URIEncode('Сервер_4 не отвечает. Error code: ' & @error)
ConsoleWrite(InetRead('https://api.telegram.org/' & $sBotKey & '/sendMessage?chat_id=' & $nChatId & '&text=' & $sText, 0))
EndIf
Последнее редактирование: