garry
Anmeldedatum: 25.10.2005
Beiträge: 422
Wohnort: switzerland
|
 Verfasst am: Fr Dez 15, 2006 12:03 pm Titel: Date Calculations oder TV_NEWS |
 |
|
hier ein Beispiel mit Steiermark regional TV
kann man noch ganz alte Sendungen anschauen durch Auswahl mit
Gui,Add,DateTime oder Buttons Heute/Gestern
CH-NEWS Beispiel=rtsp://62.2.180.194:554/sfdrs/ts/2005/TS_16112005-450k.rm
| Code: | DATEMOD=2006-12-15
NAME =TV_STEIERMARK
;REALPLAYER =%A_ProgramFiles%\REALPLAYER\realplay.exe
REALPLAYER=%A_ProgramFiles%\Media Player Classic\mplayerc.exe
SW=%A_screenwidth%
SH=%A_screenheight%
DW:=(SW*99)/100
DH:=(SH*95)/100
DY:=(SH*87)/100
;Gui,2:-border
Gui,2:Color,000000
Gui,2:Font,S12 cwhite, Verdana
Gui,2:Show,minimize x0 y0 w%DW% h%DH%,BLACK
SM2:=100 ;wave
SM3:=100 ;volume
soundset, 0,WAVE,mute ;WAVE ON
SoundSet,%SM2%,WAVE ;WAVE volume
soundset,0,master,mute ;SPEAKER=MASTER ON
SoundSet,%SM3%,master ;SPEAKER=MASTER volume
YESTERDAY=0
TODAY=0
;Austria Steiermark,example for day calculation, news at 19:35 (?)
;http://vid01.wkstmk.at:8080/ramgen/orf2/st/st050501l.rm
Gui,81:Font,S10 CDefault,FixedSys
;Gui,81:Add,DateTime,x10 y5 w180 h20 vMyDate2 gTT ,
Gui,81:Add,DateTime,x10 y5 w180 h20 vMydate2,
Gui,81:Add,Button,x5 y45 h20 w70 gYESTERDAY,GESTERN
Gui,81:Add,Button,x85 y45 h20 w60 gTODAY,HEUTE
Gui,81:Add,Button,x157 y45 h20 w60 gTT,START
Gui,81:Show, x9 y355 h80 w220 ,%NAME%
return
TODAY:
TODAY=1
goto,TT
YESTERDAY:
YESTERDAY=1
TT:
Gui,81:submit,nohide
datebefore1=
datebeforeY=
BD1=%Mydate2%
AN1=%A_NOW%
stringmid,BD2,BD1,1,8 ;selected
stringmid,AN2,AN1,1,8 ;today
BD2:=BD2
AN2:=AN2
if (BD2>AN2)
{
msgbox,Date bigger as today`r`nSelect date again
return
}
if (Yesterday=1)
{
EnvAdd,datebeforeY,-1,days
stringmid,SD1,datebeforeY,3,6
goto,skip02
}
/*
;---------- TODAY is TODAY without Time Calculations ------
if (Today=1)
{
stringmid,SD1,AN2,3,6
goto,skip02
}
*/
;----------- TODAY or Yesterday time calculation -----------
if (TODAY=1)
{
stringmid,HR4,AN2,9,4
if (HR4>=1935)
{
stringmid,SD1,AN2,3,6
goto,skip02
}
else
{
EnvAdd,datebeforeY,-1,days
stringmid,SD1,datebeforeY,3,6
msgbox,65,,Before 19:35 plays yesterday's News`r(or select START button for Today)
ifmsgbox,CANCEL
{
YESTERDAY=0
TODAY=0
return
}
goto,skip02
}
}
if (BD2=AN2)
{
stringmid,SD1,AN2,3,6
msgbox,262147,DECISION,Today's News usually after 19:30`r`nYES=TODAY`r`nNO =YESTERDAY
ifmsgbox,CANCEL
return
ifmsgbox,NO
{
EnvAdd,datebefore1,-1,days
stringmid,SD1,datebefore1,3,6
}
}
if (BD2<>AN2)
stringmid,SD1,BD2,3,6
SKIP02:
YESTERDAY=0
TODAY=0
;Gui,81:destroy
Gui,2:show,max
Gui,2:add,Text, x20 y%DY% h20 w400,STEIERMARK NEWS from %SD1%
C2=http://vid01.wkstmk.at:8080/ramgen/orf2/st/st%SD1%l.rm
;PA=%C2% /fixedsize 700,550 ;for mplayerc.exe
PA=%C2%
Run,%REALPLAYER% %PA%,,hide,pid
Process,wait,mplayerc.exe
PID2 = %ErrorLevel%
return
;--------------------------------------------------------------
2GuiClose:
Gui,2:show,minimize
return
ESC::
Gui,2:destroy
process,close,%PID2%
;Gui,2:show,minimize
ExitApp
GuiClose:
Gui,2:destroy
ExitApp
81GuiClose:
Gui,2:destroy
ExitApp
;=================================================================
|
|
|
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
