софт

[shaihkritzer.livejournal.com]

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

Comments

ради любопытства: а зачем? :)

[cepreu.livejournal.com]

и какая точность нужна: секунды, минуты?
можно простенький скриптик набросать...
и что есть "дисконект"? отсутствие соединения как такового или недоступность сети?

Re: ради любопытства: а зачем? :)

[shaihkritzer.livejournal.com]

что бы знать масштаб нанесённого ущерба :)

точность до минут. отсутствие соединения (непашет ни один сайт, ничё не качается)

Re: ради любопытства: а зачем? :)

[cepreu.livejournal.com]

сейчас в голову ничего кроме
'----начало кода----
' сохранить с расширением vbs и запустить
' проверяет раз в минуту
' пингуется ли ya.ru, если нет, то пингуется ли www.ru
' если никто из них не пингуется, то делает запись в файле c:\log.txt
' что "фсё пропало" если кто-то из них вруг запинговался, то
' делает соответствующую пометку :)
' зы: делать корректный выход лень, поэтому закрывать из менеджера процессов :)
Do
Dim objFSO,objFile
set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\Log.txt",8, true)
if Avaible("ya.ru")=false then
if Avaible("www.ru")=false then
if pred=1 then
objFile.WriteLine "ШЕФ, ФСЁ ПРОПАЛО!!!: " & name & " дата: " & Now ()
pred=0
else
end if
else
end if
else
if pred=0 then objFile.WriteLine "и снова здравствуйте: " & name & " дата: " & Now()
pred=1
end if

objFile.close
WScript.Sleep("60000")
loop
Function Avaible(name)
On Error Resume Next
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select * from Win32_PingStatus where address = '"_
& name & "'")
For Each objStatus In objPing
If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
Avaible = False
Else
Avaible = True
End If
Next
End Function
'----конец кода----
не лезет.... завтра подумаю над другим вариантом

Re: ради любопытства: а зачем? :)

[sasha-piterskiy.livejournal.com]

а можно еще прикрутить проигрывания звука при появлении инета?
что-то типа if ping play С:/ring.mp3?

Re: ради любопытства: а зачем? :)

[cepreu.livejournal.com]

вспомнил еще о такой (http://www.imach.uran.ru/netmap/indexr.html) софтине. если в нее забить пару-тройку сайтов, то даже график их доступности будет :)

Re: ради любопытства: а зачем? :)

[shaihkritzer.livejournal.com]

чёт о таймере там слов нет...