Sub test1
Dim jo As JavaObject = Player
Dim TrackGroups As JavaObject = jo.GetFieldJO("player").RunMethod("getCurrentTrackGroups", Null)
For i = 0 To TrackGroups.GetField("length") - 1
Dim TrackGroup As JavaObject = TrackGroups.RunMethod("get", Array(i))
For j = 0 To TrackGroup.GetField("length") - 1
Dim Format As JavaObject = TrackGroup.RunMethodJO("getFormat", Array(j))
Log(Format)
Log(Format.GetField("label") & ":" & Format.GetField("sampleMimeType")) '音轨和字幕语言名称
Log(Format.GetField("id") )
Next
Next
End Sub