Вверх ↑
Ответов: 14
Рейтинг: 0
#1: 2009-05-26 10:00:35 ЛС | профиль | цитата
[b]Валерий[/b], схемы искал на форуме, но так и не нашел чтобы письмо отправлялось только один раз при появлении доступа в инет. Надо что то между ping и formatstr поставить, а что не знаю может кто подскажет :?: вот схема

Add(Host,9847929,476,119)
{
}
Add(SMTP,12491947,336,245)
{
Subject="IP"
Port=587
link(Body,777583:FString,[(370,234)(447,234)])
}
Add(Hub,1652025,231,182)
{
link(onEvent1,14640313:doPart,[(251,188)(251,153)])
link(onEvent2,7351711:doEvent1,[])
}
Add(ComputerInfo,10247823,441,119)
{
}
Add(FormatStr,777583,441,189)
{
DataCount=4
Mask="Имя пользователя: %1
Имя копьютера: %2
Процессор: %3
IP внутренний: %4"
Point(FString)
link(Str1,10247823:UserName,[])
link(Str2,10247823:CompName,[])
link(Str3,10247823:CPU,[])
link(Str4,9847929:LoacalIP,[(468,167)(489,167)])
}
Add(MainForm,1355650,175,175)
{
Visible=1
link(onCreate,1652025:doEvent1,[(219,195)(219,188)])
}
Add(Registry,6455422,336,147)
{
HKey=1
Key="SOFTWAREMicrosoftWindowsCurrentVersionRun"
link(Data,901719:Var2,[])
}
Add(Application,2604640,336,84)
{
}
Add(FilePart,14640313,266,147)
{
link(onName,6455422:doWrite,[])
link(FileName,901719:Var1,[(272,128)])
}
Add(GetDataEx,901719,329,119)
{
link(Data,2604640:AppFileName,[])
}
Add(Hub,7351711,280,189)
{
link(onEvent1,12135325:doTimer,[])
link(onEvent2,12491947:doSend,[(302,202)(302,251)])
}
Add(Ping,13041931,357,189)
{
link(onFind,777583:doString,[])
}
Add(Timer,12135325,315,189)
{
Interval=20000
link(onTimer,13041931:doPing,[])
}


карма: 0

0
файлы: 2code_13442.txt [929B] [123], code_13446.txt [1.3KB] [122]