Latest Movie Updates : Cinebuzz.in
Latest Update on Rajini Movie Enthiran / Endhiran - Rajini - The Robot
Imports System.Net.Sockets
Protected Shared Function UDPDataTransmit( _
ByVal sBuff() As Byte, ByRef rBuff() As Byte, _
ByVal IP As String, ByVal Port As Integer) As Integer 'Returns # bytes received
Dim retstat As Integer
Dim Sck As Sockets.Socket
Dim Due As DateTime
Dim Encrp As IPEndPoint
Try
Sck = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
Sck.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.ReceiveTimeout, 10000)
Sck.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.SendTimeout, 10000)
Encrp = New IPEndPoint(IPAddress.Parse(IP), Port)
retstat = Sck.SendTo(sBuff, 0, sBuff.Length, SocketFlags.None, Encrp)
If retstat > 0 Then
Due = Now.AddMilliseconds(10000) '10 second time-out
Do While Sck.Available = 0 AndAlso Now < Due
Loop
If Sck.Available = 0 Then
'timed-out
retstat = -3
Return retstat
End If
ReDim rBuff(Sck.Available - 1)
retstat = Sck.ReceiveFrom(rBuff, 0, Sck.Available, SocketFlags.None, CType(Encrp, EndPoint))
Else
retstat = -1 ' fail on send
End If
Catch ex As Exception
'General Exception received--add code here to analyze the exception. A messagebox would be one idea.
retstat = -2
Finally
Sck.Close() 'Always close the socket when done.
End Try
Return retstat
End Function