Вверх ↑
Разработчик
Ответов: 26163
Рейтинг: 2127
#1: 2013-02-09 03:56:04 ЛС | профиль | цитата
Gorgar писал(а):
Вот если бы ещё порты удалённых компов проверять

TCP можно проверять по IP и номеру порта, но не таблицей. С UDP в этом плане сложнее
------------ Дoбавленo в 03.56:
Добавлен компонент TCPStat

Пример использования

Add(MainForm,6449431,161,210)
{
Width=755
Height=380
Caption="TCP_UDP_Stat"
Position=1
}
Add(Button,13770907,161,266)
{
Left=305
Top=265
Width=120
TabOrder=-1
Caption="GetTCP_UDP_Stat"
link(onClick,8963922:doEvent1,[])
}
Add(MTStrTbl,13900364,245,210)
{
Left=10
Top=10
Width=500
Height=250
Name="TCPtable"
Columns=#13:LocalAddr=104|12:LocalPort=80|14:RemoteAddr=104|13:RemotePort=80|9:State=104|
FlatScroll=1
}
Add(MST_RowAction,3724182,441,266)
{
MSTControl="TCPtable"
}
Add(MTStrTbl,15510300,287,210)
{
Left=520
Top=10
Width=210
Height=250
Name="UDPtable"
Columns=#13:LocalAddr=104|12:LocalPort=80|
FlatScroll=1
}
Add(MST_RowAction,1059487,441,308)
{
MSTControl="UDPtable"
}
Add(Hub,8963922,217,266)
{
link(onEvent1,11490515:doClear,[])
link(onEvent2,2478611:doClear,[])
}
Add(MST_Clear,11490515,245,266)
{
MSTControl="TCPtable"
link(onChange,10400764:doEnumTCP,[])
}
Add(MST_Clear,2478611,287,273)
{
MSTControl="UDPtable"
link(onChange,10400764:doEnumUDP,[])
}
Add(TCPStat,10400764,350,266)
{
Point(doPortIsOpen)
Point(onPortIsOpen)
Point(IP)
Point(Port)
link(onEnumTCP,3724182:doRowAction,[])
link(onEnumUDP,1059487:doRowAction,[(412,279)(412,314)])
link(onPortIsOpen,14571567:doEvent,[(403,286)(403,356)])
link(IP,835315:Text,[])
link(Port,4363003:Text,[(363,254)(405,254)])
}
Add(Edit,835315,350,210)
{
Left=255
Top=290
Width=125
Text="127.0.0.1"
Alignment=1
}
Add(Edit,4363003,399,210)
{
Left=385
Top=290
Width=75
Text="80"
Alignment=1
}
Add(Button,8230190,287,308)
{
Left=310
Top=315
Width=120
TabOrder=-1
Caption="TCPIsOpen"
link(onClick,10400764:doPortIsOpen,[(335,314)(335,286)])
}
Add(IndexToChanel,14571567,441,350)
{
link(onEvent1,10557658:doOff,[])
link(onEvent2,10557658:doOn,[])
}
Add(LED,10557658,497,343)
{
Left=465
Top=290
Width=20
Height=20
Shape=1
ColorBlick=128
}

карма: 22

0