Message Sender Demo : Message Sender « Network Remote « VB.Net

1. VB.Net
2. Network Remote
3. Message Sender

Message Sender Demo

Imports System
Imports System.Messaging

Public Class MainClass
    
    Shared Sub Main()
      Dim Greeting As String = "Hello World!"
      Dim mQ As MessageQueue
      If MessageQueue.Exists(".\Private$\HelloWorld") Then
         mQ = New MessageQueue(".\Private$\HelloWorld")
      Else
         mQ = MessageQueue.Create(".\Private$\HelloWorld")
      End If

      mQ.Send(Greeting, "HelloWorld")
      Console.WriteLine("Greeting Message Sent to Private Queue.")
    End Sub
End Class


           
       

Related examples in the same category