 |
AutoHotkey Community
Wir helfen uns gegenseitig aus der Patsche
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
garry
Anmeldedatum: 25.10.2005
Beiträge: 422
Wohnort: switzerland
|
 Verfasst am: Do Jul 27, 2006 2:29 pm Titel: Internet TV (daily new satire) |
 |
|
startet ehrensenf TV mit Windows Media Player
starten, minus Tage eingeben (Beispiel -3) ,OK
die Sendung vom folgenden Tag anschauen , SPACE drücken
verlassen mit Escape
eventuell URL anpassen, Beispiel
http://ehrensenf.server-5.video.conserve.de/2006-08-22.wmv
| Code: | /*
DATE...............2006-07-27 garry
DATE modified .....2006-07-30
NAME...............TV_ehrensenf.ahk
USAGE..............PLAY TV www.ehrensenf.de with wmplayer (days -x)
--------------------------------------------------------
PLAYS TV www.ehrensenf.de (days -x until today)
type in -x days and use SPACE to continue
--------------------------------------------------------
*/
PLAYER2=%A_ProgramFiles%\Windows Media Player\wmplayer.exe
soundset,100
soundset,0,master,mute
InputBox,I,TV-EHRENSENF,Start before x-days (Example: -2) or (ENTER/OK for TODAY)`r`nWhen started skip with SPACE to next day
if ErrorLevel <> 0
ExitApp
if I=
I=0
if I>0
{
msgbox, Date is > today , script will close
ExitApp
}
if I=0
{
FormatTime,wDAY1,%A_NOW%,wDay
if wday1=1 ;never on sunday
{
WD=sunday
msgbox,Today is %WD%`r`nTV not available on saturday/sunday
ExitApp
}
if wday1=7 ;never on saturday
{
WD=saturday
msgbox,Today is %WD%`r`nTV not available on saturday/sunday
ExitApp
}
}
;---------------------------------------------
A5:
if I>0
{
msgbox, Date is >today`r`nSaturday/Sunday not available`r`nScript will close
ifwinactive ahk_class WMPlayerApp
{
Process,close,%NP%
}
ExitApp
}
envadd,A,%I%,days
stringmid,YR4,A,1,4
stringmid,MN2,A,5,2
stringmid,DY2,A,7,2
DB=%YR4%%MN2%%DY2%
FormatTime,wDAY1,%DB%,wDay
if wday1=1 ;never on sunday
GOTO A6
if wday1=7 ;never on saturday
GOTO A6
DA=%YR4%-%MN2%-%DY2%.wmv
C1=http://ehrensenf.server-4.video.conserve.de/%DA%
run,"%PLAYER2%" /fullscreen "%C1%",,max,NP
keywait,space,D
sleep,200
A6:
I+=1
A=
GOTO A5
ESC::
; send,!D
; sleep,20
; send,B
Process,close,%NP%
ExitApp
ButtonCancel:
Guiclose:
GuiEscape:
ExitApp
;============================================================================================================
|
Zuletzt bearbeitet von garry am Mi Aug 23, 2006 11:45 pm, insgesamt einmal bearbeitet |
|
| Nach oben |
|
 |
garry
Anmeldedatum: 25.10.2005
Beiträge: 422
Wohnort: switzerland
|
| Verfasst am: So Jul 30, 2006 10:23 am Titel: |
|
|
ein Beispiel, siehe letzten Beitrag von rocketboom (nicht jeden Tag)
| Code: | ;-----------------------------------------------------------------------------------
/*
DATE............2006-07-30 garry
MODIFIED........
NAME............rocketboom.ahk
USAGE...........plays the last video from http://www.rocketboom.net/
EXAMPLE.........http://www.rocketboom.net/video/rb_06_jul_26.wmv
RSS INFO........http://www.rocketboom.com/vlog/rss.html
RSS WMPLAYER....http://www.rocketboom.com/vlog/win_media_player_daily_enclosures.xml
*/
;------------------------------------------------------------------------------------
F1=dnl01.txt ;rss
F2=dnl02.txt ;all urls (.wmv)
Filedelete,%F1%
Filedelete,%F2%
LAC=.wmv
K=0
A=http://
T=
PLAYER2=%A_ProgramFiles%\Windows Media Player\wmplayer.exe
soundset,100
soundset,0,master,mute
urldownloadtofile,http://www.rocketboom.com/vlog/win_media_player_daily_enclosures.xml,%F1%
;------------ LASZLO's script-----------
Loop,Read, %F1%
{
T=%A_LoopReadLine%
StringReplace t,T,.%A_Space%,`,,All
StringRight r,t,1
IfEqual r,., StringTrimRight t,t,1
Loop Parse,t,`,` `"`>`=`;?`!
{
StringLeft r,A_LoopField,7
If r=%A%
{
stringright,Q4,A_LOOPFIELD,4
if Q4 contains %LAC%
{
if K=0
{
FIRST=%A_LoopField%
}
Fileappend,%A_LOOPFIELD%`r`n,%F2%
K++
}
}
}
}
if K>0
goto,KH
else
Goto,END
END:
msgbox,URL http://www.rocketboom.net/video/rb_YR_MONTH_DD.wmv not found
ExitApp
KH:
run,"%PLAYER2%" /fullscreen "%FIRST%",,max,NP
return
ESC::
Process,close,%NP%
ExitApp
|
oben wird der letzte video angezeigt
hier Auswahl der letzten videos:
| Code: | ;-----------------------------------------------------------------------------------
/*
DATE............2006-07-30 garry
MODIFIED........
NAME............rocketboom.ahk
USAGE...........plays video from http://www.rocketboom.net/
EXAMPLE.........http://www.rocketboom.net/video/rb_06_jul_26.wmv
RSS INFO........http://www.rocketboom.com/vlog/rss.html
RSS WMPLAYER....http://www.rocketboom.com/vlog/win_media_player_daily_enclosures.xml
*/
;------------------------------------------------------------------------------------
NAME=rocketboom.ahk
F1=%A_SCRIPTDIR%\dnl01.txt ;rss
F2=%A_SCRIPTDIR%\dnl02.txt ;all urls (.wmv)
Filedelete,%F1%
Filedelete,%F2%
LAC=.wmv
K=0
A=http://
T=
PLAYER2=%A_ProgramFiles%\Windows Media Player\wmplayer.exe
soundset,100
soundset,0,master,mute
urldownloadtofile,http://www.rocketboom.com/vlog/win_media_player_daily_enclosures.xml,%F1%
;------------ LASZLO's script-----------
Loop,Read, %F1%
{
T=%A_LoopReadLine%
StringReplace t,T,.%A_Space%,`,,All
StringRight r,t,1
IfEqual r,., StringTrimRight t,t,1
Loop Parse,t,`,` `"`>`=`;?`!
{
StringLeft r,A_LoopField,7
If r=%A%
{
stringright,Q4,A_LOOPFIELD,4
if Q4 contains %LAC%
{
if K=0
{
FIRST=%A_LoopField%
}
Fileappend,%A_LOOPFIELD%`r`n,%F2%
K++
}
}
}
}
if K>0
goto,KH
else
Goto,END
END:
msgbox,URL http://www.rocketboom.net/video/rb_YR_MONTH_DD.wmv not found
ExitApp
KH:
Gui,1:Font, S10 CDefault , FixedSys
T1=580
Gui,1:Add, ListView,grid y18 20 r16 w600 +hscroll altsubmit vMyListView gMyListView,URL
Gui,1:Add,Text,x20 y2 vTotal1 w100,%I%
I:=0
LV_Delete()
Loop,read,%F2%
{
I++
LV_Add("", A_LoopReadLine)
LV_ModifyCol(1,T1)
}
GuiControl,1:,total1,%I%
Gui,1: Show, x2 y20 w680 h360 ,%NAME%
return
MyListView:
GuiControlGet, MyListView
if A_GuiEvent = DoubleClick
{
C1=
LV_GetText(C1,A_EventInfo,1)
run,"%PLAYER2%" /fullscreen "%C1%",,max,NP
}
return
ESC::
Process,close,%NP%
return
Guiclose:
ExitApp
|
|
|
| Nach oben |
|
|
|
|
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
|
Powered by phpBB © 2001, 2005 phpBB Group
Deutsche Übersetzung von phpBB.de |
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
