正文
vb.net组播 vbs com组件
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
求一个VB.NET进行局域网内UDP广播的源代码例子
给你个udp多播例子，广播不是很清楚，呵呵
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
Dim port As String
Dim ipadd As String
Dim ipend As IPEndPoint
Dim sendudp As New UdpClient()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim ipadress As IPAddress
ipadress = IPAddress.Parse(TextBox1.Text)
'sendport = Int32.Parse(TextBox2.Text)
'ipend = New IPEndPoint(ipadress, sendport)
Try
sendudp.JoinMulticastGroup(ipadress)
MessageBox.Show("启动完成！")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
相关问答
Q1: VB.Net 2005 把ring.wav 附加到"解决方案资源管理器"后, api怎么播放
My.Computer.Audio.Play("文件路径及文件名")就可以vb.net组播了vb.net组播，vb.net没有必要用API
下面是读取嵌入式文件vb.net组播：
Dim res As Stream = Assembly.GetEntryAssembly.GetManifestResourceStream("ring.wav")
Dim bytes(res.Length - 1) As Byte
res.Read(bytes, 0, bytes.Length)
My.Computer.Audio.Play(bytes, AudioPlayMode.Background)
'注意生成操作哪里要选择vb.net组播：嵌入的资源
Q2: vb.net内嵌的视频怎么用media player控件播放啊？
“工具箱”中单击右键vb.net组播，选择“选择项”菜单vb.net组播，打开“选择工具箱项”窗口vb.net组播，选择“COM组件”标签，在列表中找到并勾选“Windows Media Player”组件，单击“确定”按钮。将该组件添加到指定的工具箱选项卡中，然后在工具箱里面找 Windows Media Player 控件，拉到form里面，拉出来的控件就是AxWindowsMediaPlayer
Q3: VB中数组怎么定义
是这么定义vb.net组播的：
数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，其余的元素连续地分布在上下界之间，且数组在内存中也是用连续的区域来存储的，所以数组每维的长度不能超过Long数据类型的最大值，即264—1=263。
把VB．NET数组当作一个对象来处理，就意味着数组类型是单个引用类型，数组变量包括指向构成数组元素、数组维和数组长度等数据的指针，数组之间互相赋值但仅仅是在相互复制指针，数组继承vb.net组播了System名字空间的Array类。
VB．NET中的数组有两种类型：定长数组和动态数组。
扩展资料：
1、数组的使用
在’VB 6．0中，能够用For Each来循环遍历一个数组。
比如：
Dim x As Integer
F0r Each x In arrayl
Console．WriteLine(x)
Next
2、在VB．NET中能够使用For循环和数组长度来遍历一个数组。
比如：
Dim i As工nteger
F0r i=0 T0 (arrayl．Length-1)
（此处空一行）
Console．WriteLine(arrayl(1)J
Next i
Q4: VB .NET编程是否可以不依赖.NET Framework
这是典型对.net构架不理解造成vb.net组播的！
只要是.net编程，一定使用的是.net类库，必须是同运行版本的.net支持方可运行。而所谓的vb.net只是说编程的语言层使用的是vb语言而已。该语言在.net构架下被编译成为IL语言(MSIL,严格说来是IL的一个子集）。而上层的语言只是产生软件时所使用的一个不同语言规则而已，与IL已经没有任何相关性vb.net组播了。上层语言无论是C#还是VB，甚至是Java(J#)均只适应编程人员的一个策略，与整个构造没有多大的相关性。
.net的最终目的就是让不同的语言编程人员能协同工作，那么语言在其中的区别没有多大vb.net组播了，所有的运行核心都是由.net完成的，没有必须依赖于.net。这是没有任何疑问的。
vb.net就是.net，只是表示用VB语言人的称呼，用C#的则称其为C#.net，但不管是哪种，它是无法脱离.net的。
Q5: 用vb.net实现网络通信
用 vb.net socket通信
Dim th As Threading.Thread
2 Dim tcpl As System.Net.Sockets.TcpListener
3
4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6 th.Start()
7 End Sub
8
9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10 Try
11 If IP "" Then
12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14 Dim reqStream As New IO.StreamWriter(tcpStream)
15 reqStream.Write(SendMsg)
16 reqStream.Flush()
17 tcpStream.Close()
18 tcpc.Close()
19 End If
20 Catch ex As Exception
21 MsgBox(ex.Message.ToString)
22 End Try
23 End Sub
24 Private Sub MyListen()Sub MyListen()
25 Try
26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28 tcpl.Start()
29 While True
30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31 Dim MyBuffer(1024) As Byte
32 Dim i As Integer
33 i = s.Receive(MyBuffer)
34 If i 0 Then
35 Dim lstrRec As String
36 Dim j As Integer
37 For j = 0 To i - 1
38 TextBox1.Text += Chr(MyBuffer(j)) ","
39 Next
40 End If
41 End While
42 Catch ex As Exception
43 MsgBox(ex.Message.ToString)
44 End Try
45 End Sub
46
47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48 SendMessage("192.168.0.61", TextBox2.Text)
49 End Sub
vb.net组播的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs com组件、vb.net组播的信息别忘了在本站进行查找喔。
