garry
Anmeldedatum: 25.10.2005
Beiträge: 422
Wohnort: switzerland
|
 Verfasst am: Fr März 21, 2008 4:16 pm Titel: Film im Internet mit schwarzem Hintergrund |
 |
|
Falls fullscreen nicht möglich oder Bildqualität nicht gut
kann man Video mit schwarzem Hintergrund schauen (Keine Werbung / augenschonend)
-1 program starten
-2 URL starten, video auswählen
-3 Button CheckXY drucken, Video-Kante links oben/rechts unten je einmal anklicken (Diagonale)
| Code: | MODIFIED = 20080320
NAME1 = BLACK
;=========== BLACK BACKGROUND ==================================
/*
--------- watch video with black background
How to use=
-----------
start URL, -1 click button CheckXY
-2 XY leftclick left above
-3 XY leftclick right down
*/
;===============================================================
;http://www.autohotkey.net/~garry/teresateng.jpg
coordmode,mouse
setworkingdir, %a_scriptdir%
autotrim,off
Settitlematchmode, 2
DetectHiddenText,on
DetectHiddenWindows, on
RSSINI=%A_scriptdir%\BLACKINI.txt
; resolution 1280*1024 17''
WA=%A_screenwidth%
HA=%A_screenheight%
SW1 :=(WA*100)/100 ;width show
SW2 :=(WA*100)/100 ;width region
SH1 :=(HA*97 )/100 ;height
LY1 :=(HA*94 )/100 ;button y - position
Gui,4:-border +AlwaysOnTop
;Gui,4:Color,Teal ;teal
Gui,4:Color,Black ;black
Gui,4:add,button,x10 y%LY1% h25 w100 gStart,CheckXY
Gui,4:add,button,x120 y%LY1% h25 w100 gBig ,Default
Gui,4:add,button,x230 y%LY1% h25 w100 gLast ,LAST
Gui,4:add,button,x340 y%LY1% h25 w100 gQUIT ,QUIT
Gui,4:add,button,x10 y10 h25 w100 gURL1 ,YOUTUBE
Gui,4:add,button,x120 y10 h25 w100 gURL2 ,MEDIA
Gui,4:add,button,x230 y10 h25 w100 gURL3 ,STAGE
Gui,4:add,button,x340 y10 h25 w100 gURL4 ,SILVER
Gui,4:add,button,x450 y10 h25 w100 gURL5 ,ARCHIVE
Gui,4:add,button,x560 y10 h25 w100 gURL6 ,HEISE
Gui,4:add,button,x670 y10 h25 w100 gURL7 ,TV-ARD
Gui,4:add,button,x780 y10 h25 w100 gURL8 ,TV-ZDF
Gui,4:add,button,x890 y10 h25 w100 gURL8 ,VEOH
Menu, Tray, Add, OPEN, GuiShow
Menu, Tray, Default,OPEN
Menu, Tray, Add, Close,CLOSE
Menu, Tray, Add, About, About
Menu, Tray, Add
Menu, Tray, Add, Exit, Exit
Menu, Tray, NoStandard
gosub,big
Gui,4:show,x0 y0 h%SH1% w%SW1%,%NAME1%
return
;------------------------------------------------------
URL1:
;run,http:www.youtube.com
run,http://www.youtube.com/results?search_query=jim+reeves&search_type=
return
URL2:
run,http://multimediastream.cc/
return
URL3:
run,http://www.stage6.com/Cult-Movie-Theater/videos/group:13601
return
URL4:
run,http://quicksilverscreen.com/
return
URL5:
run,http://www.archive.org/details/the-last-man-on-earth
return
URL6:
run,http://www.heise.de/ct/tv/archiv/
return
URL7:
run,http://www.daserste.de/plusminus/archiv.asp
return
URL8:
AS=http://frontal21.zdf.de/ZDFde/inhalt/1/0`,1872`,1001633_idDispatch`:7372960`,00.html
run,%AS%
return
URL9:
run,http://www.veoh.com/browse/videos.html?order=mp&category=Comedy&range=t
return
;--------------------------------------------------------
big:
WinSet, Region,, %NAME1%
X1 :=(WA*.3 )/100
Y1 :=(HA*5 )/100
B :=(WA*99.7 )/100
H :=(HA*88 )/100
X2 :=(X1+B) ;2. x-position
Y2 :=(Y1+H) ;2. y-position
WinSet,Region, 0-0 %SW2%-0 %SW2%-%SH1% 0-%SH1% 0-0 %X1%-%Y1% %X2%-%Y1% %X2%-%Y2% %X1%-%Y2% %X1%-%Y1%,%NAME1%
return
;--------- read last position and size ------------------
LAST:
IniRead, X1 , %rssini% , Position1 , X1
IniRead, X2 , %rssini% , Position1 , X2
IniRead, Y1 , %rssini% , Position1 , Y1
IniRead, Y2 , %rssini% , Position1 , Y2
HL:=(Y2-Y1)
BL:=(X2-X1)
WinSet, Region,, %NAME1%
WinSet,Region, 0-0 %SW2%-0 %SW2%-%SH1% 0-%SH1% 0-0 %X1%-%Y1% %X2%-%Y1% %X2%-%Y2% %X1%-%Y2% %X1%-%Y1%,%NAME1%
return
;---------------------------------------------------------
quit:
exitapp
;-------------
;----------- define XY1/2 --------------------------------
start:
V=0
settimer,aas,500
return
;-----------------
AAS:
settimer,aas,20
MouseGetPos,Xa,Ya
ToolTip X=%Xa% Y=%Ya%
GetKeyState,state, LButton
if state=D
{
V++
M:=mod(V,2)
if M=1
{
MouseGetPos,X1,Y1
KeyWait, LButton, U
ToolTip Position1 is set X=%X1% Y=%Y1%
sleep,800
return
}
else
{
settimer,aas,off
MouseGetPos,X2,Y2
KeyWait, LButton, U
tooltip
WinSet, Region,, %NAME1%
WinSet,Region, 0-0 %SW2%-0 %SW2%-%SH1% 0-%SH1% 0-0 %X1%-%Y1% %X2%-%Y1% %X2%-%Y2% %X1%-%Y2% %X1%-%Y1%,%NAME1%
IniWrite, %X1% , %rssini% ,Position1 , X1
IniWrite, %X2% , %rssini% ,Position1 , X2
IniWrite, %Y1% , %rssini% ,Position1 , Y1
IniWrite, %Y2% , %rssini% ,Position1 , Y2
HL:=(Y2-Y1)
BL:=(X2-X1)
return
}
}
return
;---------------------------------------
4GuiContextMenu: ;when rightclick can move the hole
{
Gui,4:submit,nohide
HLP = %a_GuiControl%
if HLP=
{
MouseGetPos,x1,y1
X2 :=(X1+BL) ;2. x-position
Y2 :=(Y1+HL) ;2. y-position
WinSet, Region,, %NAME1%
WinSet,Region, 0-0 %SW2%-0 %SW2%-%SH1% 0-%SH1% 0-0 %X1%-%Y1% %X2%-%Y1% %X2%-%Y2% %X1%-%Y2% %X1%-%Y1% ,%NAME1%
return
}
return
}
return
;------------------------------------
;------------- menu tray ------------
About:
ee=
(
start URL
-1 click button CheckXY
-2 XY leftclick left above
-3 XY leftclick right down
)
MsgBox, 64,Info,%modified%`n%ee%
Return
;---------
GuiShow:
reload
Return
;-------------------------------------
close:
4Guiclose:
esc::
Gui,4:show,minimize
Return
;------------------
exit:
exitapp
;===============================================================
|
oder Youtube embed und download
http://www.autohotkey.com/forum/topic14882.html
 |
|
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
