Youtube UDF

[Kip]

Hi,

(I dont have anything to say this time)

Functions:

_Youtube_Read($iID)



    _Youtube_GetID($sPlayer)
    _Youtube_GetTitle($sPlayer)
    _Youtube_GetDescription($sPlayer)
    _Youtube_GetKeywords($sPlayer)

    _Youtube_GetEmbedLink($sPlayer)
    _Youtube_GetPlayerLink($sPlayer)
    _Youtube_GetPlayerSwf($sPlayer)


    
    _Youtube_Create($iX, $iY, $iWidth=$YT_DEFAULTWIDTH, $iHeight=$YT_DEFAULTHEIGHT)
    _Youtube_Load($aPlayerControl, $sPlayer, $iAutoPlay=True)
    _Youtube_Stop($aPlayerControl)

Example: Just enter a video ID and the UDF will to the rest

expandcollapse popup

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Youtube.au3>


$GUI = GUICreate("YTPlayer",700,500)
    
    $iInput = GUICtrlCreateInput("6j7huh5Egew",480,50,115,23); 6j7huh5Egew is a cool song XD
    $iPlay = GUICtrlCreateButton("Play",600,50,90,23)
    
    $iLabel = GUICtrlCreateLabel("ID:        " &@CRLF & _
        "Title:      " &@CRLF & _
        "Description:    " &@CRLF & _
        "Keywords:   " ,490,90,200,600)
    
    $aPlayerControl = _Youtube_Create(50,50)
    
GUISetState()



While 1
    
    $iMsg = GUIGetMsg()
    
    Switch $iMsg
        
        Case $GUI_EVENT_CLOSE
            
            Exit
            
        Case $iPlay
            
            $sID = GUICtrlRead($iInput)
            
            GUICtrlSetState($iPlay,$GUI_DISABLE)
            $sPlayer = _Youtube_Read($sID); Read webpage (could take a while)
            
            $sTitle = _Youtube_GetTitle($sPlayer)
            $sDescription = _Youtube_GetDescription($sPlayer)
            $sID = _Youtube_GetID($sPlayer)
            $sKeywords = _Youtube_GetKeywords($sPlayer)
            
            GUICtrlSetData($iLabel,"Title:       "&$sTitle &@CRLF & _
                "Description:    "& $sDescription &@CRLF & _
                "Keywords:   "& $sKeywords &@CRLF&@CRLF& _
                "ID:         "&$sID)
            
            _Youtube_Load($aPlayerControl, $sPlayer)
            
            GUICtrlSetState($iPlay,$GUI_ENABLE)
        
    EndSwitch
    
WEnd

Youtube.au3

[Andreik]

Very good job.

Work fine.

[WeMartiansAreFriendly]

Looks good,

I'd hate for Youtube to update their code and this broke (this happens all the time), another thing, It depends on two things Internet Explorer and Adobe Flash, which will fail if flash was disabled.

Edited October 12, 2008 by mrRevoked

[ludocus]

umm.. this doesn't work for me..

I have flash and Internet explorer..

It returns the title, description, webstie and keywords all fine..

but I just see a white screen..

[torels]

I'd add a youtube download

And a search

anyway... very good job!

Edited November 5, 2008 by torels