MODIFIED = 20080623/2
CREATED = 20080401
NAME00 = TV_EMBED
; USE = see/listen >> television/radio/map/video
; download youtube
;
; needs.......................... = lbbrowse3.dll
;................................ http://www.alycesrestaurant.com/lbbrowse.htm
;................................ http://www.alycesrestaurant.com/zips/browsdll3.zip
;
; vlc.exe (option)
; http://www.autohotkey.com/forum/topic27264.html
;
;
;level meter..................... meterh.exe
;................................ http://www.darkwood.demon.co.uk/PC/meter.html
;
;MIXMP3...........................http://ldb.tpv.ru/
;.................................MIXMP3.exe & mp3enc.dll record audio to MP3
;
;addon (to see some video)
; http://www.octoshape.com/files/octosetup_v_l_odd.exe
; http://www.octoshape.com/play/play.asp?lang=de
;
;picture http://www.autohotkey.net/~garry/20080623TV_IE_DK.jpg
;---------------------------------------------------
#NoEnv
setworkingdir, %a_scriptdir%
;SetTitleMatchMode, 2
;DetectHiddenText,on
;DetectHiddenWindows, on
SetFormat Float, 0.0
;SetKeyDelay, 100
transform,S,chr,32
ifnotexist,lbbrowse3.dll
goto,LBBROWSE3
transform,ten,chr,10
transform,tre,chr,13
CF=%TRE%%TEN%
R3R=C:\_RECORDING ;<<<<<< save ytb here
ifnotexist,%R3R%
FileCreateDir,%R3R%
R3Va=Links_YOUTUBE.txt
R3V =%A_scriptdir%\%R3Va%
R3Wa=TV_Links_Search.txt
R3W =%A_scriptdir%\%R3Wa%
R3Xa=TV_links_all.txt
R3X =%A_scriptdir%\%R3Xa%
R3Ya=TV_links_Favorit.txt
R3Y =%A_scriptdir%\%R3Ya%
R3Za=TV_links_BeeLineTV.txt
R3Z =%A_scriptdir%\%R3Za%
gosub,createst
;----------------------------------------
Menu,S4,add,_TV_LinksSearch ,MH4
Menu,S4,add,_TV_LinksFavorit ,MH4
Menu,S4,add,_TV_LinksALL ,MH4
Menu,S4,add,_TV_LinksBeeLineTV,MH4
Menu,S4,add,_TV_LinksSearch ,MH4
Menu,S4,add,_LinksYoutube ,MH4
Menu,S4,add,_RECORDED ,MH4
Menu,S4,add,_UpdateBeeLineTV ,MH4
Menu,S5,add,MAP1 ,MH5
Menu,S5,add,RADIO1 ,MH5
Menu,S5,add,YOUTUBE1 ,MH5
Menu,S5,add,MUSIC1 ,MH5
Menu,S5,add,MUSIC_ESNIPS ,MH5
Menu,S5,add,VIDEO1 ,MH5
Menu,S6,add,BLANK ,MH6
Menu,S6,add,SCREEN ,MH6
Menu,S7,add,VIDEOS ,MH7
;-----------------------------------------
Menu,S4,add, ,MH4
Menu,S5,add, ,MH5
Menu,S6,add, ,MH6
Menu,S7,add, ,MH7
menu,myMenuBar,Add,Search ,:S4
menu,myMenuBar,Add,Examples ,:S5
menu,myMenuBar,Add,TOOLS ,:S6
menu,myMenuBar,Add,MyVideos ,:S7
gui,2:menu,MyMenuBar
;-------------------------------------------
lbbHandle := DllCall("LoadLibrary", "str", "lbbrowse3.dll")
WA=%A_screenwidth%
HA=%A_screenheight%
X1=0
Y1=0
W1 :=(WA*99)/100 ;width ;guishow width
H1 :=(HA*93)/100 ;height ;guishow height
HB1 :=(HA*85 )/100 ;buttons1
HB2 :=(HA*87.5)/100 ;buttons2
HB3 :=(HA*90 )/100 ;buttons3
HU :=(HA*82)/100 ;height ;Youtube Title
;HU :=(HA*2)/100 ;height ;Youtube Title
;----------------------------------------------------------------
Gui,2:Color,teal
Gui,2:Add,Checkbox,x10 y%HB2% vCB1,VLC
Gui,2:Add,DateTime,x330 y%HB3% w110 h22 vMydate2,
Gui,2:Add,Button,x60 y%HB2% w90 h20 gMUTE1,VOL_ON/OFF
Gui,2:Add,Button,x160 y%HB2% w90 h20 gBLANK,BLANK
Gui,2:Add,Button,x260 y%HB2% w90 h20 gRECORDED,FOLDER
Gui,2:Add,Button,x800 y%HB2% w90 h20 gRECORD1 ,RECORD
Gui,2:Add,Button,x800 y%HB3% w90 h20 gSTOP1 ,STOP
;Gui,2:Add,Button,x800 y%HB3% w90 h20 gRECORDED,FOLDER
Gui,2:Font,S8 cwhite, Verdana
Gui,2:Add,Edit, x800 y%HB1% w90 h20 ReadOnly ;EDIT1 record
Gui,2:Font,S8 cBLACK, Verdana
;ALCC=http://www.youtube.com/watch?v=iCKMzrPy4t4 ;for TEST aquela janela
Gui,2:Add,Edit, x10 y%HB3% w300 h20 vURL21,%ALCC% ;EDIT2 youtube
Gui,2:add,button,x20 y10 h0 w0 default gDOWNLOAD1,
Gui,2:Font,S16 cyellow, Verdana
WC:=(WA*85)/100
Gui,2:Add,Text,center x50 y%HU% w%WC% vAL1,%new2% ;TITLE
Gui,2:show,x%X1% y%Y1% w%W1% h%H1%,%NAME00%_%MODIFIED%
;--------------------------------------------------------------------
SM1:=7 ;record Stereo Mix
SM3:=90 ;volume
SM4:=70 ;wave
soundset,0,master,mute ;SPEAKER=MASTER ON
SoundSet,%SM3%,master ;SPEAKER=MASTER volume
soundset,0,WAVE,mute ; WAVE EIN
SoundSet,%SM4%,WAVE ; WAVE
;--- see stereo mix slider -----------
;--- analog:8 or analog:9 -----------
soundset, 0,ANALOG:9,mute ;activate doesn`t work
SoundSet,%SM1%,ANALOG:9 ;Stereo Mix recording work
Gui,2:Font,cBlack,FixedSys
Gui,2:Add,Button, x560 y%HB1% w110 h20 gRECVOLUME ,REC_VOLUME
Gui,2:Add,Slider, x560 y%HB2% w110 h20 vSlider Range5-40 gSliderRel,%SM1%
Gui,2:Add,Edit,cred x560 y%HB3% w110 h20 vEditText3 gEdit3,
Gui,2:Add,Button, x680 y%HB1% w110 h20 gWAVEVOLUME ,WAVE_VOLUME
Gui,2:Add,Slider, x680 y%HB2% w110 h20 vVolume Range0-99 gVolumeX,%SM4%
Gui,2:Add,Edit, x680 y%HB3% w110 h20 vEditText4 gEdit4,
GuiControl,2:,edittext3,%SM1% ;stereo mix record
GuiControl,2:,edittext4,%SM4% ;WAVE PLAYBACK
;-----------------------------------
WinGet, mainGuiHandle, ID, A
AS2=about:blank
DLLCall("lbbrowse3\CreateBrowser","uint",mainGuiHandle,"Int",X2,"Int",Y2,"Int",W2,"Int",H2,"Str",AS2,"Int",1)
DllCall("lbbrowse3\ShowStatusbar","int",0)
;DllCall("lbbrowse3\EnableBrowser","int",1)
DllCall("lbbrowse3\ShowBrowser","int",0)
OnExit, Cleanup
R3XX=%R3Y%
gosub,2nd ;show menu
run,%comspec% /C meterh.exe,,hide
Process,wait,meterh.exe
PID3 = %ErrorLevel%
Process,exist,meterh.exe
Process,exist,mixmp3.exe
if ErrorLevel=0
GuiControl,2:Text,Edit1,NO_RECORD
;------------------------------------------
Return
;================================================================================
RECVOLUME:
run,sndvol32 /rec
return
;-----------------
WAVEVOLUME:
run,sndvol32
return
;-----------------
MUTE1:
soundset,+1,master,mute
return
;------------------
;--- see stereo mix slider -----------
;--- analog:8 or analog:9 -----------
SliderRel:
Gui,2:Submit, NoHide
SoundSet,%slider%,Analog:9
GuiControl,2:, EditText3, %Slider%
Return
Edit3:
Gui,2:Submit, Nohide
GuiControl,2:, Slider, %EditText3%
Return
;----------------------------------------
VolumeX:
Gui,2:Submit, NoHide
SoundSet,%volume%,WAVE
GuiControl,2:, EditText4,%volume%
Return
Edit4:
Gui,2:Submit, Nohide
GuiControl,2:,volume,%EditText4%
Return
;-----------------------------------------
;========================= SEARCH ==============================
MH4:
GuiControl,2:Text,AL1,%nothing%
;GuiControl,2:Disable,YTB_DNL
if A_thisMenuItem=_TV_LinksSearch
{
R3XX=%R3W%
goto,2nd
}
if A_thisMenuItem=_LinksYoutube
{
R3XX=%R3V%
GuiControl,2:,URL21,%nothing%
goto,2nd
}
if A_thisMenuItem=_TV_LinksFavorit
{
R3XX=%R3Y%
goto,2nd
}
if A_thisMenuItem=_TV_LinksALL
{
R3XX=%R3X%
goto,2nd
}
if A_thisMenuItem=_TV_LinksBeeLineTV
{
R3XX=%R3Z%
ifnotexist,%R3Z%
gosub,UpdateBeeLineTV
goto,2nd
}
if A_thisMenuItem=_RECORDED
goto,RECORDED
if A_thisMenuItem=_UpdateBeeLineTV
goto,UpdateBeeLineTV
return
;-----------------------------
;====================== EXAMPLES =================================================
MH5:
GuiControl,2:Text,AL1,%nothing%
if A_thisMenuItem=MAP1
goto,ATT101
if A_thisMenuItem=RADIO1
goto,ATT102
if A_thisMenuItem=YOUTUBE1
goto,ATT103
if A_thisMenuItem=MUSIC1
goto,ATT104
if A_thisMenuItem=VIDEO1
goto,ATT105
if A_thisMenuItem=MUSIC_ESNIPS
goto,ATT106
return
;================================================================================
;====================== TOOLS =================================================
MH6:
GuiControl,2:Text,AL1,%nothing%
if A_thisMenuItem=BLANK
goto,BLANK
if A_thisMenuItem=SCREEN
goto,SCREEN1
return
;================================================================================
;====================== TOOLS =================================================
MH7:
GuiControl,2:Text,AL1,%nothing%
if A_thisMenuItem=VIDEOS
goto,VIDEOS22
return
;================================================================================
VIDEOS22:
Gui,2:submit,nohide
Gui,99:destroy
GuiControl,2:Text,AL1,%nothing%
Gui,3:+AlwaysOnTop
Gui,3:default
Gui,2:+Disabled
Gui,3:+Owner
T98a:=(WA*12)/100 ;column1 width NAME
T98b:=(WA*4)/100 ;column2 width SIZE
LSW3:=T98a+T98b+20
GSW3:=(LSW3+2)
LSH3:=(HA*75)/100
GSH3:=(HA*82)/100
Gui,3:Font,S11 CWhite,Lucide Console
Gui,3:Add,ListView,backgroundteal grid x0 y10 h%LSH3% w%LSW3% +hscroll altsubmit vMLV198A gMLV198B,Name|Size
LV_ModifyCol(1,T98a)
LV_ModifyCol(2,T98b)
gosub,Filllistpath
Gui,3:Show,x0 y40 h%GSH3% w%GSW3%,MyVideos
return
Filllistpath:
Loop,%R3R%\*.flv
LV_Add("", A_LoopFileName,A_LoopFileSizeKB)
return
3GuiClose:
Gui,2:default
Gui,2:-Disabled
Gui,2:+Owner
gui,3:destroy
return
MLV198B:
Gui,3:Submit,nohide
Gui,3:ListView,MLV198A
RN:=LV_GetNext("C")
RF:=LV_GetNext("F")
GC:=LV_GetCount()
if (RF="" OR RF=0)
return
if A_GuiEvent=normal
{
W3 :=(WA*50)/100 ;width
H3 :=(HA*45)/100 ;height
LV_GetText(C1,A_EventInfo,1)
URL1=file:///%R3R%\%C1%
stringsplit,GX,C1,`.
name1=%GX1%
Gui,2:-Disabled
Gui,2:+Owner
Gui,2:default
gui,3:destroy
goto,skip1
return
}
return
;================================================================================
RECORD1:
stringreplace,name4,name1,%S%,_,all
if name4=
name4=%A_now%
ifexist,%R3R%\%name4%.mp3
name4=%A_now%_%name4%
Loop,%R3R%,1
SP1= %A_LoopFileShortPath% ;shortpath for DOS command
run,mixmp3.exe -b 128 %SP1%\%name4%,,min ;not hidden
Process,wait,mixmp3.exe
PID2 = %ErrorLevel%
;Process,exist,mixmp3.exe
if ErrorLevel<>0
GuiControl,2:Text,Edit1,RECORD
return
;------------------
STOP1:
ControlSend,,{ESCAPE},ahk_pid %PID2% ;close when not hidden
GuiControl,2:Text,Edit1,STOPPED
process,close,%PID2%
; return
;------------------------------------------------------
;---------------------------------------------
RECORDED:
run,%R3R%
return
;------------------------------------------------------
SCREEN1:
run,c:\windows\system32\Desk.cpl
return
;----------------------------------
BLANK:
gui,99:destroy
AX1=about:blank
DllCall("lbbrowse3\Navigate", "str",AX1)
return
;================================================================================
;--------------- example MAP ---------------
ATT101:
gui,99:destroy
X2 :=(20)
Y2 :=(10)
W2 :=(WA*95)/100 ;width
H2 :=(HA*78)/100 ;height
W3 :=(WA*85)/100 ;width
H3 :=(HA*80)/100 ;height
aa4=
(
<iframe width="%W2%" height="%H3%" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="http://maps.google.com/maps?f=q&hl=de&geocode=&q=kobenhavn&ie=UTF8&z=12&ll=55.700034,12.584839&output=embed&s=AARTsJouXxDoZtfyv3vzI3PDZxdILW79tg"></iframe><br /><small><a href="http://maps.google.com/maps?f=q&hl=de&geocode=&q=kobenhavn&ie=UTF8&z=12&ll=55.700034,12.584839&source=embed" style="color:#0000FF;text-align:left">Größere Kartenansicht</a></small>
)
/*
aa4=
(
<iframe width="%W2%" height="%H3%" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="http://maps.google.de/maps?hl=de&q=`%22Vikarbyn`%22&oe=UTF-8&ie=UTF8&ll=60.915875,15.02449&spn=0.030545,0.075188&z=14&output=embed&s=AARTsJoU2GW-g-7CPS0DcQ_9Ax7q0Msq7w"></iframe><br /><small><a href="http://maps.google.de/maps?hl=de&q=`%22Vikarbyn`%22&oe=UTF-8&ie=UTF8&ll=60.915875,15.02449&spn=0.030545,0.075188&z=14&source=embed" style="color:#0000FF;text-align:left">Größere Kartenansicht</a></small>
)
aa4=
(
<object width="378" height="246"><param name="movie" value="http://www.sf.tv/videoplayer/embed/6e4d5d4a-3e71-4b77-a302-11db1837c393"></param><param name="wmode" value="transparent"></param><param name="allowFullScreen" value="true" /><param name="scale" value="noscale" /><embed src="http://www.sf.tv/videoplayer/embed/6e4d5d4a-3e71-4b77-a302-11db1837c393" type="application/x-shockwave-flash" wmode="transparent" width="378" height="246" scale="noscale" allowFullScreen="true" salign="lt"></embed></object>
)
*/
gosub,skip2
AX1=%M3%
DLLCall("lbbrowse3\MoveBrowser","Int",X2,"Int",Y2,"Int",W2,"Int",H2)
DllCall("lbbrowse3\Navigate", "str",AX1)
return
;================================================================================
;-------- listen to Danmarks Radio evergreen ---------------------------
ATT102:
gui,99:destroy
AX1=http://netradio.dr.dk/content.asp?station=29&#
X2 :=(10)
Y2 :=(10)
W2 :=(680)
H2 :=(290)
DLLCall("lbbrowse3\MoveBrowser","Int",X2,"Int",Y2,"Int",W2,"Int",H2)
DllCall("lbbrowse3\Navigate", "str",AX1)
return
;================================================================================
;------------------ youtube example ----------------------------
ATT103:
gui,99:destroy
URL1=http://www.youtube.com/watch?v=82ZuxWbO8QY
YOUTUBETEST=1
gosub,download1
AX1=%URL1%
stringreplace,AX1,AX1,/watch?v=,/v/,all
X2 :=(200)
Y2 :=(100)
W2 :=(WA*60)/100 ;width
H2 :=(HA*50)/100 ;height
DLLCall("lbbrowse3\MoveBrowser","Int",X2,"Int",Y2,"Int",W2,"Int",H2)
DllCall("lbbrowse3\Navigate", "str",AX1)
YOUTUBETEST=0
return
;----------------------------- MUSIC ---------------------------------
ATT104:
gui,99:destroy
AX1=http://listen.grooveshark.com/index.php?searchQuery=distant+drums
X2 :=(10)
Y2 :=(10)
W2 :=(WA*90)/100 ;width
H2 :=(HA*80)/100 ;height
DLLCall("lbbrowse3\MoveBrowser","Int",X2,"Int",Y2,"Int",W2,"Int",H2)
DllCall("lbbrowse3\Navigate", "str",AX1)
return
;-------------- example PLAY VIDEO FLV -----------------------
ATT105:
gui,99:destroy
name1=aquela janela virada pro mar
URL1=file:///c:\_recording\aquela janela virada pro mar.flv
W3 :=(WA*50)/100 ;width
H3 :=(HA*45)/100 ;height
goto,skip1
return
;-------- MUSIC ESNIPS ---------------------------
ATT106:
gui,99:destroy
AX1=http://www.esnips.com/_t_/`%22jim+reeves`%22?to=120&gen=Any+Gender&t=1&sort=0&cnt=Any+Country&uf=0&page=1&st=4&from=13&pp=10&q=`%22jim+reeves`%22
AX1=http://www.tvchannelsfree.com/watch/4643/Ehrensenf---Comedy-TV.html
X2 :=(10)
Y2 :=(10)
W2 :=(WA*50)/100 ;width
H2 :=(HA*45)/100 ;height
DLLCall("lbbrowse3\MoveBrowser","Int",X2,"Int",Y2,"Int",W2,"Int",H2)
DllCall("lbbrowse3\Navigate", "str",AX1)
return
;================================================================================
;================================================================================
cleanup:
2Guiclose:
Gui,2: Destroy
DllCall("lbbrowse3\DestroyBrowser")
DllCall("FreeLibrary", "UInt", lbbHandle)
process,close,%PID2%
process,close,%PID3%
exitapp
;=================================================================================
;================= DOWNLOAD lbbrowse3.dll==========================================
LBBROWSE3:
{
text31=
(
This ahk-script needs lbbrowse3.dll
Download
-lbbrowse3.dll
from
http://www.alycesrestaurant.com/lbbrowse.htm
Want you download this program ?
)
msgbox, 262180, Start URL,%text31%
ifmsgbox,NO
{
exitapp
return
}
else
{
;run,http://www.alycesrestaurant.com/lbbrowse.htm
run,http://www.alycesrestaurant.com/zips/browsdll3.zip
exitapp
return
}
}
return
;============================================================================
;========================= SKIP1 =============================================
SKIP1:
;msgbox,URL1=%URL1%
;-------------- size from screen ------
X2 :=(20)
Y2 :=(10)
W2 :=(WA*95)/100 ;width
H2 :=(HA*80)/100 ;height
;--------------------------------------
aa4=
(
<center>
<h1>%Name1%</h1>
<param name="url" value="%URL1%" />
<param name="autostart" value="true" />
<param name="uimode" value="mini" />
<embed
type="video/x-ms-wmv"
src="%URL1%"
width="%W3%" height="%H3%"
autostart="True"
uimode="mini">
</embed>
</object>
)
gosub,SKIP2
AX1=%M3%
DLLCall("lbbrowse3\MoveBrowser","Int",X2,"Int",Y2,"Int",W2,"Int",H2)
DllCall("lbbrowse3\Navigate", "str",AX1)
;gui,99:destroy
;GuiControl,2:Enable,MENU-2
gui,99:destroy
Gui,3:destroy
Gui,2:default
return
; after name1 removed
; <object id="mediaplayer" width="%W3%" height="%H3%"
; classid="clsid:6bf52a52-394a-11d3-b153-00c04f79faa6"
; type="application/x-oleobject">
;===============================================================================
;========================= SKIP2 =============================================
SKIP2:
Gui,2:submit,nohide
M3 =%A_scriptdir%\TEST.htm
ifexist,%M3%
filedelete,%M3%
e1=
(
<HTML>
<HEAD>
<TITLE>MAP_TEST</TITLE>
</HEAD>
<BODY>
<style type="text/css">
body {
background-color: #008080;
margin: 0px;
padding: 0px;
color: #fff;
overflow-y: hidden;
overflow-x: hidden;
}
</style>
%AA4%
</BODY>
</HTML>
)
stringreplace,A,e1,%TEN%,%CF%,all
Fileappend,%A%`r`n,%M3%
return
;===============================================================================
/*
;------------------ colors -------------------------------------------
;C=000000 ;black
;C=008000 ;green
;C=C0C0C0 ;silver
;C=00FF00 ;lime
;C=808080 ;grey
;C=808000 ;olive
;C=FFFFFF ;white
;C=FFFF00 ;yellow
;C=800000 ;maroon
;C=000080 ;navy
;C=FF0000 ;red
;C=0000FF ;blue
;C=800080 ;purple
;C=008080 ;teal
;C=FF00FF ;fuchsia
;C=00FFFF ;aqua
*/
;-----------------------------------------------------------------------
;====================================================================================
;--------------------------- EXAMPLE TO READ 2nd GUI TV_Links_XXX --------------------------------
2nd:
Gui,99:destroy
Gui,2:submit,nohide
Gui,3:destroy
GuiControl,2:Text,AL1,%nothing%
Gui,99:+AlwaysOnTop
Gui,99:default
Gui,2:+Disabled
Gui,99:+Owner
;msgbox,R3XX=%R3XX%
T99a:=(WA*15)/100 ;column1 width NAME
T99b:=(WA*4)/100 ;column2 width SIZE
T99c:=0 ;column3 width VIDEO URL1
T99d:=(WA*4)/100 ;column4 width HOMEPAGE
T1A:=T99a
T2A:=(T99a+T99b)
T3A:=(T99a+T99b+T99c)
T4A:=(T99a+T99b+T99c+T99d)
LSW:=T99a+T99b+T99c+T99d+20
GSW:=(LSW+2)
LSH:=(HA*75)/100
GSH:=(HA*82)/100
DNY3:=(HA*78)/100 ; Y-Pos Button
;R3X=TV_Link_ALL
;R3Y=TV_Link_Favorites
;R3Z=TV_Link_BeeLineTV
SplitPath,R3XX, namexx, dir, ext, name_no_ext, drive
if (namexx=R3Xa or namexx=R3Ya or namexx=R3Va or namexx=R3Wa) ;All or Favorit or Links or Youtube
{
Gui,99:Add,button, x10 y%DNY3% h25 w90 gEdit97 ,EDIT
Gui,99:Add,button, x110 y%DNY3% h25 w90 gAddNew96 ,AddNew
}
if (namexx=R3Xa or namexx=R3Za) ;All or BeeLineTV
{
Gui,99:Add,button, x210 y%DNY3% h25 w90 gAddNew95 ,Add2Fav
}
Gui,99:Font,S11 CWhite,Lucide Console
Gui,99:Add, ListView, backgroundTeal grid x0 y10 h%LSH% w%LSW% +hscroll altsubmit vMLV199A gMLV199B, NAME|SIZE|C|URL
LV_ModifyCol(1,T99a)
LV_ModifyCol(2,T99b)
LV_ModifyCol(3,T99c)
LV_ModifyCol(4,T99d)
gosub,Filllistpath2
Gui,99:Show, x0 y40 h%GSH% w%GSW%,%namexx%
return
;----------------------------------------------------------------
;--------------- txt csv -----------------------------
Filllistpath2:
LV_Delete()
loop,read,%R3XX%
{
LR=%A_loopreadline%
if LR=
continue
stringsplit,C,LR,`;
LV_Add("",C1,C2,C3,C4)
C1=
C2=
C3=
C4=
}
LV_ModifyCol(1, "Sort") ;sort by first column
;LV_Modify(LV_GetCount(), "Vis") ;scroll down
return
;-------------------------------------------------------------------------------------
;############# EVENTS ############################
MLV199B:
Gui,99:Submit,nohide
Gui,99:ListView,MLV199A
RN:=LV_GetNext("C")
RF:=LV_GetNext("F")
GC:=LV_GetCount()
if (RF="" OR RF=0)
return
if A_GuiEvent=normal
{
LV_GetText(C1,A_EventInfo,1)
LV_GetText(C2,A_EventInfo,2)
LV_GetText(C3,A_EventInfo,3)
LV_GetText(C4,A_EventInfo,4)
MouseGetPos,x,y
{
if x<50
{
return
}
if x<%T1A%
{
LV_GetText(C1,A_EventInfo,1)
LV_GetText(C2,A_EventInfo,2)
LV_GetText(C3,A_EventInfo,3)
LV_GetText(C4,A_EventInfo,4)
C11=%C3%
gosub,C11
return
}
if x<%T2A%
return
if x<%T3A%
return
if x<%T4A%
{
LV_GetText(C1,A_EventInfo,1)
LV_GetText(C2,A_EventInfo,2)
LV_GetText(C3,A_EventInfo,3)
LV_GetText(C4,A_EventInfo,4)
;msgbox, C1=%C1%`nC2= %C2%`nC3= %C3%`nC4= %C4%
if C4<>
{
gui,99:destroy
Gui,2:-Disabled
Gui,2:Default
Gui,2:+Owner
run,%C4%
return
}
return
}
}
}
if A_GuiEvent=doubleclick
{
LV_GetText(C1,A_EventInfo,1)
LV_GetText(C2,A_EventInfo,2)
LV_GetText(C3,A_EventInfo,3)
LV_GetText(C4,A_EventInfo,4)
if C4<>
run,%C4%
return
}
;-------------------------
;--------- DELETE ----------------------------
if A_GuiEvent = RightClick
{
CLL=
RF= 0
RFL=
Loop
{
RF:=LV_GetNext(RF)
if (RF="" OR RF=0)
break
RFL = %RF%|%RFL% ;yyy
LV_GetText(CLL_Temp,RF,1)
CLL = %CLL%`n%CLL_Temp%
}
if CLL !=
{
msgbox, 262452, DELETE,Want you delete lines in %R3XX%`n%CLL%?
IfMsgBox,No
Return
Else
{
Loop, parse, RFL, | ;yyy
LV_Delete(A_LoopField)
filedelete,%R3XX%
Loop % LV_GetCount()
{
BX1=
BX2=
BX3=
BX4=
LV_GetText(BX1,A_INDEX,1)
LV_GetText(BX2,A_INDEX,2)
LV_GetText(BX3,A_INDEX,3)
LV_GetText(BX4,A_INDEX,4)
Fileappend,%BX1%;%BX2%;%BX3%;%BX4%`r`n,%R3XX%
}
}
}
Gosub,filllistpath2
return
}
return
;-------------- ADD to Favorites ------------------------
AddNew95:
if C1=
return
Fileappend,%C1%;%C2%;%C3%;%C4%`r`n,%R3Y%
msgbox,%C1% is added to %R3Ya%
return
;--------------------------------------------------------
;-------------------------------------------------
AddNew96:
Gui, 99:+Disabled
Gui, 96:+Owner
{
C1=
C2=
C3=
C4=
}
Gui,96:Font, S10 CDefault , FixedSys
Gui,96:Add,Text, x1 y5 h20,NAME
Gui,96:Add,Edit, x120 y5 w420 h20 vA41,%C1%
Gui,96:Add,Text, x1 y35 h20,SIZE
Gui,96:Add,Edit, x120 y35 w420 h20 vA42,%C2%
Gui,96:Add,Text, x1 y65 h20,URL1 STREAM
Gui,96:Add,Edit, x120 y65 w420 h20 vA43,%C3%
Gui,96:Add,Text, x1 y95 h20,URL2 HomePage
Gui,96:Add,Edit, x120 y95 w420 h20 vA44,%C4%
Gui,96:Add, Button, x550 y150 w40 h25, OK
Gui,96:Show, x300 y410 w600 h180,AddNew
return
;-----------
96GuiClose:
96GuiEscape:
Gui,96:Destroy
Gui,99:-Disabled
Gui,2:Default
return
;-----------
96ButtonOK:
Gui,96:submit
FileAppend,%A41%;%A42%;%A43%;%A44%`r`n,%R3XX%
Gui,96:Destroy
Gui,99:-Disabled
Gui,99:Default
Gosub,filllistpath2
Gui,2:Default
return
;------------------------------
;---------------------------------------------
Edit97:
if (RN="" OR RN=0)
return
if (RF="" OR RF=0)
return
if C1=
return
Gui, 99:+Disabled
Gui, 97:+Owner
LV_GetText(C1,RN,1) ;
LV_GetText(C2,RN,2) ;
LV_GetText(C3,RN,3) ;
LV_GetText(C4,RN,4) ;
Gui,97:Font, S10 CDefault , FixedSys
Gui,97:Add,Text, x1 y5 h20,NAME
Gui,97:Add,Edit, x120 y5 w420 h20 vA61,%C1%
Gui,97:Add,Text, x1 y35 h20,SIZE
Gui,97:Add,Edit, x120 y35 w420 h20 vA62,%C2%
Gui,97:Add,Text, x1 y65 h20,URL1 STREAM
Gui,97:Add,Edit, x120 y65 w420 h20 vA63,%C3%
Gui,97:Add,Text, x1 y95 h20,URL2 Homepage
Gui,97:Add,Edit, x120 y95 w420 h20 vA64,%C4%
Gui,97:Add, Button, x550 y150 w40 h25, OK
Gui,97:Show, x300 y410 w600 h180,Edit
return
;-----------
97GuiClose:
97GuiEscape:
Gui,97:Destroy
Gui,99:-Disabled
Gui,2:Default
return
;-----------
97ButtonOK:
Gui,97:submit
FileRead,AA,%R3XX%
FileDelete,%R3XX%
StringReplace,BB,AA,%C1%;%C2%;%C3%;%C4%,%A61%;%A62%;%A63%;%A64%
FileAppend,%BB%,%R3XX%
Gui,97:Destroy
Gui,99:-Disabled
Gui,99:Default
Gosub,filllistpath2
Gui,2:Default
return
;---------------------------------------------------
;================ START C11 99 =====================================================
C11:
Gui,99:destroy
Gui,3:destroy
Gui,2:-Disabled
Gui,2:Default
Gui,2:+Owner
if C11=
{
run,%C4%
goto,break1
}
;_YOUTUBE
;http://www.youtube.com/watch?v=AVjlEWHaQO0
;if C1 contains _YOUTUBE
if C11 contains www.youtube.com/watch?v=
{
YOUTUBETEST=1
URL1=%C11%
GuiControl,2:,URL21,%URL1%
gosub,download1
AX1=%URL1%
stringreplace,AX1,AX1,/watch?v=,/v/,all
X2 :=(200)
Y2 :=(100)
W2 :=(WA*60)/100 ;width
H2 :=(HA*50)/100 ;height
DLLCall("lbbrowse3\MoveBrowser","Int",X2,"Int",Y2,"Int",W2,"Int",H2)
DllCall("lbbrowse3\Navigate", "str",AX1)
goto,break1
}
/*
if C11 contains www.youtube.com/watch?v=
{
;---- youtube example ----------------------------
;URL1=http://www.youtube.com/watch?v=82ZuxWbO8QY
URL1=%C11%
gosub,download1
AX1=%URL1%
stringreplace,AX1,AX1,/watch?v=,/v/,all
X2 :=(200)
Y2 :=(100)
W2 :=(WA*60)/100 ;width
H2 :=(HA*50)/100 ;height
DLLCall("lbbrowse3\MoveBrowser","Int",X2,"Int",Y2,"Int",W2,"Int",H2)
DllCall("lbbrowse3\Navigate", "str",AX1)
goto,break1
}
*/
if C11 contains netradio
{
;gui,99:destroy
;Gui,2:Default
;----- listen to Danmarks Radio evergreen ---------------------------
;AX1=http://netradio.dr.dk/content.asp?station=29&#
AX1=%C11%
X2 :=(10)
Y2 :=(10)
W2 :=(680)
H2 :=(290)
DLLCall("lbbrowse3\MoveBrowser","Int",X2,"Int",Y2,"Int",W2,"Int",H2)
DllCall("lbbrowse3\Navigate", "str",AX1)
goto,break1
}
SplitPath,C11,name, dir, ext, name_no_ext, drive
stringmid,C11a,C11,2,1
stringmid,CCP1,C11,1,7
stringmid,CCP2,C11,1,4
stringsplit,SX,C2,`*
GuiControlGet,CB1,2:
URL1=%C11%
name1=%C1%
W3 :=(WA*SX1)/100 ;width
H3 :=(HA*SX2)/100 ;height
if CB1=1
{
goto,datecheck
;run,"%A_ProgramFiles%\VideoLAN\VLC\vlc.exe" "%URL1%"
;return
}
else
{
goto,datecheck
}
break1:
YOUTUBETEST=0
return
;====================================================================================
;=============================== DATECHECK REPLACE YEAR4... ===================================
;----------------------------
DATECHECK: ;10v10 mo-fr after 22:00
;mms://82.102.11.10/videostpa/telejornal2008-06-09.wmv
;BX6=rtsp://62.2.180.200:554/sfdrs/vod/10vor10/YEAR4/MONTH2/450k/10vor10_YEAR4MONTH2DAY2.rm
BX6=%URL1%
gosub,datecalc
if FFF=bigger
{
msgbox,You selected date newer then today
goto,break1
}
if wday1=1
{
WD11=sonntag
WD21=sunday
}
if wday1=2
{
WD11=montag
WD21=monday
}
if wday1=3
{
WD11=dienstag
WD21=tuesday
}
if wday1=4
{
WD11=mittwoch
WD21=wednesday
}
if wday1=5
{
WD11=donnerstag
WD21=thursday
}
if wday1=6
{
WD11=freitag
WD21=friday
}
if wday1=7
{
WD11=samstag
WD21=saturday
}
/*
if (wday1=1 or wday1=7) ;never on sunday or saturday
{
WD=weekend
msgbox,You selected %WD%`r`nTV not available on saturday/sunday`r`nSelect a weekday
goto,break1
}
if FFF=equal ;if today
{
if H2<22
{
msgbox,10v10 after 22:00 (GMT +1 )
goto,break1
}
}
*/
AASC1=0
AASC=YEAR4,YEAR2,MONTH2,DAY2,WEEKDAYD,WEEKDAYE
if BX6 contains %AASC%
AASC1=1
stringreplace,BX6,BX6,YEAR4 ,%Y4%,all
stringreplace,BX6,BX6,YEAR2 ,%Y2%,all
stringreplace,BX6,BX6,MONTH2 ,%M2%,all
stringreplace,BX6,BX6,DAY2 ,%D2%,all
stringreplace,BX6,BX6,WEEKDAYD ,%WD11%,all
stringreplace,BX6,BX6,WEEKDAYE ,%WD21%,all
if AASC1=1
{
msgbox, 262147,DATE CALCULATION,you selected for`n %URL1%`n %BX6%`n WD11=%WD11% WD21=%WD21% WDAY1=%WDAY1%`nWant you start this TV channel ?
ifmsgbox,cancel
return
ifmsgbox,NO
return
}
URL1=%BX6%
GuiControlGet,CB1,2:
if CB1=1
run,"%A_ProgramFiles%\VideoLAN\VLC\vlc.exe" "%URL1%"
else
gosub,skip1
return
;-----------------------------------------------------
DATECALC:
Gui,2:submit,nohide
FFF=
BD1=%Mydate2%
AN1=%A_NOW%
FormatTime,wDAY1,%BD1%,wDay
stringmid,BD2,BD1,1,8 ;selected
stringmid,AN2,AN1,1,8 ;today
stringmid,H2,AN1,9,2
stringmid,Y4,BD2,1,4
stringmid,Y2,BD2,3,2
stringmid,M2,BD2,5,2
stringmid,D2,BD2,7,2
BD2:=BD2
AN2:=AN2
if (BD2>AN2)
FFF=bigger
if (BD2<AN2)
FFF=smaller
if (BD2=AN2)
FFF=equal
return
;-------------------------------------------------
;============================== END DATECHECK ===========================
Close99:
99Guiclose:
gui,99:destroy
Gui,2:-Disabled
return
;====================================== END 2nd =================================================
;============================== YOUTUBE ==================================
;------------------------------ GETTITLE and 2nd-URL ----------------------
DOWNLOAD1:
Gui,99:submit,nohide
Gui,99:destroy
Guicontrolget,URL21,2:
if URL21 contains http://www.youtube.com/watch?v=
URL1=%URL21%
;msgbox,URL1=%URL1%
;return
if URL1=
return
if URL1 not contains http://www.youtube.com/watch?v=
return
URL2=
TITLE=
new2=
F1 =%A_scriptdir%\YTB1.txt
UrlDownloadToFile,%URL1%,%F1%
Fileread,AA,%F1%
stringreplace,AA,AA,%TEN%,%CF%,all
filedelete,%F1%
Fileappend,%AA%`r`n,%F1%
;var fullscreenUrl = '/watch_fullscreen?fs=1&vq=None&video_id=AVjlEWHaQO0&l=301&sk=0U5dsOnMX-hSUqtuX0TNflVN-O6wGvd6C&fmt_map=6%2F720000%2F7%2F0%2F0&t=OEgsToPDskLVSAExE7V7PL8W1Lm8F8G-&hl=en&plid=AARQCI6JdYDNn7g4AAACIAAQAAA&title=EKVAT-Gala RTP Dança Comigo';
CONTEN=var fullscreenUrl =
;VANAF1=watch_fullscreen?fs=1&e=h&video_id=
VANAF1=&video_id=
;UNTIL1=&hl=
UNTIL1=&title=
VANAF2=&title=
UNTIL2=';
V=0
Loop,Read,%F1%
{
LR=%A_LoopReadLine%
ifinstring,LR,%CONTEN%
{
StringGetPos,VAR1,LR,%VANAF1%
StringGetPos,VAR2,LR,%UNTIL1%
VAR1:=(VAR1+11)
VAR2:=(VAR2+1)
VAR3:=(VAR2-VAR1)
VAR4=http://www.youtube.com/get_video?video_id=
stringmid,ADRESS,LR,VAR1,VAR3
URL2=%VAR4%%ADRESS% ;<<<< new adress URL2
;msgbox,url2=%URL2%
;return
StringGetPos,VAR11,LR,%VANAF2%
StringGetPos,VAR12,LR,%UNTIL2%
VAR11:=(VAR11+8)
VAR12:=(VAR12+1)
VAR13:=(VAR12-VAR11)
stringmid,TITLE,LR,VAR11,VAR13
stringreplace,TITLE,TITLE,quot,%S%,all
stringreplace,TITLE,TITLE,",%S%,all
stringreplace,TITLE,TITLE,&,%S%,all
;stringreplace,TITLE,TITLE,-,%S%,all
stringreplace,TITLE,TITLE,ç,c,all
stringreplace,TITLE,TITLE,é,e,all
stringreplace,TITLE,TITLE,è,e,all
stringreplace,TITLE,TITLE,ñ,n,all
stringreplace,TITLE,TITLE,ã,a,all
stringreplace,TITLE,TITLE,ç,c,all ;ç
stringreplace,TITLE,TITLE,ã,a,all ;ã
stringreplace,TITLE,TITLE,ö,oe,all ;ö
stringreplace,TITLE,TITLE,é,e,all ;é
stringreplace,TITLE,TITLE,Ã,a,all ;à
;F2=%TITLE%.flv ;<<<< found name
break
}
}
; --- in name should be removed all special characters
gosub,removechr
;msgbox,new2=%new2% F2=%F2%
GuiControl,2:Text,AL1,%new2%
if YOUTUBETEST=1
return
;-----------------------------------------------------------------------------------
;-------------------------- DOWNLOAD YOUTUBE VIDEO ---------------------------------
YTBDNL:
if URL2=
{
msgbox, YOUTUBE URL to download is missing
return
}
;Splashimage,,b w600 h30 CWlime m9 b fs10 zh0,DOWNLOAD >>> %F2%
SplashImage,Download,CWLIME x%XB1% y%YB1% w700 m2,DOWNLOAD >>> %F2%
URLDownloadToFile,%URL2%,%R3R%\%F2%
Splashimage, off
W3 :=(WA*50)/100 ;width
H3 :=(HA*45)/100 ;height
URL1=file:///%R3R%\%F2%
stringsplit,GX,F2,`.
name1=%GX1%
goto,skip1
return
;----------------------------------------------------------------------------------
;---------- GOSUB remove special characters from video name ----------------------
REMOVECHR:
autotrim,off
new2=
Loop,Parse,TITLE
{
A:=(Asc(A_LoopField))
B:=chr(a)
if (B="_" OR B=" " OR B="-") ;allow _space autotrim,off
Goto,SKIP8
if ((a<48 or a>57) AND A<65 OR A>90 AND A<97 OR A>122)
continue
SKIP8:
new2=%new2%%b%
}
stringmid,ANOW1,A_NOW,1,12 ;not readable chinese...
if new2=
{
new3=_%ANOW1%.flv
F2=%new3%
return
}
new3=%new2%.flv
F2=%new3%
ifexist,%R3R%\%F2%
F2=_%ANOW1%_%F2%
return
;======================== END YOUTUBE ============================================
UpdateBeeLineTV:
;================ URLDOWNLOAD SEARCH TV LINKS from http://beelinetv.com/ =======
;-----------------------------------------------------------------------------------
/*
DATE............2006-07-30 garry
MODIFIED........2008-06-17
NAME............urldownload_extract.ahk
USAGE...........extract mms://
................http://beelinetv.com/
*/
;------------------------------------------------------------------------------------
F21 =%A_SCRIPTDIR%\extract01.txt
F22 =%A_SCRIPTDIR%\extract02.txt
Filedelete,%F21%
Filedelete,%F22%
Filedelete,%R3Z%
URL21=http://beelinetv.com/ ;extract from this url
urldownloadtofile,%URL21%,%F21%
;-------------------------------------------------
VANAF1=<a class="lis" target="_blank" href="
UNTIL1=">Media<
;<a class="bit" href="mms://stream.jrtv.jo/jrtv">288</a>
;<a class="lis" target="_blank" href="http://www.jrtv.gov.jo/jrtv/index.php">Jordan TV</a>, Jordan
;<a class="lir" href="mms://stream.jrtv.jo/jrtv">Media</a><br>
stringlen,L1,vanaf1
L1:=L1+1
Loop,Read,%F21%
{
LR=%A_LoopReadLine%
{
StringGetPos,VAR1,LR,%VANAF1%
StringGetPos,VAR2,LR,%UNTIL1%
VAR1:=(VAR1+L1)
VAR2:=(VAR2+1)
VAR3:=(VAR2-VAR1)
stringmid,ADRESS,LR,VAR1,VAR3
if adress=
continue
K++
Fileappend,%ADRESS%%UNTIL1%`r`n,%F22%
}
}
;http://www.trt.net.tr/">TRT 1</a>, Turkey <a class="lir" href="mms://212.175.166.3/TV1">Media<
SIZE2=50*42
Loop,Read,%F22%
{
LR=%A_LoopReadLine%
{
stringsplit,B,LR,`"
stringsplit,G,B2,`>
stringsplit,H,B2,`<
stringreplace,G2,G2,</a,%nothing%,all
stringreplace,H2,H2,/a>`,,%nothing%,all
GX=%H2%_%G2%
stringreplace,B5,B5,&`;,&,all
Fileappend,%GX%;%SIZE2%;%B5%;%B1%`r`n,%R3Z%
}
}
msgbox,TV_Links are updated from BeeLineTV >>`n%R3Za%
R3XX=%R3Z%
goto,2nd
return
;==========================================================================================================
;============== create first a file to try ===============================================================
CREATEST:
ifnotexist,%R3X%
{
Fileappend,_P_PORTUGAL;80*75;http://minhatv.net/TV+ONLINE+AO+VIVO+NA+INTERNET=TV+NA+WEB/TV/../../dados/rtpi.asx;http://www.rtp.pt/rtpi/`r`n,%R3Xa%
Fileappend,_NL_NEDERLAND;70*60;http://streams.planet.nl/cgi-bin/reflector.cgi?stream=streamgate72;http://www.nos.nl/nosjournaal/archief/`r`n,%R3Xa%
;Fileappend,_SF_YLE Uutiset;80*75;http://akastreaming.yle.fi/vp/fiyle/no_geo/ondemand.asx?gjmf=areena/1/17/04/1170483_793317;http://www.yle.fi/news/`r`n,%R3Xa%
Fileappend,_H_DUNA;80*75;http://80.249.168.221/dunatv;http://www.dunatv.hu`r`n,%R3Xa%
Fileappend,_DK_DANMARK;90*70;http://www.dr.dk/forside_ny/global/spot/images/update.asx?qid=288417&odp=true&bitrate=high&bitrate=high;`r`n,%R3Xa%
Fileappend,_SR_SRILANKA Music;80*75;mms://220.247.224.106/swarnavahini;http://www.swarnavahini.lk/`r`n,%R3Xa%
Fileappend,_H_HIRTV;70*65;mms://streamer.hirtv.net/hirtv.asf;http://www.hirtv.hu/`r`n,%R3Xa%
Fileappend,_N_NORGE NRK2;80*75;http://www.fbhost-tv.com/v2/video/nor-nrknyheter.asx;http://www.nrk.no`r`n,%R3Xa%
Fileappend,_LU_Luxembourg;80*70;mms://streaming.newmedia.lu/telehighres;`r`n,%R3Xa%
Fileappend,_SK_BRATISLAVA;40*35;mms://81.89.49.210/tvbalive;`r`n,%R3Xa%
Fileappend,_BG_BULGARIA;70*60;mms://212.116.151.34/7dni;`r`n,%R3Xa%
Fileappend,_S_SVERIGE_K10;70*60;mms://wm-live.crossnet.net/kanal10;`r`n,%R3Xa%
Fileappend,_NIPPON_FNN;70*60;http://www.fnn-news.com/en/news/playlist/video/wmv/news_300_en.asx;`r`n,%R3Xa%
Fileappend,_USA_Marti Cuba;60*55;http://www.martinoticias.com/tvmarti_live_video.asx;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA01;70*65;http://cgi.omroep.nl/cgi-bin/streams?/tv/bnn/tequila/bb.20061117.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA02;70*65;http://cgi.omroep.nl/cgi-bin/streams?/tv/bnn/tequila/bb.20061124.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA03;70*65;http://cgi.omroep.nl/cgi-bin/streams?/tv/bnn/tequila/bb.20061201.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA04;70*65;http://cgi.omroep.nl/cgi-bin/streams?/tv/bnn/tequila/bb.20061208.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA05;70*65;http://cgi.omroep.nl/cgi-bin/streams?/tv/bnn/tequila/bb.20061215.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA06;70*65;http://cgi.omroep.nl/cgi-bin/streams?/tv/bnn/tequila/bb.20061222.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA07;70*65;http://cgi.omroep.nl/cgi-bin/streams?/tv/bnn/tequila/bb.20070105.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA11;70*65;http://cgi.omroep.nl/cgi-bin/streams?/id/BNN/serie/POW_00133944/POW_00133945/bb.20070921.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA12;70*65;http://cgi.omroep.nl/cgi-bin/streams?/id/BNN/serie/POW_00133944/POW_00133946/bb.20070928.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA13;70*65;http://cgi.omroep.nl/cgi-bin/streams?/id/BNN/serie/POW_00133944/POW_00133947/bb.20071005.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA14;70*65;http://cgi.omroep.nl/cgi-bin/streams?/id/BNN/serie/POW_00133944/POW_00133948/bb.20071012.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA15;70*65;http://cgi.omroep.nl/cgi-bin/streams?/id/BNN/serie/POW_00133944/POW_00133949/bb.20071019.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA16;70*65;http://cgi.omroep.nl/cgi-bin/streams?/id/BNN/serie/POW_00133944/POW_00133950/bb.20071026.asf;`r`n,%R3Xa%
Fileappend,_NL_TEQUILA17;70*65;http://cgi.omroep.nl/cgi-bin/streams?/id/BNN/serie/POW_00133944/POW_00133951/bb.20071102.asf;`r`n,%R3Xa%
Fileappend,_NL_SEIZ;80*75;http://cgi.omroep.nl/cgi-bin/streams?/tv/bnn/neukendoejezo/bb.20030224.asf;`r`n,%R3Xa%
Fileappend,_P_Ciencia;70*60;mms://video-wm.tvciencia.pt/video/tvcnews_256.wmv;http://www.tvciencia.pt`r`n,%R3Xa%
Fileappend,_A_STEIERMARK;60*60;http://vid01.wkstmk.at:8080/ramgen/orf2/st/stYEAR2MONTH2DAY2l.rm;http://www.steiermark1.at/default.asp?ssid=51&page=main/`r`n,%R3Xa%
Fileappend,_KOREA;50*45;mms://61.80.90.52/vod;`r`n,%R3Xa%
Fileappend,_A_AUSTRIA;;;http://tv.orf.at/ondemand/`r`n,%R3Xa%
Fileappend,_A_BURGENLAND;50*40;mms://stream2.orf.at/radiobgl/bheute_WEEKDAYD.wmv;http://your.orf.at/bheute/player.php?id=bgl`r`n,%R3Xa%
Fileappend,_VIETNAM VTC1;60*50;mms://phim2.bonghongxanh.vn:556/VTC1_01;`r`n,%R3Xa%
Fileappend,_NL_HILVERSUM;80*70;mms://livemedia.omroep.nl/nos_hilversumbest-bb;`r`n,%R3Xa%
Fileappend,_C_CESKA;70*60;mms://stream3a.visual.cz/CT24-High;`r`n,%R3Xa%
Fileappend,_RU_VESTI24;70*60;mms://video.rfn.ru/vesti_24;`r`n,%R3Xa%
Fileappend,_NL_UITZENDINGGEMIST;;;http://www.uitzendinggemist.nl/index.php`r`n,%R3Xa%
Fileappend,_NL_TEQUILA;;;http://www.bnn.nl/page/tequila`r`n,%R3Xa%
Fileappend,_CH_SWITZERLAND;;;http://www.sf.tv/var/videos.php`r`n,%R3Xa%
Fileappend,_D_ARD;;;http://www.daserste.de/plusminus/archiv.asp`r`n,%R3Xa%
Fileappend,_D_ZDF;;;http://frontal21.zdf.de/ZDFde/inhalt/1/0,1872,1001633,00.html?dr=1`r`n,%R3Xa%
Fileappend,_D_NDR;70*60;mms://213.254.239.66/ndrfernsehen$ndr_hh;`r`n,%R3Xa%
Fileappend,_DK_RADIO;;http://netradio.dr.dk/content.asp?station=29&#;`r`n,%R3Xa%
Fileappend,_YOUTUBE1;70*60;http://www.youtube.com/watch?v=82ZuxWbO8QY;`r`n,%R3Xa%
}
;======================================================================================================================
ifnotexist,%R3W%
{
Fileappend,VEOH;;;http://www.veoh.com/search.html?search=`%22jim+reeves`%22&searchId=6317178689186663424`r`n,%R3Wa%
Fileappend,TV-OCTOSHAPE;;;http://www.octoshape.com/play/play.asp?lang=de`r`n,%R3Wa%
Fileappend,YOUTUBE;;;http://www.youtube.com`r`n,%R3Wa%
Fileappend,TV-MEDIA_ARCHIVE;;;http://online-media-archive.net/tv/browse.php?`r`n,%R3Wa%
Fileappend,WWI-TV;;;http://wwitv.com/portal.htm`r`n,%R3Wa%
Fileappend,TV-CHANNELSFREE;;;http://www.tvchannelsfree.com/`r`n,%R3Wa%
Fileappend,TV-CHANNELCHOOSER;;;http://www.channelchooser.com/`r`n,%R3Wa%
Fileappend,BeeLine-TV;;;http://beelinetv.com/`r`n,%R3Wa%
Fileappend,TV-InnerLive;;;http://www.inner-live.com/`r`n,%R3Wa%
Fileappend,TV-Global-ITV;;;http://www.global-itv.com/`r`n,%R3Wa%
}
;======================================================================================================================
ifnotexist,%R3Y%
{
Fileappend,_DK_DANMARK;80*65;http://www.dr.dk/forside_ny/global/spot/images/update.asx?qid=288417&odp=true&bitrate=high&bitrate=high;`r`n,%R3Ya%
Fileappend,Belarus _Belarus TV;50*42;mms://bcast.tvr.by/video;http://www.tvr.by/eng/`r`n,%R3Ya%
Fileappend,_A_AUSTRIA;;;http://tv.orf.at/ondemand/`r`n,%R3Ya%
Fileappend,_A_STEIERMARK;60*60;http://vid01.wkstmk.at:8080/ramgen/orf2/st/stYEAR2MONTH2DAY2l.rm;http://www.steiermark1.at/default.asp?ssid=51&page=main/`r`n,%R3Ya%
Fileappend,_A_BURGENLAND;50*40;mms://stream2.orf.at/radiobgl/bheute_WEEKDAYD.wmv;http://your.orf.at/bheute/player.php?id=bgl`r`n,%R3Ya%
Fileappend,_H_HIRTV;70*65;mms://streamer.hirtv.net/hirtv.asf;http://www.hirtv.hu/`r`n,%R3Ya%
Fileappend,_FR_FAROER RADIO;;mms://media.internet.fo/uf;`r`n,%R3Ya%
}
;======================================================================================================================
ifnotexist,%R3V%
{
Fileappend,Vauraddi Xetkamti;70*60;http://www.youtube.com/watch?v=AVjlEWHaQO0;`r`n,%R3Va%
Fileappend,Flickan i Havanna;70*60;http://www.youtube.com/watch?v=82ZuxWbO8QY;`r`n,%R3Va%
}
return
;======================================================================================================================
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
