' 导入命名空间
Imports System.Messaging



Public Class MyNewQueue


        
        ' Provides an entry point into the application.
        '		 
        ' This example verifies existence and attempts to 
        ' delete a queue.
        

        Public Shared Sub Main()

            ' Determine whether the queue exists.
            If MessageQueue.Exists(".\myQueue") Then

                Try

                    ' Delete the queue.
                    MessageQueue.Delete(".\myQueue")

                Catch e As MessageQueueException

                    If e.MessageQueueErrorCode = _
                        MessageQueueErrorCode.AccessDenied Then

                        Console.WriteLine("Access is denied. " _
                            + "Queue might be a system queue.")
                    End If

                    ' Handle other sources of exceptions as necessary.

                End Try

            End If


            Return

        End Sub

End Class

' 导入命名空间
Imports System
Imports System.IO
Imports System.Messaging

Public Class MainClass
    
    Shared Sub Main()
        Dim mQ As MessageQueue
        Dim mes As Message
        Dim X As String
        Dim br As BinaryReader

        If MessageQueue.Exists(".\Private$\HelloWorld") Then
            mQ = New MessageQueue(".\Private$\HelloWorld")
        Else
            Console.WriteLine("Queue doesn't exist.")
            Return
        End If

        Try
            mes = mQ.Receive(New TimeSpan(0, 0, 3))
            br = New BinaryReader(mes.BodyStream)
            X = New String(br.ReadChars(CType(mes.BodyStream.Length, Integer)))
            Console.WriteLine("Received Message: {0}", X)
        Catch
            Console.WriteLine("No Message to Receive.")
        End Try
    End Sub
End Class