I'm trying to make a videochat like skype.
I'm using VB6 and I created a form with VLCplugin1 and a button.
When the button is clicked, the following code is executed:
Private Sub Command1_Click()
Dim opt() As Variant
Dim connect_string As String
connect_string = "dshow:// :dshow-vdev="" :dshow-adev="" :dshow-size="" "
opt() = Array(":sout=#transcode{vcodec=WMV2,vb=512,scale=1,acodec=mpga,ab=64,channels=2}:duplicate{dst=display,dst=std{access=http,mux=ts,dst=localhost:1234}}")
VLCPlugin1.addTarget connect_string, opt(), VLCPlaylistMode.VLCPlayListReplaceAndGo, -666
VLCPlugin1.play
End Sub
It shows my webcam images and I can listen my voice.
This code also send the image to localhost at 1234.
If I choice to send video end audio to another ip in my lan it works correctly.
The problem is that I don't need to listen my voice on my pc I only need to send the audio.
I tried VLCPlugin1.volume=0 but in this case I don't listen the audio but I cannot send the audio too.
I also tried to remove the line VLCPlugin1.play.
In other words if you use skype you only listen the voice of your friends but in my application you listen your voice too.
Could someone help me?