Вверх ↑
Ответов: 4413
Рейтинг: 472
#1: 2008-01-10 13:00:06 ЛС | профиль | цитата
Простая реализация поиска в интернете с помощью поисковых серверов из своей программы (или своей программой ;))

Add(MainForm,11781202,238,203)
{
Left=20
Top=105
Width=566
Height=115
Caption="WebSearh"
Position=1
}
Add(WebBrowser,7982408,238,147)
{
Width=558
Height=81
Align=5
Visible=1
Point(doVisible)
link(onStatus,7941593:doText,[])
link(URL,16345182:Var1,[])
}
Add(ChildPanel,16345182,238,84)
{
link(onEvent1,4582527:doEvent1,[(280,90)(280,132)(153,132)(153,181)])
}
BEGIN_SDK
Add(EditMulti,183067,3,3)
{
EventCount=1
VarCount=1
Width=398
Height=235
link(Var1,9247348:Value,[(9,209)(328,209)])
}
Add(Panel,12844379,35,98)
{
Width=558
Height=41
Align=2
BevelInner=0
Point(doColor)
}
Add(ComboBox,4751272,98,84)
{
Left=10
Top=10
Width=115
Height=21
Font=[MS Sans Serif,8,1,0,1]
Strings=#7: yandex|7: google|6: yahoo|11: filesearch|10: wikipedia|
ReadOnly=0
link(onClick,9569678:doRead,[])
}
Add(Edit,7711711,266,91)
{
Left=135
Top=10
Width=300
Font=[MS Sans Serif,8,1,0,1]
Text=""
}
Add(BitBtn,15908418,35,154)
{
Left=445
Top=10
Width=100
Color=32768
Font=[MS Sans Serif,8,1,16777215,1]
Caption="Поиск"
link(onClick,1892354:doEvent1,[])
}
Add(StrList,8254935,168,21)
{
Strings=#39:http://www.yandex.ru/yandsearch?text=%2|33:http://www.google.com/search?q=%2|38:http://ru.search.yahoo.com/search?p=%2|56:http://www.filesearch.ru/cgi-bin/s?q=%2&t=f&n=20|129:http://ru.wikipedia.org/wiki/%D0%A1%D0%BF%D0%B5%D1%86%D0%B8%D0%B0%D0%BB%D1%8C%D0%BD%D1%8B%D0%B5:Search?search=%2&t=f&n=20|
}
Add(DoData,343486,182,154)
{
link(onEventData,2244796:doMask,[])
link(Data,9569678:Item,[])
}
Add(ArrayRW,9569678,182,91)
{
link(Array,8254935:Array,[])
}
Add(FormatStr,2244796,259,147)
{
Mask="http://www.yandex.ru/yandsearch?text=%2"
Point(doMask)
link(onFString,9247348:doValue,[])
link(Str2,7711711:Text,[])
}
Add(Memory,9247348,322,147)
{
link(onData,183067:onEvent1,[(378,153)(378,9)])
}
Add(Hub,1892354,98,154)
{
link(onEvent1,343486:doData,[])
link(onEvent2,2244796:doString,[(238,167)(238,153)])
}
END_SDK
Add(StatusBar,7941593,301,161)
{
}
Add(Hub,4582527,168,175)
{
OutCount=3
link(onEvent1,7982408:doVisible,[])
link(onEvent2,7982408:doNavigate,[(222,188)(222,153)])
link(onEvent3,14428913:doMaximize,[(222,195)(222,300)])
}
Add(Label,12924796,84,84)
{
Left=15
Top=45
Width=527
Height=26
Font=[Arial,14,0,16711680,204]
Caption="Выберите поисковик и введите ключевое слово для поиска"
}
Add(WinTools,14428913,238,266)
{
Point(doMaximize)
link(Handle,11781202:Handle,[])
}
Add(StyleXP,10971854,84,98)
{
}
p.s собирал в 3.63 но должна пахать

карма: 4

0