Вверх ↑
Ответов: 798
Рейтинг: 168
#1: 2022-04-07 16:46:56 ЛС | профиль | цитата
Dad2016 писал(а):
твоя программа не видит второй комп в сети

Ты не дождался окончания сканирования сети (3-10 мин)
В программе сканируется весь диапазон адресов 192.168.0.1-254
Просто запусти программу и подожди несколько минут.

Добавил ProgressBar
Add(MainForm,2219782,406,126)
{
Width=720
link(onCreate,10354083:doStart,[])
}
Add(Memo,9803902,980,140)
{
Width=704
Height=241
Align=5
Font=[Lucida Console,8,0,0,204]
ScrollBars=3
}
Add(DoData,5427336,357,126)
{
Data=String(Сканирование завершено)
link(onEventData,2219782:doCaption,[])
}
Add(For,6199459,581,140)
{
Start=1
End=254
link(onEvent,1134256:doEvent1,[])
link(onStop,5427336:doData,[(620,153)(620,118)(347,118)(347,132)])
}
Add(StrCatDelim,5461832,714,140)
{
Delimiter="."
link(onStrCatDlm,5831013:doPing,[])
link(Str1,6879138:RemaindStr,[(720,131)(636,131)(636,180)(531,180)])
}
Add(Ping,5831013,763,140)
{
Name=""
link(onFind,14914418:doValue,[])
}
Add(Thread,10354083,455,140)
{
FastStop=0
link(onExec,6879138:doSplit,[])
}
Add(MultiStrData,6879138,525,140)
{
Char="."
Count=1
Direct=1
link(Str,4819620:LoacalIP,[])
link(onPart1,6199459:doFor,[])
}
Add(Host,1833116,868,140)
{
link(onHostByIP,15885937:doString,[])
}
Add(Host,4819620,518,63)
{
}
Add(Memory,14914418,819,140)
{
link(onData,1833116:doHostByIP,[])
}
Add(FormatStr,15885937,924,140)
{
Mask="%1 - %2"
link(onFString,9803902:doAdd,[])
link(Str1,14914418:Value,[(930,131)(916,131)(916,180)(825,180)])
}
Add(ProgressBar,6522339,714,196)
{
Top=241
Width=704
Align=4
Max=254
ProgressColor=32768
}
Add(Hub,1134256,644,140)
{
link(onEvent1,5461832:doStrCatDlm,[])
link(onEvent2,6522339:doPosition,[(697,153)(697,202)])
}

карма: 16

0
Редактировалось 2 раз(а), последний 2022-04-08 08:00:46