‘客户端向这样写：在窗体说放两个文本框、两个标签、两个按钮、一个列表框
创新互联建站是一家专注于成都网站设计、网站制作、外贸营销网站建设与策划设计,掇刀网站建设哪家好?创新互联建站做网站,专注于网站建设十多年,网设计领域的专业建站公司;建站业务涵盖:掇刀等地区。掇刀做网站价格咨询:028-86922220
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading
Public Class Form1
'网络基础数据流
Private ns As NetworkStream
Private swriter As StreamWriter
Private nsread As StreamReader
Private tcpclient As TcpClient
Private tcpconnected As Boolean = False
Private clisocket As Socket
Private mythread As Thread
'发送
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.TextBox2.Text "" Then
swriter.WriteLine(Me.TextBox2.Text)
swriter.Flush()
Me.TextBox2.Text = ""
Else
MessageBox.Show("发送信息不能为空！", "错误提示")
End If
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'建立连连接
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ipremote As IPAddress
Dim tcpclient As TcpClient
Try
ipremote = IPAddress.Parse(Me.TextBox1.Text)
Catch ex As Exception
MessageBox.Show("IP地址不合法！", "错误提示")
End Try
Try
tcpclient = New TcpClient(Me.TextBox1.Text, 8000)
ns = tcpclient.GetStream
swriter = New StreamWriter(ns)
Me.StatusBar1.Text = "已经连接上"
Me.Button2.Enabled = False
Me.Button1.Enabled = True
tcpconnected = True
Catch ex As Exception
MessageBox.Show("无法与远程8000端口建立连接！", "错误提示")
End Try
End Sub
Private Sub listen()
Try
Dim tcplistener As New TcpListener(IPAddress.Parse("127.0.0.1"), 8000)
tcplistener.Start()
tcpclient = tcplistener.AcceptTcpClient
ns = tcpclient.GetStream()
nsread = New StreamReader(ns)
While True
Dim msg As String = nsread.ReadLine
If msg = "stop" Then
tcplistener.Stop()
ns.Close()
nsread.Close()
mythread.Abort()
Else
Dim mytime As String = DateTime.Now.ToShortTimeString
Me.ListBox1.Items.Add(mytime + " " + msg)
End If
End While
Catch ex As System.Security.SecurityException
MessageBox.Show("侦听失败！", "错误")
End Try
End Sub
End Class
首先要确定播放的视频格式是什么格式，如果是windows media player支持的格式，直接使用该控件就行了，如果是单个视频的话，比如命名为myPlayer,则：
myPlayer.url="视频文件完整路径"
1、Openfire 采用Java开发，开源的实时协作（RTC）服务器基于XMPP（Jabber）协议。 您可以使用它轻易的构建高效率的即时通信服务器. Openfire安装和使用都非常简单，并利用Web进行管理。单台服务器可支持上万并发用户。 由于是采用开放的XMPP协议，您可以使用各种支持XMPP协议的IM客户端软件登陆服务.
2、Adobe的FMS是一个多媒体应用平台，使用该平台，你可以通过网络存储录制下来的音频、视频，也可以共享数据对象，并且可以将这些音频、视频和共享数据对象传递给多个客户端，实现实时同步共享。该平台集成了通讯功能和应用程序功能，它通过Flash Player(Flash player6或更高)在客户端提供音频共享，视频共享和数据流。在这个平台上，可以实现多媒体流的点播、直播、交互等多种应用，由于Adobe公司在网络多媒体应用上的雄厚实力，以及Adobe Flash Player在网络上应用的广泛性，因此，FMS成为诸多多媒体应用的服务器端主要应用平台。
3、Red5的主要功能和Macromedia公司的FMS类似，提供基于Flash的流媒体服务的一款基于Java的开源流媒体服务器。它由Java语言编写，使用RTMP作为流媒体传输协议，这与FMS完全兼容。它具有流化FLV、MP3文件，实时录制客户端流为FLV文件，共享对象，实时视频播放、Remoting等功能。用Red5替换FMS后,客户端不用更改可正常运行。
这3个产品你可以参考一下 都是用java来开发的 目前的视频聊天功能已经比较成熟了。 希望能帮到你····
使用Microsoft.DirectX.AudioVideoPlayback组件。
首先，需要安装DirectX SDK.
DirectX 9.0c Redistributable
DirectX 9.0 SDK Update
然后将对Microsoft.DirectX.AudioVideoPlayback.dll的引用添加到你的项目。
使用这段代码在Panel控件上放置一个视频文件：
ImportsMicrosoft.DirectX.AudioVideoPlayback
Public Class Form1
Private Sub Form1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) Handles MyBase.Load
Dim videoFile As Audio =New Audio("D:\Video1.avi")
videoFile.Owner = Panel1
videoFile.Play()
EndSub
EndClass
'以前收集的资料，没用过,你自己整整
2)使用Windows Media Player控件也能播放视频。
右击工具箱-选项- COM组件-定位并添加“Windows Media Player” ActiveX控件
然后“Windows Media Player”控件将会出现在工具箱上。将它拖动到窗体上来生产一个AxWindowsMediaPlayer1对象,并为URL属性指定音频或者视频文件。
AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"
Media Player控件默认将会自动播放文件。