Sub Process_Globals
End Sub
Sub Globals
Dim YouTube As YouTubeStandalonePlayer
End Sub
Sub Activity_Create(FirstTime As Boolean)
YouTube.Initialize("YouTube")
If YouTube.CheckPlayerSupported <> "SUCCESS" Then
Msgbox("YouTube service not available: " & CRLF & YouTube.CheckPlayerSupported, "")
Else
Activity.AddMenuItem3("Play Video", "PlayVideo", Null, True)
End If
End Sub
Sub PlayVideo_Click
YouTube.StartVideo("AIzaSyxxxxxxxx-xxxx-xxxxxxxxxxxx", _
"0xdZXOM_Otc", 0, False, True)
End Sub
Sub YouTube_Result (Message As String)
Log("Result = " & Message)
End Sub