Lotsia PLM: Форум по семейству систем PLM/PDM/TDM/ERP/Workflow

Для специалистов по внедрению систем, профессиональных администраторов и пользователей.
Текущее время: 24 апр 2018, 21:10

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
СообщениеДобавлено: 20 янв 2011, 07:50 
Не в сети
Активный участник
Аватара пользователя

Зарегистрирован: 24 авг 2006, 08:06
Сообщения: 1646
Откуда: 55.745578,37.665825
Благодарил (а): 8 раз.
Поблагодарили: 3 раз.
поскольку в Лоции vbscript несколько своеобразен :wink:, мы никак не могли разобраться с проверкой доступности интернета
очередная попытка поиска работающего кода оказалась успешной - не помню где стащил - но главное работает :wink:
Код:
'Проверка доступности интернета
'-------------------------------------------------------------------------------
Function fnPing( strHost)
  Dim objPing, objRetStatus
    Set objPing = GetObject( "winmgmts:{impersonationLevel=impersonate}" ).ExecQuery _
                                          ( "select * from Win32_PingStatus where address = '" & strHost & "'" )
    For Each objRetStatus in objPing
      If IsNull( objRetStatus.StatusCode ) or objRetStatus.StatusCode <> 0 Then
        fnPing = -1
      Else
        fnPing = objRetStatus.ResponseTime
      End If
    Next
End Function
и вызов (у нас например гороскоп и валюты идут из интернета и без проверки на забастовки провайдера, в случае невыплаты зарплат - висло все...)
Код:
Option Explicit
Public Const Network = "4.2.2.2"  ' "вечный" адрес google
Sub gor
  if RIC_Function.fnPing( Network)>=0 then
    Goroskop.Goroskop
  else
    Msgbox "Интернет временно недоступен..." & vbcrlf & _
                 "    попробуйте вернуться к данной операции..." & vbcrlf & _
                 "         немного позже...", _
                 vbOkOnly +vbInformation+vbSystemModal, _
                 "Гороскоп"
  end if
end sub

_________________

Софт - RicCRM<<LotsiaPDM(4.40)<<MsSQL(5/8)
Уровень администрирования - Альтернативный



Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB