Например тут:
Add(TCP_Server,2592065,109,182)
{
Port=80
Point(doCloseAll)
link(onRead,6488238:doSplit,[(146,188)(118,188)])
}
Add(StrPart,6488238,165,182)
{
Char=" "
Point(Right)
link(onPart,3881173:doCase,[(230,195)(216,195)])
}
Add(StrPart,16138008,284,196)
{
Char=" "
link(onPart,15436451:doCase,[])
link(Str,6488238:Right,[(290,186)(278,186)(278,235)(171,235)])
}
Add(Case,3881173,221,189)
{
Value=String(GET)
link(onTrue,16138008:doSplit,[])
}
Add(DoData,11657210,788,217)
{
Data=String(404.htm)
link(onEventData,766827:doEvent2,[])
}
Add(Hub,1788507,319,252)
{
InCount=2
link(onEvent1,2592065:doSend,[(361,258)(361,244)(101,244)(101,202)])
link(onEvent2,2592065:doCloseAll,[(371,265)(371,291)(92,291)(92,209)])
}
Add(Hub,766827,865,210)
{
InCount=2
OutCount=3
link(onEvent1,5882885:doEvent1,[(907,216)(907,195)(869,195)(869,153)])
link(onEvent2,3672149:doLoad,[(919,223)(919,167)])
link(onEvent3,11922045:doEvent1,[(916,230)(916,258)])
}
Add(StrCat,917603,592,203)
{
link(onStrCat,14904303:doFileExists,[(632,209)(632,230)])
link(Str1,13033036:Value,[])
}
Add(Memory,13033036,592,35)
{
Default=String(www)
}
Add(FormatStr,14028257,1005,210)
{
DataCount=3
Mask="%3Content-Length: %1
Keep-Alive: timeout=0, max=100
Connection: Keep-Alive
Content-Type: text/html
%2"
link(onFString,1788507:doEvent1,[(1057,216)(1057,314)(305,314)(305,258)])
link(Str2,13520680:Var2,[(1018,200)(979,200)(979,226)(948,226)])
link(Str3,2893471:Text,[])
}
Add(StrList,3672149,942,133)
{
@Hint=#17:загрузка страницы|
}
Add(Case,15436451,326,203)
{
Value=String(/)
link(onNextCase,12550920:doCase,[(391,209)(391,230)])
link(onTrue,6121418:doCollectCPUData,[(481,216)(481,279)])
}
Add(Hub,2662383,529,203)
{
InCount=2
OutCount=1
link(onEvent1,917603:doStrCat,[])
}
Add(StrCat,13418997,788,343)
{
Str2="<br>"
link(onStrCat,1071784:doEvent3,[(881,349)(881,356)])
}
Add(Replace,15323751,697,343)
{
SubStr="?"
link(onReplace,13418997:doStrCat,[])
}
Add(Hub,1071784,942,336)
{
@Hint=#8:добавить|
InCount=3
OutCount=1
link(onEvent1,3672149:doAdd,[(984,342)(984,257)(932,257)(932,139)])
}
Add(Length,4794548,956,210)
{
link(onLength,14028257:doString,[])
link(Str,13520680:Var3,[(962,200)(925,200)(925,212)])
}
Add(GetDataEx,13520680,935,203)
{
link(Data,3672149:Text,[])
}
Add(StrList,2893471,1019,140)
{
Strings=#15:HTTP/1.1 200 OK|34:Date: Wed, 0 Aug 2006 00:00:00 GMT|29:Server: mswebser/1.0.0(Win32)|42:Last-Modified: Fri, 0 Aug 2006 00:00:0 GMT|22:ETag: "0-181-44ef126c"|20:Accept-Ranges: bytes|
}
Add(FileTools,14904303,641,203)
{
link(onEnd,6281813:doCase,[])
}
Add(Case,6281813,683,203)
{
Value=Integer(1)
link(onNextCase,11657210:doData,[(774,209)(774,223)])
link(onTrue,10882250:doData,[])
}
Add(DoData,10882250,725,210)
{
link(onEventData,766827:doEvent1,[])
link(Data,917603:Result,[(731,200)(678,200)(678,246)(598,246)])
}
Add(Hub,11922045,935,252)
{
@Hint=#9:отправить|
InCount=3
OutCount=1
link(onEvent1,4794548:doLength,[(977,258)(977,247)(946,247)(946,216)])
}
Add(FormatStr,11864926,613,273)
{
DataCount=3
Mask="Страница сгенерирована программой MonSer <br>
%1<br>
На диске свободно %2 Мб<br>
Загрузка процессора %3 %<br>
Для того чтобы посмотреть список процессов допишите пароль в строке адреса"
link(onFString,1594361:doEvent1,[(660,279)(660,272)])
link(Str1,15474003:FormatTime,[(619,161)(619,161)])
link(Str2,915774:FreeSize,[(626,170)(675,170)])
}
Add(Hub,1594361,676,266)
{
OutCount=3
link(onEvent1,5882885:doEvent2,[(762,272)(766,206)(766,160)])
link(onEvent2,1071784:doEvent1,[(825,279)(825,342)])
link(onEvent3,11922045:doEvent2,[(821,286)(821,265)])
}
Add(Hub,5882885,879,147)
{
@Hint=#8:очистить|
InCount=3
OutCount=1
link(onEvent1,3672149:doClear,[(926,153)(926,146)])
}
Add(Time,15474003,613,112)
{
Format="Сегодня D.M.Y<br> Время сервера h:m:s"
}
Add(HardDisk,915774,662,112)
{
Disk="E"
Size=1
}
Add(CPUUsage,6121418,557,273)
{
link(onUsage,11864926:doString,[])
}
Add(Case,12550920,424,224)
{
Value=String(/0)
link(onNextCase,2662383:doEvent1,[(511,230)(511,209)])
link(onTrue,9601067:doEvent1,[(471,237)(471,349)])
}
Add(FormatStr,9682877,641,385)
{
DataCount=1
Mask="Страница сгенерирована программой MonSer
Список процессов:<br>"
link(onFString,1071784:doEvent2,[(926,391)(926,349)])
}
Add(EnumProcess,12895664,641,336)
{
link(onProcess,15323751:doReplace,[(685,342)(685,349)])
}
Add(Hub,9601067,571,343)
{
OutCount=4
link(onEvent1,5882885:doEvent3,[(613,349)(613,172)])
link(onEvent2,9682877:doString,[(615,356)(615,391)])
link(onEvent3,12895664:doEnum,[(622,363)(622,342)])
link(onEvent4,11922045:doEvent3,[(769,370)(769,272)])
}