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局域网广播和局域网的广播功能,具体怎么操作的?的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息 , 记得收藏关注本站 。
推荐阅读
- linux配置时间命令,linux配置命令退出快捷
- linux命令还原,linux怎么还原文件
- 公司电脑怎么设置手机密码,单位电脑怎么设置密码
- 主播直播洗澡软件,前段时间直播洗脸的明星
- C语言带g的函数 c语言带g的函数怎么写
- 用什么程序好看视频,上好看视频的视频用什么软件剪辑好
- 旧版ppt怎么录屏,ppt2003录屏怎么录
- gis文本竖着,gis布局怎么横向视图
- 主要是练习怎么安装mysql 怎么安装mysql8023