Add(MainForm,2953706,0,70)
{
 Width=377
 Height=268
 Caption="Получения IP у модема D-Link DSL-2500U/BRU/D"
}
Add(TCP_Client,4922983,357,168)
{
 Port=80
 link(onRead,11857860:doSearch,[])
 link(IP,16199564:Var3,[(363,96)])
 link(Data,10508309:Value,[(370,149)(377,149)])
}
Add(Button,15215627,28,140)
{
 Left=5
 Top=145
 Width=355
 Caption="ОК"
 link(onClick,11628045:doEvent1,[])
}
Add(BlockFind,11857860,399,168)
{
 IncludeBlock=1
 StartBlock="<td>"
 EndBlock="</td>"
 link(onSearch,3513612:doCompare,[])
}
Add(StrMask,3513612,448,168)
{
 Mask="*.*.*.*"
 link(onTrue,16228551:doText,[])
}
Add(Edit,16228551,497,175)
{
 Left=5
 Top=200
 Width=355
 Text=""
}
Add(Label,6142383,44,24)
{
 Left=5
 Top=10
 Width=185
 Height=17
 Caption="IP адрес модема в локальной сети:"
}
Add(Edit,5291472,140,50)
{
 Left=5
 Top=25
 Width=355
 Text="192.168.1.1"
}
Add(Label,6287496,50,23)
{
 Left=5
 Top=50
 Width=103
 Height=17
 Caption="Имя пользователя:"
}
Add(Edit,6214790,188,51)
{
 Left=5
 Top=70
 Width=355
 Text=""
}
Add(Label,12802162,58,23)
{
 Left=5
 Top=95
 Width=45
 Height=17
 Caption="Пароль:"
}
Add(Edit,10882001,232,51)
{
 Left=5
 Top=110
 Width=355
 Text=""
}
Add(Label,3226497,67,23)
{
 Left=5
 Top=175
 Width=98
 Height=17
 Caption="Внешний IP адрес:"
}
Add(FormatStr,4383762,140,189)
{
 Mask="GET /wancfg.cmd?action=view HTTP/1.1
Host: %1
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.6) Gecko/20100625 (.NET CLR 3.5.30729)
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 115
Connection: keep-alive
Authorization: Basic %2
Cache-Control: max-age=0

"
 link(onFString,10508309:doValue,[(272,195)(272,104)])
 link(Str1,16199564:Var2,[])
 link(Str2,2358365:Value,[(153,167)(288,167)])
}
Add(FormatStr,7758235,191,112)
{
 Mask="%1:%2"
 link(onFString,8692429:doCharset,[])
 link(Str1,6214790:Text,[(194,112)])
 link(Str2,10882001:Text,[(204,98)(238,98)])
}
Add(Charset,8692429,233,112)
{
 Type=5
 link(onCharset,2358365:doValue,[])
}
Add(Memory,2358365,282,112)
{
}
Add(Hub,11628045,91,140)
{
 OutCount=5
 link(onEvent2,7758235:doString,[(148,153)(148,118)])
 link(onEvent3,4383762:doString,[(123,160)(123,195)])
 link(onEvent4,4922983:doOpen,[(231,167)(231,174)])
 link(onEvent5,4922983:doSend,[(231,174)(231,188)])
}
Add(Memory,10508309,371,98)
{
}
Add(GetDataEx,16199564,140,91)
{
 link(Data,5291472:Text,[])
}