Beiträge von KingLoL

KingLoL

habs einigermaßen hinbekommen... aber bei mir macht der den screenshot immer als erste frame im video... wie änder ich das?

Edit: mit -ss scannt der ne halbe stunde bis zur position... würde nur theoretisch funktinieren, von der zeit her nicht

KingLoL

Hi, ich würde gerne mit FFmpeg einen Video Screenshot erstellen (ca. in der Mitte des Videos)...

weiß jemand den befehl dazu? Weil auf der Website von denen blick ich garnix...

KingLoL

Raupi bei mir hängt die Uhr alle 2 sek bei deinem skript kurz... warum?!?

KingLoL

Hier das iss alles:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <Date.au3>

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

$G = GUICreate("Name", 615, 446, 193, 129)
$Internetverbindung = GUICtrlCreateLabel("Internetverbindung besteht", 100, 100, 400, 400)
GUICtrlSetFont(-1, 10, 600, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x008000)
GUISetState(@SW_SHOW)
$Keine_Internetverbindung = GUICtrlCreateLabel("Keine Internetverbindung", 100, 100, 400, 400)
GUICtrlSetFont(-1, 10, 600, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0xFF0000)

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

Global $TimerStart = TimerInit()
Global $ResetTimer = 0

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

Func Internetverbindung()
Ping("http://www.google.com")
If @error <> 0 Then
GUICtrlDelete ( $Keine_Internetverbindung )
$Internetverbindung = GUICtrlCreateLabel("Internetverbindung besteht", 100, 100, 400, 400)
GUICtrlSetFont(-1, 10, 600, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetState($Internetverbindung,@SW_HIDE)
GUICtrlSetState($Keine_Internetverbindung,@SW_SHOW)
Else
GUICtrlDelete ( $Internetverbindung )
$Keine_Internetverbindung = GUICtrlCreateLabel("Keine Internetverbindung", 100, 100, 400, 400)
GUICtrlSetFont(-1, 10, 600, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetState($Keine_Internetverbindung,@SW_SHOW)
GUICtrlSetState($Internetverbindung,@SW_HIDE)
EndIf
EndFunc

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

While 1
WinSetTitle($G,"",_NowTime(5))
$Timer = int(TimerDiff($TimerStart))
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
If $Timer - $ResetTimer >= 1000 Then
Internetverbindung()
$ResetTimer = $Timer
EndIf
WEnd

[/autoit]

KingLoL

Also das mit der aktuellen Uhrzeit geht so:

[autoit]

$Main = GuiCreate(.....)
While 1
WinSetTitle($Main,"",_NowTime(5))
WEnd

[/autoit]

KingLoL

Raupi thx ;D genauuuu so hab ichs gesucht ;DD

KingLoL

sry... war lange nich da... also ich habe das in etwa so:

Spoiler anzeigen

[autoit]

#Region ### START Koda GUI section ### Form=C:\Users\Louis\Documents\Programme\video mediathek Liste.kxf
Global $Main = GUICreate("Video Mediathek by xXMurmelkotzeXx", 362, 435, 193, 125)
Global $Combo = GUICtrlCreateCombo("Alle Videos", 16, 384, 153, 25)
GUICtrlSetData(-1, "Zuletzt Gesehen|DVDs|.avi|.flv|.mp4|.m2ts|.mkv")
Global $Input = GUICtrlCreateInput("Suche...", 184, 384, 153, 21)
Global $List = GUICtrlCreateList("", 16, 8, 321, 357, BitOR($WS_VSCROLL,$WS_BORDER))
Global $MenuFileMain = GUICtrlCreateMenu("Datei", -1)
Global $MenuOpen = GUICtrlCreateMenuItem("Video öffnen STRG+O", $MenuFileMain)
Global $MenuOptionsMain = GUICtrlCreateMenu("Optionen", -1)
Global $MenuOptions = GUICtrlCreateMenuItem("Einstellungen STRG+E", $MenuOptionsMain)
Global $MenuReload = GUICtrlCreateMenuItem("Videocache erneuern F5", $MenuOptionsMain)
GUISetState(@SW_ENABLE,$Main)
GUISetState(@SW_SHOW,$Main)
#EndRegion ### END Koda GUI section ###

[/autoit]

und ganz oben ist die InputBox mit dem Text "Suche..."

KingLoL

Hi, kann man irgendwie rausfinden, ob man gerade im Inputfeld ist, oder nicht? Ich möchte nämlich, dass der Text "Suchen..." verschwindet, sobaldd man in das Inputfeld klickt

KingLoL

cooooooooooooooool DANKE! ;D

KingLoL

dann liest er deine Datei nicht richtig^^

KingLoL

hast du das neue Skript von mir ausprobiert? Da hab ich unten das mit dem Arrray richtig gemacht... bei mir gehts

KingLoL

Spoiler anzeigen

[autoit]

#include <String.au3>
#include<Array.au3>
#include<file.au3>
Local $datei, $line
Global $sFileName
Global $hFFFF = FileFindFirstFile(@TempDir & "\*.html") ; Finde alle html-Dateien im Temp-Dir
$Radio = "test-radio"
$handle = "Edit1"
$text1= ("Pauli")
$text2= ("andiii")

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

$sFileName = FileFindNextFile ($hFFFF) ; hole nächsten gefundenen Dateinamen
If @error Then Exit

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

If StringRegExp($sFileName, "^Flatcast-\d+-\w+\.html$") Then
$datei = FileOpen (@TempDir & "\"& $sFileName)
EndIf

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

while 1
Sleep(1000)
$line= FileReadline($datei)
$split = StringSplit($line,'</a>:  ',1)
_ArrayDisplay($split)
;bis _ArrayDisplay läuft alles problemlos! Er Sucht die Datei, öffnet diese und zeigt mir die spalten im _ArrayDisplay untereinandern an.
;wie kann ich jetzt aus der oberen Zeile den Text auslesen? (.html-Datei als txt im Anhang)

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

;ich habe es so verucht, klappt aber natürlich nicht
$gesting = $split[1] ;Er liest aus dem ersten Array (abgesehen der Anzahl der Arrays[0]) also $Array[1]

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

If StringInStr ( $gesting, $text1,0, 1) Then
ConsoleWrite ("pauli-zeile")
Sleep(100)
Send ("{ENTER}")
EndIf
If StringInStr ( $gesting, $text2,0, 1) Then
ConsoleWrite ("andiii-zeile")
Sleep(100)
Send ("{ENTER}")
EndIf
WEnd

[/autoit]

KingLoL

ALso unten hast du schonmal ein EindIf vergessn, deshalb ging bei mir die While Schleife nicht... aber Stringsplit?

KingLoL

sry... hier das iss die Suchfunktion

Spoiler anzeigen

[autoit]

Case $Input
Local $SearchResult = ""
Local $SearchResultArray = ""
Local $aviSearch = ""
Local $mkvSearch = ""
Local $m2tsSearch = ""
Local $mp4Search = ""
Local $IFOSearch = ""
Local $SearchString1 = GUICtrlRead($Input)
Local $SearchString2 = GUICtrlRead($Input)
Local $SearchString3 = GUICtrlRead($Input)
Local $SearchString4 = GUICtrlRead($Input)
Local $SearchStringCheck = StringSplit($SearchString1," ")
Local $NumberCheck = $SearchStringCheck[$SearchStringCheck[0]]
If StringInStr($SearchString1," ") = 0 Then
$SpaceCheckYesNo = "No"
Else
$SpaceCheckYesNo = "Yes"
EndIf
If StringIsInt("" &$NumberCheck &"") = 1 Then
$SearchString1 = StringReplace($SearchString1," " &$NumberCheck,"")
$SearchString2 = StringReplace($SearchString2," " &$NumberCheck,"")
$SearchString3 = StringReplace($SearchString3," " &$NumberCheck,"")
$SearchString4 = StringReplace($SearchString4," " &$NumberCheck,"")
$NumberCheckYesNo = "Yes"
ElseIf StringIsInt("" &$NumberCheck &"") = 0 Then
$NumberCheckYesNo = "No"
EndIf

If $SpaceCheckYesNo = "Yes" And $NumberCheckYesNo = "No" Then
$SearchString2 = StringSplit($SearchString2," ")
For $a = 1 To $SearchString2[0]
For $i = 1 To $avi[0]
If StringInStr($avi[$i],$SearchString2[$a]) And StringInStr($aviSearch,$avi[$i]) = 0 Then
$aviSearch = $aviSearch &$avi[$i] &"|"
EndIf
Next
Next
For $a = 1 To $SearchString2[0]
For $i = 1 To $mp4[0]
If StringInStr($mp4[$i],$SearchString2[$a]) And StringInStr($mp4Search,$mp4[$i]) = 0 Then
$mp4Search = $mp4Search &$mp4[$i] &"|"
EndIf
Next
Next
For $a = 1 To $SearchString2[0]
For $i = 1 To $mkv[0]
If StringInStr($mkv[$i],$SearchString2[$a]) And StringInStr($mkvSearch,$mkv[$i]) = 0 Then
$mkvSearch = $mkvSearch &$mkv[$i] &"|"
EndIf
Next
Next
For $a = 1 To $SearchString2[0]
For $i = 1 To $m2ts[0]
If StringInStr($m2ts[$i],$SearchString2[$a]) And StringInStr($m2tsSearch,$m2ts[$i]) = 0 Then
$m2tsSearch = $m2tsSearch &$m2ts[$i] &"|"
EndIf
Next
Next
For $a = 1 To $SearchString2[0]
For $i = 1 To $IFO[0]
If StringInStr($IFO[$i],$SearchString2[$a]) And $i <> $IFO[0] And StringInStr($IFOSearch,$IFO[$i]) = 0 Then
$IFOSearch = $IFOSearch &$IFO[$i] &"|"
ElseIf StringInStr($IFO[$i],$SearchString2[$a]) And $i = $IFO[0] And StringInStr($IFOSearch,$IFO[$i]) = 0 Then
$IFOSearch = $IFOSearch &$IFO[$i]
EndIf
Next
Next
ElseIf $SpaceCheckYesNo = "No" Then
For $i = 1 To $avi[0]
If StringInStr($avi[$i],$SearchString3) Then
$aviSearch = $aviSearch &$avi[$i] &"|"
EndIf
Next
For $i = 1 To $mp4[0]
If StringInStr($mp4[$i],$SearchString3) Then
$mp4Search = $mp4Search &$mp4[$i] &"|"
EndIf
Next
For $i = 1 To $mkv[0]
If StringInStr($mkv[$i],$SearchString3) Then
$mkvSearch = $mkvSearch &$mkv[$i] &"|"
EndIf
Next
For $i = 1 To $m2ts[0]
If StringInStr($m2ts[$i],$SearchString3) Then
$m2tsSearch = $m2tsSearch &$m2ts[$i] &"|"
EndIf
Next
For $i = 1 To $IFO[0]
If StringInStr($IFO[$i],$SearchString3) And $i <> $IFO[0] Then
$IFOSearch = $IFOSearch &$IFO[$i] &"|"
ElseIf StringInStr($IFO[$i],$SearchString3) And $i = $IFO[0] Then
$IFOSearch = $IFOSearch &$IFO[$i]
EndIf
Next
ElseIf $SpaceCheckYesNo = "Yes" And $NumberCheckYesNo = "Yes" Then
For $i = 1 To $avi[0]
If StringInStr($avi[$i],$SearchString4) <> 0 And StringInStr($avi[$i],$NumberCheck) <> 0 And StringInStr($avi[$i],"(" &$NumberCheck) &")" = 0 Then
$aviSearch = $aviSearch &$avi[$i] &"|"
EndIf
Next
For $i = 1 To $mp4[0]
If StringInStr($mp4[$i],$SearchString4) <> 0 And StringInStr($mp4[$i],$NumberCheck) <> 0 And StringInStr($mp4[$i],"(" &$NumberCheck) &")" = 0 Then
$mp4Search = $mp4Search &$mp4[$i] &"|"
EndIf
Next
For $i = 1 To $mkv[0]
If StringInStr($mkv[$i],$SearchString4) <> 0 And StringInStr($mkv[$i],$NumberCheck) <> 0 And StringInStr($mkv[$i],"(" &$NumberCheck) &")" = 0 Then
$mkvSearch = $mkvSearch &$mkv[$i] &"|"
EndIf
Next
For $i = 1 To $m2ts[0]
If StringInStr($m2ts[$i],$SearchString4) <> 0 And StringInStr($m2ts[$i],$NumberCheck) <> 0 And StringInStr($m2ts[$i],"(" &$NumberCheck) &")" = 0 Then
$m2tsSearch = $m2tsSearch &$m2ts[$i] &"|"
EndIf
Next
For $i = 1 To $IFO[0]
If StringInStr($IFO[$i],$SearchString4) <> 0 And StringInStr($IFO[$i],$NumberCheck) <> 0 And $i <> $IFO[0] And StringInStr($IFO[$i],"(" &$NumberCheck) &")" = 0 Then
$IFOSearch = $IFOSearch &$IFO[$i] &"|"
ElseIf StringInStr($IFO[$i],$SearchString4) <> 0 And StringInStr($IFO[$i],$NumberCheck) <> 0 And $i = $IFO[0] And StringInStr($IFO[$i],"(" &$NumberCheck) &")" = 0 Then
$IFOSearch = $IFOSearch &$IFO[$i]
EndIf
Next
EndIf
$SearchResult = $aviSearch &$mkvSearch &$m2tsSearch &$mp4Search &$IFOSearch
$SearchResultArray = StringSplit($SearchResult, "|")
_ArrayDelete($SearchResultArray, $SearchResultArray[0])
$SearchResultArray[0] = $SearchResultArray[0] - 1
$SearchStringCompiled = _ArrayToString($SearchResultArray,"|",1)
If $SearchStringCompiled = "" Then $SearchStringCompiled = "Keine passenden Videos gefunden!"
GUICtrlSetData($List,"")
GUICtrlSetData($List,$SearchStringCompiled)

[/autoit]

KingLoL

Lad dir am besten mal die deutsche Hilfe runter und schau in den Bemerkungen nach, da ist immer alles super erklärt, wie z.B. hier: 0-Ordner und Datein aufliste (Standart), 1-Nur Dateien aufliste, 2-Nur Ordner auflisten

KingLoL

Hi, ich habe ein Programm geschireben, dass alle meine Videos Auflistet usw. und das heit eine Suchfunktion. Geht es, dass es wie in Google während dem suchen max. 5 Videonamen vorschlägt?

KingLoL

Tut bei mir nich =(. Wo muss ich eig den ffmepg hinkopiern?

KingLoL

du kannst ShellWaitExecute benutzen, in dem du bei Optionen -P hinzufügst ;D

KingLoL

da war ich schon^^ aber habs jezz rausgefunden.

Ich musste den VideoPfad als Parameter im 2. Teil von SHellExecute eingeben. Drauf gekommen bin ich durch die Info von der cmd.exe

[autoit]

ShellExecute("B:\Programme\mtn-200808a-win32\mtn.exe","B:\Videos\Beilight.avi")

[/autoit]

KingLoL

Keine Ahnung

Beiträge von KingLoL

FFmpeg Video Screenshot erstellen

FFmpeg Video Screenshot erstellen

Aktuelle Uhrzeit in GUI + Internetprüfung

Aktuelle Uhrzeit in GUI + Internetprüfung

Aktuelle Uhrzeit in GUI + Internetprüfung

Input Box klick registrieren

Input Box klick registrieren

Input Box klick registrieren

InputBox Vorschläge

StringSplit schwierigkeit

StringSplit schwierigkeit

StringSplit schwierigkeit

StringSplit schwierigkeit

InputBox Vorschläge

Ordner auflisten und in einem array speichern

InputBox Vorschläge

Videovorschau-Bild

Movie Thumbnail (mtn)

Movie Thumbnail (mtn)

Movie Thumbnail (mtn)