#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <IE.au3>
#include "YouTubeAPI.au3"
#include "Youtube.au3"

Global $oCollection

Func ToMinutes($iSeconds)
	Local $iSec = Mod($iSeconds, 60)
	If $iSec < 10 Then $iSec = "0" & $iSec
	Return Floor($iSeconds / 60) & ":" & $iSec
EndFunc   ;==>ToMinutes

$oIE = _IECreateEmbedded()
$formMain = GUICreate("YouTube Client", 418, 466, 192, 164)

$inpWord = GUICtrlCreateInput("test", 8, 8, 321, 21)
GUICtrlSetState($inpWord, $GUI_FOCUS) ; Der Fokus ist auf diesem Element
$btnSearch = GUICtrlCreateButton("Suche", 330, 7, 81, 23)
$lswResults = GUICtrlCreateListView("Titel | Länge", 8, 32, 401, 393)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 320)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 60)
$btnPlay = GUICtrlCreateButton("Wiedergabe", 8, 432, 401, 25)

Dim $aItems[50]
Dim $aVID[50]

GUISetState(@SW_SHOW)

While True
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $btnSearch
			For $i = 0 To 49
				GUICtrlDelete($aItems[$i])
			Next
			$oCollection = YouTube_SearchVideos(GUICtrlRead($inpWord), 50, 1, $YT_BY_VIEWS, $YT_LANG_GERMAN)
			;Suche nach Video, (50 - max Ergebnisse und auf Deutsch)
			For $i = 0 To YouTube_GetVideosCount($oCollection) - 1
				YouTube_SelectIndex($oCollection, $i)
				;wählt ein Vidio aus, zur verarbeitung
				$aItems[$i] = GUICtrlCreateListViewItem(StringReplace(YouTube_GetTitle($oCollection), "|", "") & "|" & ToMinutes(YouTube_GetDuration($oCollection)), $lswResults)
				$aVID[$i] = YouTube_GetVID($oCollection)
				; für jedes gefundene Vidio die Vidio-ID ermitteln
			Next
		Case $btnPlay
			For $i = 0 To 49
				If GUICtrlRead($lswResults) = $aItems[$i] Then ExitLoop
			Next
			;~ $youtube_source = _Youtube_Read($vidio_id)
$vidio_title = YouTube_GetTitle($oCollection)
$form_player = GUICreate($vidio_title, 600, 600, 100, 200)

YouTube_SelectIndex($oCollection, $i) ; Wählt das aktive Objekt in der Sammlung
$vidio_id = YouTube_GetVID($oCollection)

$form_player = GUICreate($vidio_title, 600, 600, 100, 200)
$oFlash = ObjCreate("ShockwaveFlash.ShockwaveFlash.11")
$objPlayer = GUICtrlCreateObj($oFlash, 8, 40, 489, 393)
GUISetState(@SW_SHOW)
$oVideo = YouTube_GetVideo($vidio_id)
			$oContent = YouTube_GetContentFlash($oVideo)
			$oFlash.Movie = $oContent & "&autoplay=1" ;& "&controls=1"
$controlclick = ControlClick($vidio_title,"",$objPlayer)






	$nMsg1 = GUIGetMsg()
	Switch $nMsg1
		Case $GUI_EVENT_CLOSE
_Youtube_Stop($a_youtubeplayer)
GUIDelete()
	EndSwitch


				EndSwitch
WEnd