 |
AutoHotkey Community
Wir helfen uns gegenseitig aus der Patsche
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Outlaw
Anmeldedatum: 14.10.2006
Beiträge: 463
|
 Verfasst am: Fr Jun 22, 2007 2:20 pm Titel: |
 |
|
haste das auch direkt als download mit dem dlsize.ahk? check bei dir oben nicht durch mit deinen 10000 spoilern o.O wäre echt nett ,>
_________________
MfG,
Outlaw |
|
| Nach oben |
|
 |
Obi-Wahn
Anmeldedatum: 19.04.2006
Beiträge: 729
Wohnort: Wien
|
|
| Nach oben |
|
|
flashkid
Anmeldedatum: 27.01.2007
Beiträge: 332
|
| Verfasst am: Sa Dez 01, 2007 10:52 pm Titel: |
|
|
sry aber kanns sein, dass der code nicht mehr funktioniert 
bei mir wird immer der ie gestartet und ein 404 Fehler wird angezeigt  |
|
| Nach oben |
|
|
msgbox
Anmeldedatum: 05.05.2007
Beiträge: 778
Wohnort: C:\
|
| Verfasst am: Sa Dez 01, 2007 11:01 pm Titel: |
|
|
@Flashkid: Für das downlaoden von Youtube Video kannst Du auch andere Scripte verwenden. Hier z.B  http://www.autohotkey.com/forum/topic14882.html ...
_________________
msgbox, 1577008, Ich bin msgbox, Teste mich mal |
|
| Nach oben |
|
|
garry
Anmeldedatum: 25.10.2005
Beiträge: 437
Wohnort: switzerland
|
| Verfasst am: So Dez 02, 2007 10:03 am Titel: |
|
|
aarghhh ...
muss aufräumen
in youtube hat es Aenderungen gegegeben , beim download des ersten bekannten links konnte ich den zweiten link nicht finden
hier Idee cache kopieren
----------------------------
Beispiel Firefox
während der Film angeschaut wird ist es bei mir schon gespeichert (warten bis grauer scrollbar auf 100%)
mit ein Knopfdruck wird es umbenannt (nur mp3 und flv) und ins neue Ordner kopiert
http://www.autohotkey.com/forum/topic25694.html
----------------------------
hier ein Versuch mit Indexdat (MS-IE)
es wird der downloadlink sichtbar
http://www.autohotkey.com/forum/topic25556.html |
|
| Nach oben |
|
|
Obi-Wahn
Anmeldedatum: 19.04.2006
Beiträge: 729
Wohnort: Wien
|
| Verfasst am: So Dez 02, 2007 2:35 pm Titel: |
|
|
@flashkid: durchaus möglich das es nicht mehr funktioniert (habs jetzt nicht getestet), aber es bereits einfachere und v.a. breiter gefächerte downloader gibt.
Ich für meinen teil verwende VideoGET, das gabs mal als Giveawayoftheday gratis.
_________________
Garten ist eine Kunstnatur
Das Leben ist nicht fair. Es ist nur fairer als der Tod, das ist alles.
Obi-Wahns Codeschnipsel @ securityvision.ch |
|
| Nach oben |
|
|
flashkid
Anmeldedatum: 27.01.2007
Beiträge: 332
|
| Verfasst am: So Dez 02, 2007 2:52 pm Titel: |
|
|
So, habs jetzt mal ein bisschen umgeschrieben:
| Code: | SetWorkingDir, %A_ScriptDir%
Gui, Add, Tab, x2 y2 w395 h355 vTabs, Liste|Einstellungen|Log
Gui, Tab, Einstellungen
Gui, Add, Button, x180 y2 w90 h20 Default, Download
Gui, Add, Button, x280 y2 w90 h20 gMinimize, minimize to tray
Gui, Add, Text, x10 y65 w110 h30 , Youtube Url
Gui, Add, Text, x10 y125 w110 h30 , Titel
Gui, Add, Text, x10 y185 w110 h30 , Download-Pfad
Gui, Add, Edit, x122 y62 w210 h20 -WantReturn vLink ,
Gui, Add, Edit, x122 y125 w210 h20 -WantReturn vNameFlv,
Gui, Add, Edit, x122 y182 w210 h20 -WantReturn vPfad, %A_ScriptDir%
Gui, Add, Button, x332 y182 w20 h20 , ...
Gui, Add, Button, x125 y250 w130 h30, Speichern
Gui, Tab, Liste
Gui, Add, Button, x180 y2 w90 h20, Download
Gui, Add, Button, x280 y2 w90 h20 gMinimize, minimize to tray
Gui, Add, ListView, x22 y42 w336 h150 NoSort Grid, Name|Url|Download-Pfad
Gui, Add, Button, x20 y220 w100 h30 , Löschen
Gui, Add, Button, x140 y220 w100 h30 , Hinzufügen
Gui, Add, Button, x260 y220 w100 h30 , Ändern
Gui, Add, Text, x45 y292 w280 h30 +0x200 +BackgroundTrans +Center vtext, Fortschritt
Gui, Add, Text, x20 y300 w15 h30 , 0`%
Gui, Add, Text, x330 y300 w30 h30 , 100`%
Gui, Add, Text, x0 y275 w380 h15 +Center vSpeedRest, Geschwindigkeit: %Speed% KB/s
Gui, Add, Progress, x45 y292 w280 h30 cblue vProzent,
LV_ModifyCol(1,110)
LV_ModifyCol(2,110)
LV_ModifyCol(3,110)
Gui, Tab, Log
Gui, Add, Button, x180 y2 w90 h20, Download
Gui, Add, Button, x280 y2 w90 h20 gMinimize, minimize to tray
Gui, Add, Edit, x10 y40 w360 h250 cgreen vLog +HScroll,
Menu, Tray, Nostandard
Menu, Tray, Add, Show
menu, Tray, add
Menu, Tray, Add, Exit
Menu, Tray, Default, Show
GuiControl,, text, Fortschritt
GuiControl,, prozent, 0
Gui, Show, Center h330 w380, Youtube Downloader
Return
Show:
Gui, Show, Center
WinActivate, Youtube Downloader
Return
GuiEscape:
Minimize:
Gui, Hide
Return
Exit:
GuiClose:
Process, Close, wget.exe
ExitApp
ButtonDownload:
Gui, Submit, NoHide
Loop
{
LV_GetText(Name, 1, 1)
LV_GetText(Link, 1, 2)
LV_GetText(Pfad, 1, 3)
If (Link) = "" OR (Pfad) = "" OR (Name) = ""
Break
DownloadVideoURL := YTDownloadURL(Link)
SetTimer, statuslesen, 100
SetTimer, statuslesen2, 50
RunWait, wget.exe wget -b -o dlstatus.txt -O "%Pfad%\%Name%.flv" %DownloadVideoUrl% , , hide
Loop
{
Process, Exist, wget.exe
If ErrorLevel = 0
Break
}
SetTimer, statuslesen, off
SetTimer, statuslesen2, off
Log = %Log%"%Name%" wurde heruntergeladen nach: %Pfad%`n
GuiControl,, Log, %Log%
GuiControl,, text, Fortschritt
GuiControl,, prozent, 0
LV_Delete(1)
}
Msgbox, Download abgeschlossen! Siehe Log.
Return
ButtonHinzufügen:
GuiControl, Choose, Tabs, 2
GuiControl, +default, Speichern
Return
ButtonSpeichern:
Gui, Submit, NoHide
If (Link) = "" OR (Pfad) = "" OR (NameFlv) = ""
{
Msgbox, Nicht alle Felder ausgefüllt!
Return
}
GuiControl,, Link,
GuiControl,, NameFlv,
LV_Add("", NameFlv, Link, Pfad)
GuiControl, Choose, Tabs, 1
GuiControl, +default, Download
Return
ButtonLöschen:
RowNumber = 0 ; This causes the first loop iteration to start the search at the top of the list.
Loop
{
RowNumber := LV_GetNext(RowNumber) ; Resume the search at the row after that found by the previous iteration.
if not RowNumber ; The above returned zero, so there are no more selected rows.
break
LV_Delete(RowNumber)
RowNumber--
}
Return
ButtonÄndern:
RowNumber = 0 ; This causes the first loop iteration to start the search at the top of the list.
RowNumber := LV_GetNext(RowNumber) ; Resume the search at the row after that found by the previous iteration.
if not RowNumber ; The above returned zero, so there are no more selected rows.
{
MsgBox, Es muss ein String ausgewählt sein, der geändert werden soll!
Return
}
LV_GetText(Text, RowNumber, 1)
LV_GetText(Text2, RowNumber, 2)
LV_GetText(Text3, RowNumber, 3)
LV_Delete(RowNumber)
GuiCOntrol,, NameFlv, %Text%
GuiCOntrol,, Link, %Text2%
GuiControl,, Pfad, %Text3%
GuiControl, Choose, Tabs, 2
GuiControl, +default, Speichern
Return
Button...:
Gui, Submit, NoHide
FileSelectFolder, Folder, ::{20d04fe0-3aea-1069-a2d8-08002b30309d}, 1, Wähle den Download-Ordner aus
If Errorlevel != 1
GuiControl,, Pfad, %Folder%
Return
YTDownloadURL(URL)
{
RegExMatch(url, "v=(\w+)", v)
UrlDownloadToFile, %URL%, %A_Temp%\urlc.youtube.temp
FileRead, Temp, %A_Temp%\urlc.youtube.temp
s := RegExMatch(Temp, "&t=(.+?)&", t)
RegExMatch(tf, "&l=(.+?)&", l, s - 25)
durl = http://www.youtube.com/get_video?video_id=%v1%&t=%t1%
Return, %durl%
}
statuslesen:
wert =
Loop, read, dlstatus.txt
{
IfInString, A_LoopReadLine, ..........
{
IfInString, A_LoopReadLine, `%
wert = %A_LoopReadLine%
}
}
If wert =
Return
StringSplit, wert, wert, `%
StringRight, wert, wert1, 3
wert := Round(wert,2)
GuiControl,, text, Fortschritt
GuiControl,, prozent, %wert%
Return
statuslesen2:
Count = 0
End := 0
Loop, read, dlstatus.txt
{
IfNotInstring, A_LoopReadLine, ..........
Continue
IfNotInstring, A_LoopReadLine, KB/s
Continue
Werte := A_LoopReadLine
StringRight, Out, Werte, 11
StringReplace, Out, Out, KB/s,, All
StringReplace, Out, Out, %A_Space%,, All
End := End+Out
Count := A_Index
}
Speed := Round(End/Count,2)
GuiControl,, SpeedRest, Geschwindigkeit: %Speed% KB/s
Return |
Erklärt sich beim starten von selbst!
Man braucht dazu noch die wget.exe im gleichen verzeichnis...
*Fortschritts Balken
*Listen Funktion (d.h. mehrere Files nacheinander abarbeiten)
*Geschwindigkeitsanzeige
*einfach zu bedienen (Hinzufügen->Youtube-Link->Name der End-Datei->Download-Pfad->Speichern->Download)
Viel Spaß damit
Hier nochmal als komplette Exe, die die wget.exe beinhaltet 
Zuletzt bearbeitet von flashkid am Mo Dez 03, 2007 3:52 pm, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
garry
Anmeldedatum: 25.10.2005
Beiträge: 437
Wohnort: switzerland
|
| Verfasst am: So Dez 02, 2007 2:54 pm Titel: |
|
|
es gibt auch verschiedene online downloader , danach die Datei get_video umbenenennen xy.flv, z.B. :
http://www.videodownloader.ch/
mit dem cache funktioniert bei mir gut mit youtube , ehrensenf , metacafe etc...
flashkid, muss Dein script noch versuchen .... |
|
| Nach oben |
|
|
garry
Anmeldedatum: 25.10.2005
Beiträge: 437
Wohnort: switzerland
|
| Verfasst am: Mo Dez 03, 2007 3:24 pm Titel: |
|
|
danke flashkid,
regex verstehe ich immer noch nicht , habe mit stringgetpos gearbeitet ... 
hat gut funktioniert, script leicht angepasst
beim exe script hat er libeay32.dll verlangt zum wget.exe
habe wget.exe zum ahk script kopiert, ist denn beim GuiClose wieder gelöscht worden |
|
| Nach oben |
|
|
flashkid
Anmeldedatum: 27.01.2007
Beiträge: 332
|
| Verfasst am: Mo Dez 03, 2007 3:51 pm Titel: |
|
|
ich habs auch nicht verstanden ist aus einen von den codes, die hier geuppt wurden, zusammengesetzt...
wie hast du mit stringgetpos gearbeitet?
das mit der wget.exe kann man ja beim guiclose weglassen, ich editier das mal
kann sein das man das braucht, ich hab die *.dll dateien von wget im windows verzeichnis, vielleicht gehts deswegen bei mir...
ich füg sie mal mit ein und schick alles auf den autohotkey.net server
was hast du denn noch angepasst?
EDIT: habs aktualisiert und auf den server geladen |
|
| Nach oben |
|
|
garry
Anmeldedatum: 25.10.2005
Beiträge: 437
Wohnort: switzerland
|
| Verfasst am: Mo Dez 03, 2007 4:29 pm Titel: |
|
|
hallo flashkid,
an deinem script habe ich eigentlich nur den Befehl deaktiviert (Filedelete,wget.exe), läuft gut
in dem script unten habe ich noch den Namen ausgesucht und später alle Spezialzeichen entfernt damit es beim Speichern keine Probleme gibt
es speichert den Video unter den Namen
habe links oben angepasst
ist viel länger als regex
F3 ist der erste Link
| Code: | VANAF1=watch_fullscreen?video_id=
UNTIL1=&sk=
VANAF2=&title=
UNTIL2=';
Loop,Read,%F3%
{
LR=%A_LoopReadLine%
ifinstring,LR,watch_fullscreen?video_id=
{
StringGetPos,VAR1,LR,%VANAF1%
StringGetPos,VAR2,LR,%UNTIL1%
VAR1:=(VAR1+27)
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
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
name=%TITLE%
break
}
}
new2=
Loop,Parse,NAME
{
A:=(Asc(A_LoopField))
B:=chr(a)
if (B="_" OR B=" ") ;erlaubt _ und 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 ;falls leer, bzw. nicht lesbare namen wie russisch etc...
if new2=
new2=_%ANOW1%.flv
|
Zuletzt bearbeitet von garry am Mo Dez 03, 2007 6:47 pm, insgesamt 2-mal bearbeitet |
|
| Nach oben |
|
|
flashkid
Anmeldedatum: 27.01.2007
Beiträge: 332
|
| Verfasst am: Mo Dez 03, 2007 4:42 pm Titel: |
|
|
stimmt die sonderzeichen sollten noch entfernt werden...
kannst du noch kurz den code dazu posten bitte? |
|
| Nach oben |
|
|
garry
Anmeldedatum: 25.10.2005
Beiträge: 437
Wohnort: switzerland
|
| Verfasst am: Mo Dez 03, 2007 6:41 pm Titel: |
|
|
habe script oben 'angeklebt'
hier script, download startet automatisch beim kopieren von youtube-url
http://www.autohotkey.com/forum/topic14882.html
Zuletzt bearbeitet von garry am Mo Dez 03, 2007 6:48 pm, insgesamt 2-mal bearbeitet |
|
| Nach oben |
|
|
flashkid
Anmeldedatum: 27.01.2007
Beiträge: 332
|
| Verfasst am: Mo Dez 03, 2007 6:45 pm Titel: |
|
|
hää ich check da garnix
kannst dus pls ausdokumentieren^^ |
|
| Nach oben |
|
|
garry
Anmeldedatum: 25.10.2005
Beiträge: 437
Wohnort: switzerland
|
| Verfasst am: Mo Dez 03, 2007 6:54 pm Titel: |
|
|
ASCII Zeichen, new2 ist der neue Name
loop,parse,name ;<< schaut jedes Zeichen an
new2=%new2%%b% << nur anfügen wenn:
48-57 = 0-9
65-90 = A-Z
97-122 = a-z
falls Name leer wird Datum angefügt _200712031956.flv
kann man auch brauchen falls der gleiche Name im Zielordner schon vorhanden ist, Datum dazuschreiben |
|
| 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
