VB.Net/Network Remote/Message Sender — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:45, 26 мая 2010
Message Sender Demo
<source lang="vbnet"> 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
</source>