наличие подключения к интернету.

Программирование на Active Server Pages и VBScript.
quit
Новичок
Новичок
 
Сообщения: 25
Зарегистрирован: 01.06.2008 (Вс) 21:34

наличие подключения к интернету.

Сообщение quit » 25.06.2008 (Ср) 1:58

привет всем ещё раз..
сегодня встал (встал именно вопрос) такой вопрос ,
мне необходимо в начале работы скрипта проверить наличие подключения к интернету , пробовал массу способов в том числе и пинг сервера ( но это не катит так как не позволяет система безопасности на работе .. тупо фаер режет . )

вот один из вариантов .. только он на vb

Public Shared ReadOnly Property Connected() As Boolean
Get
Dim ret As Boolean
Try
' возвращает имя устройства
Dim HostName As String = Dns.GetHostName()
Dim thisHost As IPHostEntry = Dns.GetHostByName(HostName)
Dim thisIpAddr As String = thisHost.AddressList(0).ToString

ret = thisIpAddr <> _
Net.IPAddress.Parse("127.0.0.1").ToString()

Catch ex As Exception
Return False
End Try

Return ret
End Get
End Property


у кого есть мысли по этому поводу , или может заготовки есть .. с удовольствием посмотрел бы ..

честно скажу , до этого у меня была система построена на arp запросе, если arp таблица не пуста то инет есть ...
но по сути это не верно, вот и хотел бы узнать у знатоков, если ли более точный способ это уточнить ! ?

quit
Новичок
Новичок
 
Сообщения: 25
Зарегистрирован: 01.06.2008 (Вс) 21:34

Сообщение quit » 25.06.2008 (Ср) 2:46

немного спустя ...
в общем на ум пришла идея с закачкой страниц .. и уже исходя из этого определение наличия интернета.
Код: Выделить всё
Set AA = CreateObject("Scripting.FileSystemObject")
  With CreateObject("MSXML2.XMLHTTP")
     .open "GET", "http://test.ru/test.txt", TRUE
     .send

вот тут можно по идеи попробовать определить открывается ли вообще этот линк.. и если нет то quit
если есть вариант как это сделать то плиз в студию.

Код: Выделить всё
  Set A2 = AA.CreateTextFile("test.txt")
      A2.WriteLine .responseText
End With

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 25.06.2008 (Ср) 7:47

воспользуйся поиском и ... попроси, чтобы Тебя сильно не пинали! (Потом поймёшь))
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

ALX_2002
Мега гуру
Мега гуру
 
Сообщения: 2019
Зарегистрирован: 25.11.2002 (Пн) 20:03

Сообщение ALX_2002 » 25.06.2008 (Ср) 9:50

Если с пингом, то можно сделать вот так:
Код: Выделить всё
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
Dim WshExec
Set WshExec = WshShell.Exec("ping 127.0.0.1")

Set Stream = CreateObject("ADODB.Stream")
Stream.Type = 2
Stream.Charset = "Windows-1251"
Stream.Open
Stream.WriteText WshExec.StdOut.ReadAll
Stream.Position = 0
Stream.Charset = "cp866"

Response.Write Stream.ReadText


Если с XMLHTTP, то лучше наверное проверятьпо статусу ответа.

Код: Выделить всё
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
XMLHTTP.Open "GET","http://www.ya.ru",False
XMLHTTP.Send
If XMLHTTP.Status = 200 Then
   Response.Write "Сервер доступен"
Else
   Response.Write "Сервер недоступен"
End if


:roll: :idea:

quit
Новичок
Новичок
 
Сообщения: 25
Зарегистрирован: 01.06.2008 (Вс) 21:34

Сообщение quit » 25.06.2008 (Ср) 19:27

и как всегда ALX_2002 меня выручает , и без лишней болтовни говорит дельные советы ..
огромнейшее спасибо !!!


Вернуться в ASP и VBScript

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

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

    TopList