Что нового

Сеть, интернет Почему не работает на windows 7

lapin9126

Новичок
Сообщения
28
Репутация
1
Здравствуйте уважаемые форумчане. Подскажите почему этот скрипт работает на Windows 10 и не работает на windows 7. Пробовал на х64 Максимальная и х86 Профессиональная.
Код:
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
 
Последнее редактирование:
Верх