Интересное с компонентом Ping

Вверх ↑

Форумы ПрочееИнтересное с компонентом Ping ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 1528

Рейтинг: 57

#16: 2012-08-13 18:05:28 ЛС | профиль | цитата

petrocan писал(а):

Остается только проблема языка

code_28752.txt
дану, остаётся только серьёзность данного подхода

карма: 0

файлы: 1

code_28752.txt [1.3KB] [207]

Ответов: 1379

Рейтинг: 86

#17: 2012-08-13 18:08:29 ЛС | профиль | цитата

hitman249 писал(а):

code_28752.txt

Думал о чем-то подобном

карма: 0

Ответов: 1528

Рейтинг: 57

#18: 2012-08-13 18:33:12 ЛС | профиль | цитата

мой вариант учитывает в том числе кривую кодировку

------------ Дoбавленo в 18.32:

Add(Button,14913789,203,280){
 Left=140
 Top=10
 Width=60
 Caption="Ping"
 link(onClick,505498:doEvent1,[])
}
Add(WinExec,2622777,308,294)
{
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(onConsoleTerminate)
 link(FileName,8848393:FString,[])
 link(onConsoleResult,7411499:doCharset,[])
}
Add(Charset,7411499,392,301)
{
 link(onCharset,8323337:doAdd,[])
}
Add(Edit,4799230,308,210)
{
 Left=5
 Top=10
 Width=135
 Text="192.168.1.1"
}
Add(RE_Search,11340209,490,364)
{
 Expression="[(]0%.*[)].*:.*=.*=.*=.*"
 link(onMatch,6717924:doData,[(534,370)(534,349)])
 link(onNotFound,778031:doData,[(534,377)(534,398)])
}
Add(Message,14439993,623,343)
{
 Message="ДА"
}
Add(Message,15799954,623,392)
{
 Message="Нет"
}
Add(DoData,16146082,448,364)
{
 link(onEventData,11340209:doExec,[])
 link(Data,8323337:Text,[])
}
Add(Hub,505498,252,280)
{
 OutCount=5
 link(onEvent1,8848393:doString,[(287,286)(287,258)])
 link(onEvent2,8323337:doClear,[(440,293)(440,314)])
 link(onEvent3,2622777:doConsoleExec,[(294,300)(294,314)])
 link(onEvent4,10177179:doTimer,[(287,307)(287,370)])
}
Add(DoData,6717924,567,343)
{
 link(onEventData,14439993:doMessage,[])
}
Add(DoData,778031,567,392)
{
 link(onEventData,15799954:doMessage,[])
}
Add(Memo,8323337,448,301)
{
 Left=10
 Top=40
 Width=355
 Height=205
}
Add(Timer,10177179,399,364)
{
 Enable=1
 AutoStop=1
 OverCall=1
 link(onTimer,16146082:doData,[])
}
Add(FormatStr,8848393,308,252)
{
 DataCount=1
 Mask="ping %1 -n 1"
 Point(FString)
 link(Str1,4799230:Text,[])
}

------------ Дoбавленo в 18.32:
односекундный вариант

Add(Button,14913789,168,147){
 Left=140
 Top=10
 Width=60
 Caption="Ping"
 link(onClick,505498:doEvent1,[])
}
Add(WinExec,2622777,273,161)
{
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(onConsoleTerminate)
 link(FileName,8848393:FString,[])
 link(onConsoleResult,8323337:doAdd,[])
}
Add(Edit,4799230,273,77)
{
 Left=5
 Top=10
 Width=135
 Text="192.168.1.1"
}
Add(RE_Search,11340209,364,231)
{
 Expression="[(]0%.*[)].*:.*=.*=.*=.*"
 link(onMatch,6717924:doData,[(408,237)(408,216)])
 link(onNotFound,778031:doData,[(408,244)(408,265)])
}
Add(Message,14439993,497,210)
{
 Message="ДА"
}
Add(Message,15799954,497,259)
{
 Message="Нет"
}
Add(DoData,16146082,322,231)
{
 link(onEventData,11340209:doExec,[])
 link(Data,8323337:Text,[])
}
Add(Hub,505498,217,147)
{
 OutCount=5
 link(onEvent1,8848393:doString,[(252,153)(252,125)])
 link(onEvent2,8323337:doClear,[(314,160)(314,181)])
 link(onEvent3,2622777:doConsoleExec,[(259,167)(259,181)])
 link(onEvent4,10177179:doTimer,[(252,174)(252,237)])
}
Add(DoData,6717924,441,210)
{
 link(onEventData,14439993:doMessage,[])
}
Add(DoData,778031,441,259)
{
 link(onEventData,15799954:doMessage,[])
}
Add(Memo,8323337,322,168)
{
 Left=10
 Top=40
 Width=355
 Height=205
}
Add(Timer,10177179,273,231)
{
 Enable=1
 AutoStop=1
 link(onTimer,16146082:doData,[])
}
Add(FormatStr,8848393,273,119)
{
 DataCount=1
 Mask="ping %1 -n 1"
 Point(FString)
 link(Str1,4799230:Text,[])
}

второй вариант чисто поржать

, ну и проверить всеядность
писал на Win7, но оказалось и на WinXP прекрасно работает

карма: 0

Ответов: 5446

Рейтинг: 323

#19: 2012-08-13 18:45:33 ЛС | профиль | цитата

... А ещё посоветую почитать про ICMP (частным случаем которого является Ping) и узнать для себя много нового и интересного ...
------------ Дoбавленo в 18.45:
Ну а для тех, кому лень читать (да ещё и на английском) поясняю: в случае запроса внутри подсети (т.е. IP and NETMASK == IP) для установления соединения (т.е. - для выяснения MAC-адреса) используется широковещательный запрос ("У кого IP X.X.X.X? Ответьте Y.Y.Y.Y"), и если ответа за установленный промежуток времени не было, то хост (X.X.X.X) должен сам себе ответить ошибкой (Host unreachable); в то время как для запросов за пределы подсети хост обращается к gateway-ю (роутеру), и ответ "хост не найден" приходит от него

карма: 1

Форумы ПрочееИнтересное с компонентом Ping ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)