请高手来帮我解决UDP侦听占用CPU过高的问题
请先看我的侦听代码:

_udpListener = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
_udpListener.Bind(_LocalPoint)
Do While _StopListen = False
intRcv = _udpListener.ReceiveFrom(byteRcv, 0, byteRcv.Length, SocketFlags.None, thePoint)
If intRcv > 0 Then
strRcv &= Encoding.Default.GetString(byteRcv, 0, intRcv)
If strRcv.EndsWith(SocketEndConst) Then
'激发数据接收事件
ReceiveData(strRcv, CType(thePoint, IPEndPoint))
strRcv = " "
End If
End If
Loop

用新线程启动上面的代码后,CPU占用一直高达48%-50%,无法降低!

请高手帮偶看看问题出在什么地方?有什么解决办法?


[解决办法]
不懂 帮顶
[解决办法]
ReceiveFrom 你用的是同步 然后不断循环
如果这时候远程没有发送数据包,Receive就会一直在那死等出现阻塞
解决方法 用异步BeginReceive 一切ok 不用循环了
[解决办法]
欧VC的不懂VB语法
但是死等不会造成CPU占用过高，而是线程挂起了
一般CPU占用过高应该是接受的时候瞬间返回了又循环接受，造成忙等
应该稍微“死等”，设置接收超时值或者SLEEP
[解决办法]
用异步模式！
[解决办法]
借鉴借鉴
[解决办法]
让侦听线程 sleep 1毫秒试试看。。
[解决办法]
应该是线程竞争资源的问题，作线程同步吧
[解决办法]
恩 不明白 看高人怎么说
[解决办法]
Dim udpRx As UdpClient = Nothing
Dim udpRxThread As Thread = Nothing


Public Sub UDP_Receive()
Thread.Sleep(1000)
Dim IP As New IPEndPoint(System.Net.IPAddress.Any, 12345)
While True
Dim str As String = System.Text.Encoding.UTF8.GetString(udpRx.Receive(IP))
Dim TW As New IO.StreamWriter( "c:\a.txt ", True)
TW.WriteLine(str)
TW.Flush()
TW.Close()
End While
End Sub
[解决办法]
你要仔细查查到底是不是因为Socket导致CPU跑高。
[解决办法]
都给你说了加个sleep或者用超时或者用同步 不会自己试试啊
Do While _StopListen = False
intRcv = _udpListener.ReceiveFrom(byteRcv, 0, byteRcv.Length, SocketFlags.None, thePoint)
If intRcv > 0 Then //大于0处理了，那小于等于零呢？是不是立马又循环去了~一直循环cpu占用能不高么
strRcv &= Encoding.Default.GetString(byteRcv, 0, intRcv)
If strRcv.EndsWith(SocketEndConst) Then
'激发数据接收事件
ReceiveData(strRcv, CType(thePoint, IPEndPoint))
strRcv = " "
End If
End If
Loop

[解决办法]
使用异步，不能使用循环
------解决方案--------------------

应该不是Socket的问题，我在我的电脑上实验了一下，CPU正常！一点都没有跑高。