Beiträge von Alina

**Alina**

Zitat von leviathan

Run('ffmpeg -i '&$id&'.flv -vcodec mpeg1video -acodec copy -b 600 '&$id&'.mpg')

Da bekomme ich folgenden Fehler:

Spoiler anzeigen

[autoit]

E:\myvideode.au3(31,21) : WARNING: $id: possibly used before declaration.
Run('ffmpeg -i '&$id&
~~~~~~~~~~~~~~~~~~~~^
E:\myvideode.au3(31,21) : ERROR: $id: undeclared global variable.
Run('ffmpeg -i '&$id&
~~~~~~~~~~~~~~~~~~~~^
E:\myvideode.au3 - 1 error(s), 1 warning(s)

[/autoit]

Aber so geht es außer das er die test.bat nicht löschen möchte, obwohl ich ihm diesen gesagt habe (Zeile : 43)

Spoiler anzeigen

[autoit]

#include<Inet.au3>
#include<GUIConstants.au3>
#include<File.au3>

[/autoit] [autoit][/autoit] [autoit]

PluginOpen("pthreadGC2.dll")

[/autoit] [autoit][/autoit] [autoit]

GUICreate("My Video.de Downloader", 273, 105, 193, 115, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
DIM $DwnInput = GUICtrlCreateInput("2354666", 8, 24, 257, 21)
GUICtrlCreateLabel("www.myvideo.de Video-Nummer(ID):", 8, 8, 268, 15)
$start = GUICtrlCreateButton("&Start", 8, 48, 128, 25, 0)
$Progress = GUICtrlCreateProgress(8, 80, 257, 16)
$abb = GUICtrlCreateButton("A&bbruch", 137, 48, 128, 25, 0)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
GUICtrlSetState($start,$GUI_DISABLE)

[/autoit] [autoit][/autoit] [autoit]

$link = _LinkLoad(GUICtrlRead($DwnInput))
InetGet($link, @ScriptDir&"\"&GUICtrlRead($DwnInput)&".flv")
If @error Then
MsgBox(0,"Download","Downloaderror")
Else
MsgBox(0,"","Download abgeschlossen! Datei wird nun umgewandelt.")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If Not FileExists("test.bat") Then _FileCreate("test.bat")
FileOpen("test.bat", 2)
FileWrite("test.bat", '"ffmpeg" -i ')
FileWrite("test.bat", (GUICtrlRead($DwnInput)))
FileWrite("test.bat", ".flv")
FileWrite("test.bat", " -vcodec mpeg1video -acodec copy -b 600 ")
FileWrite("test.bat", GUICtrlRead($DwnInput))
FileWrite("test.bat", ".mpg")
FileClose("test.bat")
GUIDelete()

[/autoit] [autoit][/autoit] [autoit]

RunWait(@ComSpec & " /c " & 'test.bat',"", @SW_HIDE)
FileDelete(@ScriptDir & "\test.bat")
MsgBox(0,"Fertig","Fertig")
Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _LinkLoad($id)
$url = "http://www.myvideo.de/watch/"&$id
$source = _INetGetSource($url)
$array = StringRegExp($source, "((http://myvideo-)\d+(.)\w+(.)\w+(.net)(/)\w+(/)\w+(/)\w+(/)"&$id&"+(.flv)){1}", 2)
If IsArray($array) Then
$VidLink = $array[1]
Return $VidLink
Else
Return 1
EndIf
EndFunc

[/autoit]

**Alina**

Hallo.

Habe jetzt drei Sachen ausprobiert

1. Möglichkeit

Spoiler anzeigen

[autoit]

Run('"ffmpeg" -i "'& GUICtrlRead($DwnInput) &'.flv" -vcodec mpeg1video -acodec copy -b 600 "'& GUICtrlRead($DwnInput) &'.mpg"')

[/autoit]

2. Möglichkeit

Spoiler anzeigen

[autoit]

If Not FileExists("test.bat") Then _FileCreate("test.bat")
FileOpen("test.bat", 2)
FileWrite("test.bat", '"ffmpeg" -i ')
FileWrite("test.bat", GUICtrlRead($DwnInput)&".flv")
FileWrite("test.bat", "-vcodec mpeg1video -acodec copy -b 600 ")
FileWrite("test.bat", GUICtrlRead($DwnInput)&".mpg")
FileClose("test.bat")

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0,"Fertig","Fertig")

[/autoit]

3. Möglichkeit

Spoiler anzeigen

[autoit]

FileOpen("test.bat",2)

[/autoit] [autoit][/autoit] [autoit]

If FileExists("test.bat") Then
FileDelete("test.bat")
EndIf
$file = "test.bat"

[/autoit] [autoit][/autoit] [autoit]

FileWrite($file, '"ffmpeg" -i ')
FileWrite($file, '"2536790.flv" ')
FileWrite($file, "-vcodec mpeg1video -acodec copy -b 600 ")
FileWrite($file, '"2536790.mpg"')

[/autoit] [autoit][/autoit] [autoit]

FileClose($file)

[/autoit]

Nur möchte keine der drei Möglichkeiten ab Zeile 34 laufen.

Spoiler anzeigen

[autoit]

#include<Inet.au3>
#include<GUIConstants.au3>
#include<File.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUICreate("My Video.de Downloader", 273, 105, 193, 115, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$DwnInput = GUICtrlCreateInput("2354666", 8, 24, 257, 21)
GUICtrlCreateLabel("www.myvideo.de Video-Nummer(ID):", 8, 8, 268, 15)
$start = GUICtrlCreateButton("&Start", 8, 48, 128, 25, 0)
$Progress = GUICtrlCreateProgress(8, 80, 257, 16)
$abb = GUICtrlCreateButton("A&bbruch", 137, 48, 128, 25, 0)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
GUICtrlSetState($start,$GUI_DISABLE)

[/autoit] [autoit][/autoit] [autoit]

$link = _LinkLoad(GUICtrlRead($DwnInput))
InetGet($link, @ScriptDir&"\"&GUICtrlRead($DwnInput)&".flv")
If @error Then
MsgBox(0,"Download","Downloaderror")
Else
GUIDelete()
MsgBox(0,"","Download abgeschlossen! Datei wird nun umgewandelt.")
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

; hier soll es rein !!!

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _LinkLoad($id)
$url = "http://www.myvideo.de/watch/"&$id
$source = _INetGetSource($url)
$array = StringRegExp($source, "((http://myvideo-)\d+(.)\w+(.)\w+(.net)(/)\w+(/)\w+(/)\w+(/)"&$id&"+(.flv)){1}", 2)
If IsArray($array) Then
$VidLink = $array[1]
Return $VidLink
Else
Return 1
EndIf
EndFunc

[/autoit]

mmmmmmh, was mache ich nur falsch? Sicherlich mache ich einen Fehler beim einbinden, aber diesen finde ich einfach nicht.

Edit: Separat gehen die Möglichkeiten, aber nicht im Script, wenn ich diese ab o. g. Zeile einfüge.

**Alina**

Xenobiologist

Wie soll ich das denn machen? Die Datei soll ja jedes mal neu erstellt werden, dann ausgeführt werden und anschließend gelöscht werden.

Und wenn, wo muß ich das FileOpen("test.bat", 0) einfügen?

**Alina**

Wieso geht das nicht?

Spoiler anzeigen

[autoit]

If FileExists("test.bat") Then
FileWrite("test.bat", '"ffmpeg" -i ')
FileWrite("test.bat", GUICtrlRead($DwnInput)&".flv")
FileWrite("test.bat", "-vcodec mpeg1video -acodec copy -b 600 ")
FileWrite("test.bat", GUICtrlRead($DwnInput)&".flv")
FileClose("test.bat")

[/autoit] [autoit][/autoit] [autoit]

Else
_FileCreate("test.bat")
FileWrite("test.bat", '"ffmpeg" -i ')
FileWrite("test.bat", GUICtrlRead($DwnInput)&".flv")
FileWrite("test.bat", "-vcodec mpeg1video -acodec copy -b 600 ")
FileWrite("test.bat", GUICtrlRead($DwnInput)&".flv")
FileClose("test.bat")
EndIf

[/autoit]

LG, Lina.

**Alina**

Hallo alle zusammen.

Also der Download funktioniert bei mir mit dem Script von Leviathan (Heute 14:16) super. Danke !!!

Somit ist der erste Teil bereits, dank Euch, fertig und jetzt muß ich nur noch sehen, das ich nach der MsgBox "Download abgeschlossen!" den File konvertiere.
Dazu werde ich es wohl so machen, das über das Script eine konvert.bat erstellt wird, diese ausgeführt wird und dann die konvert.bat wieder gelöscht wird. Aber da werde ich versuchen mich einzulesen, denn das darf ja erst passieren, wenn der Download auch wirklich beendet ist.

Geschrieben werden soll folgende Batchdatei oder ich werde schauen ob ich das ganze mit AutoIt lösen kann.
Batch: "ffmpeg" -i "2536790.flv" -vcodec mpeg1video -acodec copy -b 600 "2536790.mpg"

Zitat von leviathan

Spoiler anzeigen

[autoit]
#include
#include
#include
GUICreate("My Video.de Downloader", 273, 105, 193, 115, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$DwnInput = GUICtrlCreateInput("147564", 8, 24, 257, 21)
GUICtrlCreateLabel("www.myvideo.de Video-Nummer(ID):", 8, 8, 268, 15)
$start = GUICtrlCreateButton("&Start", 8, 48, 128, 25, 0)
$Progress = GUICtrlCreateProgress(8, 80, 257, 16)
$abb = GUICtrlCreateButton("A&bbruch", 137, 48, 128, 25, 0)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
GUICtrlSetState($start,$GUI_DISABLE)
[/autoit] [autoit][/autoit] [autoit]
$link = _LinkLoad(GUICtrlRead($DwnInput))
InetGet($link, @ScriptDir&"\"&GUICtrlRead($DwnInput)&".flv")
If @error Then
MsgBox(0,"","error")
Else
GUIDelete()
MsgBox(0,"","Download abgeschlossen!")
Exit
EndIf
[/autoit] [autoit][/autoit] [autoit]
EndSwitch
WEnd
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Func _LinkLoad($id)
$url = "http://www.myvideo.de/watch/"&$id
$source = _INetGetSource($url)
$array = StringRegExp($source, "((http://myvideo-)\d+(.)\w+(.)\w+(.net)(/)\w+(/)\w+(/)\w+(/)"&$id&"+(.flv)){1}", 2)
If IsArray($array) Then
$VidLink = $array[1]
Return $VidLink
Else
Return 1
EndIf
[/autoit] [autoit][/autoit] [autoit]
;~ MsgBox(0,"",$VidLink)
;~ _IEQuit($source)
EndFunc
;~ $DwnInput,"http://www.myvideo.de/watch/",".swf?http://","&&ID="
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

Alles anzeigen

Ich möchte aber ganz klar stellen, das ich mich bei ALLEN bedanke, die an der Lösung mitgeholfen haben.

Ich könnte Euch knuddeln, aber ich möchte ja keinen Ärger mit Euren Frauen

LG und herzlichen Dank !!!!
L I N A

**Alina**

Hallo @Wolf.

Also ich habe das jetzt so weit geändert, weiß aber nicht, ob ich das richtig eingefügt habe, da ich Deinen beitrag nicht komplett verstanden habe.

Spoiler anzeigen

[autoit]

#include<GuiConstants.au3>
#include<String.au3>
#include <INet.au3>
GUICreate("My Video.de Downloader", 273, 105, 193, 115, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$DwnInput = GUICtrlCreateInput("147564", 8, 24, 257, 21)
GUICtrlCreateLabel("www.myvideo.de Video-Nummer(ID):", 8, 8, 268, 15)
$start = GUICtrlCreateButton("&Start", 8, 48, 128, 25, 0)
$Progress = GUICtrlCreateProgress(8, 80, 257, 16)
$abb = GUICtrlCreateButton("A&bbruch", 137, 48, 128, 25, 0)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
GUICtrlSetState($start,$GUI_DISABLE)

[/autoit] [autoit][/autoit] [autoit]

$link = _LinkLoad($DwnInput,"http://www.myvideo.de/watch/",".swf?","&","&ID=")
InetGet($link,@DesktopDir&"\"&guictrlread($DwnInput) & ".flv") ; Download: zum Beispiel: http://www.myvideo.de/watch/2354666[1].flv
If @error Then
MsgBox(0,"","error")
Else
GUIDelete()
MsgBox(0,"","Download abgeschlossen!")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Run Befehl funktioniert nicht, wobei der nachfolgende Batch manuell funktioniert:
; Batch = "ffmpeg" -i "2354666[1].flv" -vcodec mpeg1video -acodec copy -b 600 "2354666[1].mpg"
;~ Run("ffmpeg -i" & $DwnInput & ".flv" & "-vcodec mpeg1video -acodec copy -b 600" & $DwnInput & ".mpg")
;~ Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _LinkLoad($RInput,$Inets,$schStart,$schEnd)
Dim $VidLink,$DwnInput,$source,$sEnd,$sStart, $splitHTML
$read = GUICtrlRead($RInput)
$source = _INetGetSource($Inets&$read&"/")

[/autoit] [autoit][/autoit] [autoit]

$sStart = $schStart
$sEnd = $schEnd
$VidLink = _StringBetween($source, $sStart, $sEnd,-1)
if @error Then
Return 'error ('&'Error:'&@error&') '
Else
Return $VidLink[0]
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit]

Hoffe doch mal, das ich es richtig verstanden habe und in Zeile 20 es richtig eingefügt habe.

Die Errormeldung erschien sobald ich den Startbutton ($start) betätigte. Jetzt erfolgt gar nichts, außer Fehlermeldungen wie folgt:

Spoiler anzeigen

[autoit]

C:\testbereich\test.au3(38,49) : ERROR: _LinkLoad() called by a previous line with 5 arg(s). Min = 4. First previous line calling this Func is 20.
Func _LinkLoad($RInput,$Inets,$schStart,$schEnd)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\testbereich\test.au3 - 1 error(s), 0 warning(s)

[/autoit]

Den Fehler kenne ich nicht und weiß auch nicht, wie ich das Problem lösen soll. Frage ist auch, welche AutoIt Version nutzt Du?

Danke, das ihr versucht so sehr zu helfen. Es ist nur ein Projekt und es ist zeitlich nicht so wichtig, nur ich bekomme das Problem nicht aus dem Kopf.

LG, Lina.

**Alina**

Hallo.

Danke erst einmal.

@wolf, also bei mir kommt beim Ausführen bereits das Error aus Zeile 25.

Betreffend des Run-Befehls plane ich eine andere Lösung.

LG und jetzt schlaf gut.

**Alina**

Ich bin gesapnnselt.

**Alina**

Ich habe doch Zeit.
Aber was sagst Du sonst zu den drei Punkten aus dem oben stehenden Beitrag?
Wäre doch sonst auch ein Lösungsweg, oder?

LG, Lina.

**Alina**

Hallo.

Bin begeistert, wie die Hilfe hier ist. Danke !

@Wolf Das Script geht bei mir leider nicht.

IDEE:
1.) Internetseite aufrufen
2.) die betreffende *.flv suchen und dahin verschieben wo Script liegt
3.) Internetseite wieder schließen

Wenn wir soweit sind, habe ich für den Rest bereits eine Lösung im Kopf. Nur diese drei Punkte, das bekomme ich nicht hin.

Okay, ich werde mir weiterhin den kleinen Kopf zerbrechen.

LG, Lina.

**Alina**

Ich habe mal gehört, das Webmaster ein sog. "Backdoorschutz" einbauen können, was bedeutet, das man nicht direkt eine ID aufrufen kann. Macht man dieses dennoch, wird man automatisch an eine durch den Webmaster bestimmte Seite geleitet. Aber wie gesagt, das ist eine Info die ich gelesen habe und ich weiß nicht, ob dieses zutrifft. Das ganze ist auch von Seiten, wo man lernt Internetpräsentationen zu erstellen.

LG, die Lina.

**Alina**

OK, habe ich verstanden. Danke.

Ja, zwei LW's für Disk ist doch praktisch, wenn man noch Disk hat die ab und an ein Kopie benötigen.

LG, Lina.

**Alina**

Also ich habe jetzt folgendes Script versucht aus dem YouTube umzuwandeln, aber das will an zwei stellen nicht. Habe die beiden Fehler im Schrift beschrieben (Download und der Run).

Spoiler anzeigen

[autoit]

#include<GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUICreate("My Video.de Downloader", 273, 105, 193, 115, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$DwnInput = GUICtrlCreateInput("2354666[1]", 8, 24, 257, 21)
GUICtrlCreateLabel("www.myvideo.de Video-Nummer:", 8, 8, 268, 15)
$start = GUICtrlCreateButton("&Start", 8, 48, 128, 25, 0)
$Progress = GUICtrlCreateProgress(8, 80, 257, 16)
$abb = GUICtrlCreateButton("A&bbruch", 137, 48, 128, 25, 0)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
GUICtrlSetState($start,$GUI_DISABLE)

[/autoit] [autoit][/autoit] [autoit]

; Download funktioniert nicht !!!!
InetGet("http://www.myvideo.de/watch/" & ($DwnInput & ".flv")) ; Download: zum Beispiel: http://www.myvideo.de/watch/2354666[1].flv
GUIDelete()
MsgBox(0,"","Download abgeschlossen!")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; Run Befehl funktioniert nicht, wobei der nachfolgende Batch manuell funktioniert:
; Batch = "ffmpeg" -i "2354666[1].flv" -vcodec mpeg1video -acodec copy -b 600 "2354666[1].mpg"
Run("ffmpeg -i" & $DwnInput & ".flv" & "-vcodec mpeg1video -acodec copy -b 600" & $DwnInput & ".mpg")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Exit
EndSwitch
WEnd

[/autoit]

Bestimmt wieder ein Fehler, den Frau nicht so schnelle erkennt. Oder?

Also der Batch im Rum, der funktioniert manuell, aber ich möchte das ja so, das man über das GUI die Video-Nummer einfügt und nicht eine feste Nummer dort steht.

Liebe Grüße, Lina.

**Alina**

Das mit den Buttons hast Du super gemacht.

Wir LW-A und LW-B jetzt nur einmal abgefragt ob vorhanden oder nicht? Oder sind die beiden LW noch nicht berücksichtigt wurden. Ja, ich habe noch ein LW-A udn LW-B, aber eher als "Diskettenkopiestation".

LG, Lina.

**Alina**

Hallo zusammen.

Hat schon jemand ein Downloader für "MyVideo.de" entwickelt?

Ich würde da nämlich gerne paar Filme auf meine Festplatte kopieren, jedoch klappt das nicht.

SUCHFUNKTION: war ohne Erfolg.

Vielen Dank.

LG, Lina.

**Alina**

@Xeno.

Störend bei den beiden Bsp. sind die LW-A Zugriffe. Erinnert mich an einen alten Wecker meiner Oma, wo dieser noch mit der rückseitigen Spannschraube am Leben gehalten wurde. Oben noch zwei "Glöcken" und der hozizontale Weckpendel. Ich glaub das Ding macht sogar noch Geräusche, wenn ich es mal wieder reanimieren würde.

Kann man das irgendwie so machen, das beim LW-A der Zugriff nur dann erfolgt, wenn z. B. ein Datenträger eingeführt wurde und dann rechts ein Button getätigt wird.

Für dei CD/DVD-LW noch ein Tip. Rechts ist noch Platz für jeweils 2 kleine Buttons namens (LW-öffnen / LW-schließen). Ja, hier sitzt gerade ein kreatives Köpfchen, das seit 2 Tagen fast nur am schlafen ist oder im Bett liegt und nachdenkt. TV und Laptop gibt es ja direkt am Bett.

LG, Lina.

**Alina**

Hallo IHR beide !

Ich sollte MICH schämen. Wie kann FRAU das nur SO FALSCH verstehen?

SORRY !!!!! jetzt HABE ich es VERSTANDEN !

Ich werde das ganze nun etwas hin und her testen. Kann man das ganze auch umgekehrt machen. Ich meine, wenn ich "obfuscated" habe, dieses wieder Rückgängig machen?

Danke nochmals und sorry.

LG, Lina.

**Alina**

Xenobiologist .

Also ich habe das jetzt mal mit Zahlen ausprobiert.

Habe folgenden "Schalter" verwendet: /cn 0/1 : 1

Aber passieren tut da nichts. Bin ich zu blond oder ist das ein Verständnisfehler?

LG, Lina.

**Alina**

@Xeno.

Sorry, wenn ich mich jetzt erst melde.

Fuß geschient, dann einen richtigen grippalen Infekt und ein Kopf der zu platzen droht. Also kurz: RICHTIG KRANK !!!

Vielleicht eine kleine Gebrauchsanweisung, wie man mit dem ganzen richtig umgeht und was welche Einstellung bewirkt?

LG, Lina.

**Alina**

Xenobiologist

Alsod as ist ja das, was jeder findet, aber ich suche eine ausführliche Erklärung.

Frage mich gerade, ob es dänisch oder deutsch ist, was Du mir da gepostet hast.

Danke, auch wenn es nicht das ist was ich suche.

LG, Lina.

Beiträge von Alina

MyVideo.de

FileExists & FileWrite Problem

FileExists & FileWrite Problem

FileExists & FileWrite Problem

MyVideo.de

MyVideo.de

MyVideo.de

MyVideo.de

MyVideo.de

MyVideo.de

_rundos & url

SB v X.0

MyVideo.de

SB v X.0

MyVideo.de

SB v X.0

Obfuscator

Obfuscator

Obfuscator

Obfuscator