Вверх ↑
Ответов: 1379
Рейтинг: 86
#1: 2010-05-21 00:55:54 ЛС | профиль | цитата
Легкая схемка, выводит счет матча, который сейчас идет у наших с канадцами. Данные - Яндекс.
code_18397.txt
------------ Дoбавленo в 00.55:
Уррррраааа!!!!!!!!!!!!!! Наши победили!!!!!!! 5 - 2! Россия!!!!!!!!!
Теперь ждем матча с Германией!
Внимание! Яндекс транслирует данные на эту же картинку о матче с Германией! Можно пользоваться схемой и в ближайшие 2-3 часа для получения информации о счете!

UPD 06.05.2011 - в этом году тоже транслируется все! схему немного подправил под текущие обстоятельства - 1 канал больше не показывает трансляцию, а та, что сейчас вставлена - рекламой прерывается если найду лучше - вставлю
Схема

Add(MainForm,2953706,126,35)
{
Width=151
Height=214
Caption="Россия!"
BorderStyle=1
Point(Handle)
Point(doWidth)
Point(doHeight)
link(onCreate,795864:doEvent1,[])
}
Add(Button,12405685,238,35)
{
Left=10
Top=5
Width=125
Height=25
Caption="Обновить"
link(onClick,1781236:doWork2,[])
}
Add(HTTP_Get,15882607,322,42)
{
URL="http://wimg.yandex.net/tt/wc/ho/t-ttwchockey.png"
link(onDownload,2295512:doEvent1,[])
link(onURLSize,13889758:doData,[(364,62)(364,90)])
}
Add(PNG,14920063,399,35)
{
Transparent=0
TransparentColor=16777215
Point(doLoadFromStream)
Point(doBitmap)
Point(Bitmap)
link(onBitmap,5080357:doLoad,[])
}
Add(Hub,2295512,371,49)
{
link(onEvent1,14920063:doLoadFromStream,[])
link(onEvent2,14920063:doBitmap,[])
}
Add(Image,5080357,448,35)
{
Left=15
Top=35
Width=120
Height=90
AutoSize=0
ViewStyle=4
Point(Handle)
}
Add(CheckBox,3684315,238,77)
{
Left=5
Top=130
Width=140
Caption="Обновлять раз в 30 сек"
}
Add(Timer,11976965,147,126)
{
Interval=30000
link(onTimer,2301516:doCompare,[])
}
Add(If_else,2301516,238,126)
{
Op2=Integer(1)
link(onTrue,1781236:doWork3,[(284,132)])
link(Op1,3684315:Checked,[])
}
Add(HubEx,1781236,280,35)
{
link(onEvent,13911361:doEvent1,[])
}
Add(StyleXP,15580816,420,210)
{
}
Add(Message,12660031,448,84)
{
Message="Что-то поменялось в счете!"
Caption="Россия - Германия, 2010"
Icon=3
link(onMessage,2953706:doRestore,[(489,90)(489,19)(113,19)(113,48)])
}
Add(ChangeMon,13889758,399,84)
{
link(onData,12660031:doMessage,[])
}
Add(Hub,13911361,294,35)
{
InCount=2
link(onEvent1,15882607:GetURLSize,[(315,41)(315,62)])
link(onEvent2,15882607:doDownload,[])
}
Add(WinTools,16575227,196,42)
{
link(Handle,2953706:Handle,[(202,34)(186,34)(186,73)(132,73)])
}
Add(WebBrowser,2914659,316,172)
{
Left=145
Top=5
Width=535
Height=460
URL=""
Point(doFromText)
}
Add(Button,13600210,147,172)
{
Left=5
Top=160
Width=135
Height=25
Caption="Показать трансляцию"
Data=String(http://itv.1tv.ru/ya_wm.html)
link(onClick,10299574:doEvent1,[])
}
Add(Button,15136768,364,168)
{
Left=5
Top=410
Width=135
Height=25
Caption="О программе"
link(onClick,15369804:doMessage,[])
}
Add(Button,14108412,76,56)
{
Left=5
Top=440
Width=135
Height=25
Caption="Выход"
link(onClick,2953706:doClose,[])
}
Add(Message,15369804,420,168)
{
Message="Чемпионат мира по хоккею, 2011
Счет и прямая трансляция матча.

© petrocan, 2011"
Caption="О программе"
Icon=4
}
Add(Hub,795864,168,49)
{
link(onEvent1,16575227:doPopup,[])
link(onEvent2,13911361:doEvent2,[(238,62)(238,48)])
}
Add(Hub,10299574,192,172)
{
OutCount=4
link(onEvent1,7753507:doData,[])
link(onEvent2,7484841:doData,[(232,185)(232,230)])
link(onEvent3,11114317:doData,[(225,192)(225,272)])
}
Add(DoData,7484841,315,224)
{
Data=String(690)
link(onEventData,2953706:doWidth,[(360,230)(360,307)(111,307)(111,69)])
}
Add(DoData,11114317,315,266)
{
Data=String(500)
link(onEventData,2953706:doHeight,[(354,272)(354,302)(117,302)(117,76)])
}
Add(StrList,4101328,294,105)
{
Strings=#135:<object height="280" width="440" type="application/x-shockwave-flash" data="http://video.sportbox.ru/flash/7/player169-3.swf" style="">|78:<param name="movie" value="http://video.sportbox.ru/flash/7/player169-3.swf"/>|47:<param name="allowScriptAcess" value="always"/>|36:<param name="wmode" value="opaque"/>|39:<param name="bgcolor" value="#000000"/>|44:<param name="allowfullscreen" value="true"/>|441:<param name="FlashVars" value="plugins=adtvideo.swf&skin=http://video.sportbox.ru/v/1/flash/modieus.swf&file=http://video.sportbox.ru/Translations/39051/q=2/flash_playlist.xml?&bufferlength=3&autostart=true&adtvideo.config=http://bs.sportbox.ru/www/delivery/asbvideo-afr.php?loc=http%3A%2F%2Fnews.sportbox.ru%2FVidy_sporta%2FHokkej%2FTeam_Russia%2Fspbvideo_CHM-Rossiya-Daniya-10-Sergey-Zinoviev%26aspect=169&gapro.accountid=UA-11776760-1&"/>|9:</object>|
}
Add(DoData,7753507,252,172)
{
link(onEventData,2914659:doFromText,[(300,178)(300,206)])
link(Data,4101328:Text,[(258,161)(300,161)])
}

(впринципе адрес картинки не менялся на яндексе )
карма: 0

0
файлы: 1code_18397.txt [1.5KB] [202]