Code: Select all
Private Sub Form_Load()
Dim opt() As Variant
opt() = Array(":sout=#duplicate{dst=display,dst=" & Chr(34) & "standard{mux=ts,dst=239.255.12.43,access=udp}" & Chr(34) & "}", ":ttl=12")
'VLCPlugin1.addTarget "C:\Alizee\isla.mpg", ":ttl=12", VLCPlayListInsert, -666
'VLCPlugin1.MRL = "C:\Alizee\isla.mpg :sout=#duplicate{dst=display,dst=" & Chr(34) & "standard{mux=ts,dst=239.255.12.43,access=udp}" & Chr(34) & "}"
VLCPlugin1.addTarget "C:\Alizee\isla.mpg", Null, VLCPlayListInsert, -666
VLCPlugin1.play
End Sub
Thank you