
------------ Д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,[])
}
односекундный вариант
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 прекрасно работает