Problem on MSDN

  • Thread starter Thread starter Michael Turner
  • Start date Start date
M

Michael Turner

Hi Guys

I have just taken this article from msdn and it is coming up with an error
any ideas why? If any one wants to see where I found it
http://msdn.microsoft.com/library/d.../en-us/cpguide/html/cpconusingudpservices.asp

There error i get is 'Sub Main' is declared more than once in
'ConsoleApplication2': ConsoleApplication2.UDPMulticastListener.Main(),
ConsoleApplication2.UDPMulticastListener.Main(args() As String) As Integer


[Visual Basic]
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text

Public Class UDPMulticastListener

Private Shared GroupAddress As IPAddress = _
IPAddress.Parse("224.168.100.2")
Private Shared GroupPort As Integer = 11000

Private Shared Sub StartListener()
Dim done As Boolean = False

Dim listener As New UdpClient()
Dim groupEP As New IPEndPoint(GroupAddress, GroupPort)

Try
listener.JoinMulticastGroup(GroupAddress)
listener.Connect(groupEP)

While Not done
Console.WriteLine("Waiting for broadcast")
Dim bytes As Byte() = listener.Receive(groupEP)

Console.WriteLine("Received broadcast from {0} :" + _
ControlChars.Cr + " {1}" + ControlChars.Cr, _
groupEP.ToString(), _
Encoding.ASCII.GetString(bytes, 0, bytes.Length))
End While

listener.Close()

Catch e As Exception
Console.WriteLine(e.ToString())
End Try
End Sub 'StartListener

' Entry point that delegates to C-style main Private Function.
Public Overloads Shared Sub Main()
System.Environment.ExitCode = _
Main(System.Environment.GetCommandLineArgs())
End Sub


Overloads Public Shared Function Main(args() As [String]) As Integer
StartListener()

Return 0
End Function 'Main
End Class 'UDPMulticastListener
 
Michael Turner said:
I have just taken this article from msdn and it is coming up with an error
any ideas why? If any one wants to see where I found it
http://msdn.microsoft.com/library/d.../en-us/cpguide/html/cpconusingudpservices.asp

There error i get is 'Sub Main' is declared more than once in
'ConsoleApplication2': ConsoleApplication2.UDPMulticastListener.Main(),
ConsoleApplication2.UDPMulticastListener.Main(args() As String) As Integer


[Visual Basic]
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text

Public Class UDPMulticastListener

Private Shared GroupAddress As IPAddress = _
IPAddress.Parse("224.168.100.2")
Private Shared GroupPort As Integer = 11000

Private Shared Sub StartListener()
Dim done As Boolean = False

Dim listener As New UdpClient()
Dim groupEP As New IPEndPoint(GroupAddress, GroupPort)

Try
listener.JoinMulticastGroup(GroupAddress)
listener.Connect(groupEP)

While Not done
Console.WriteLine("Waiting for broadcast")
Dim bytes As Byte() = listener.Receive(groupEP)

Console.WriteLine("Received broadcast from {0} :" + _
ControlChars.Cr + " {1}" + ControlChars.Cr, _
groupEP.ToString(), _
Encoding.ASCII.GetString(bytes, 0, bytes.Length))
End While

listener.Close()

Catch e As Exception
Console.WriteLine(e.ToString())
End Try
End Sub 'StartListener
Click to expand...


\\\
Public Shared Sub Main()
StartListener()
End Sub
///
 
Hi

Thanks, but I now get the following error

System.Net.Sockets.SocketException: An invalid argument was supplied
at System.Net.Sockets.Socket.setMulticastOption(SocketOptionName
optionName,
MulticastOption MR)
at System.Net.Sockets.Socket.SetSocketOption(SocketOptionLevel
optionLevel, S
ocketOptionName optionName, Object optionValue)
at System.Net.Sockets.UdpClient.JoinMulticastGroup(IPAddress
multicastAddr)
at ConsoleApplication2.UDPMulticastListener.StartListener() in
C:\Documents a
nd Settings\Michael\My Documents\Visual Studio
Projects\ConsoleApplication2\Modu
le1.vb:line 19

Herfried K. Wagner said:
Michael Turner said:
I have just taken this article from msdn and it is coming up with an
error any ideas why? If any one wants to see where I found it
http://msdn.microsoft.com/library/d.../en-us/cpguide/html/cpconusingudpservices.asp

There error i get is 'Sub Main' is declared more than once in
'ConsoleApplication2': ConsoleApplication2.UDPMulticastListener.Main(),
ConsoleApplication2.UDPMulticastListener.Main(args() As String) As
Integer


[Visual Basic]
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text

Public Class UDPMulticastListener

Private Shared GroupAddress As IPAddress = _
IPAddress.Parse("224.168.100.2")
Private Shared GroupPort As Integer = 11000

Private Shared Sub StartListener()
Dim done As Boolean = False

Dim listener As New UdpClient()
Dim groupEP As New IPEndPoint(GroupAddress, GroupPort)

Try
listener.JoinMulticastGroup(GroupAddress)
listener.Connect(groupEP)

While Not done
Console.WriteLine("Waiting for broadcast")
Dim bytes As Byte() = listener.Receive(groupEP)

Console.WriteLine("Received broadcast from {0} :" + _
ControlChars.Cr + " {1}" + ControlChars.Cr, _
groupEP.ToString(), _
Encoding.ASCII.GetString(bytes, 0, bytes.Length))
End While

listener.Close()

Catch e As Exception
Console.WriteLine(e.ToString())
End Try
End Sub 'StartListener
Click to expand...


\\\
Public Shared Sub Main()
StartListener()
End Sub
///
End Class 'UDPMulticastListener
Click to expand...
Click to expand...
 
Back
Top