VB.Net/Network Remote/Message Receiver

Материал из VB Эксперт
Перейти к: навигация, поиск

Message Receiver Demo

<source lang="vbnet"> 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


      </source>