vb.net局域网广播 局域网的广播功能,具体怎么操作的?( 四 )


Public Function OnlineUser(Index As Integer, Hall As Integer)
Dim I As Long
Dim strOnUser As String
For I = 0 To 最大人数
If 用户(I).游戏ID = Hall And Len(用户(I).用户名)0 And 用户(I).连接号Index And 用户(I).用户状态 = 1 Then
OnUser = OnUser"###"用户(I).所在桌"$"用户(I).所在座"$"Ustr(I)"$"用户(I).用户名"$"用户(I).连接号"$"用户(I).IP
FrmMain.DeBugs ("user:"I"GameId:"用户(I).游戏ID";username:"用户(I).用户名";Connectnum:"用户(I).连接号";userstaus:"用户(I).用户状态"----send")
Else
FrmMain.DeBugs ("user:"I"GameId:"用户(I).游戏ID";username:"用户(I).用户名";Connectnum:"用户(I).连接号";userstaus:"用户(I).用户状态"----not send")
End If
DoEvents
Next
'///报头+1房间ID+2桌+3坐+4性别+5积分+6胜+7输+8团队+9职务+10头像+11上次LOGON时间+12昵称+13用户名+14连接号+15ip
OnlineUser = "4000$"Hall"$"OnUser
End Function
求一个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
【vb.net局域网广播 局域网的广播功能,具体怎么操作的?】关于vb.net局域网广播和局域网的广播功能,具体怎么操作的?的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息 , 记得收藏关注本站 。

推荐阅读