Вход на хостинг
IT-новости
20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла
Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......
30.07.2015 Ищем уникальный контент для сайта
Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......
11.05.2015 Распространённые ошибки разработчиков сайтов
Не секрет, что в сети Интернет насчитывается миллионы сайтов, и каждый день появляются тысячси новых......
'Недоступен сервер или не подключен сетевой кабель', 100 )
Else
If StringLeft( @IPAddress1, 10 ) == '192.168.0.' Then
;------ address OK
$i = URLDownloadToFile ( 'http://www.localservernet/'--перенос строки-
, @MyDocumentsDir & ' mp.html' )
FileDelete ( @MyDocumentsDir & ' mp.html' )
If $i == 1 Then
$j = URLDownloadToFile ( 'http://www.google.com/' ,--перенос строки-
@MyDocumentsDir & ' mp.html' )
FileDelete ( @MyDocumentsDir & ' mp.html' )
If $i == 1 Then
MsgBox ( 0, 'Network Status', 'Сервер исправен.--перенос строки--
Доступ в Интернет разрешен', 100 )
Else
MsgBox ( 0, 'Network Status', 'Сервер исправен.--перенос строки--
Интернет недоступен', 100 )
EndIf
Else
MsgBox ( 0, 'Network Status', 'Сервер не отвечает', 100 )
EndIf
;------
Else
MsgBox ( 0, 'Network Status',--перенос строки--
'Неизвестный адресный диапазон', 100 )
ООО Дельта-Технология ©2007 - 2023 год
Нижний Новгород, ул. Дальняя, 17А.
