本文整理匯總了VB.NET中System.Messaging.MessageQueue.GetPublicQueuesByMachine方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET MessageQueue.GetPublicQueuesByMachine方法的具體用法？VB.NET MessageQueue.GetPublicQueuesByMachine怎麽用？VB.NET MessageQueue.GetPublicQueuesByMachine使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類System.Messaging.MessageQueue的用法示例。
在下文中一共展示了MessageQueue.GetPublicQueuesByMachine方法的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: MyNewQueue
' 導入命名空間
Imports System.Messaging
Public Class MyNewQueue
' Provides an entry point into the application.
'
' This example gets lists of queues by a variety
' of criteria.
Public Shared Sub Main()
' Create a new instance of the class.
Dim myNewQueue As New MyNewQueue()
' Send normal and high priority messages.
myNewQueue.GetQueuesByCategory()
myNewQueue.GetQueuesByLabel()
myNewQueue.GetQueuesByComputer()
myNewQueue.GetAllPublicQueues()
myNewQueue.GetPublicQueuesByCriteria()
myNewQueue.GetPrivateQueues()
Return
End Sub
' Gets a list of queues with a specified category.
' Sends a broadcast message to all queues in that
' category.
Public Sub GetQueuesByCategory()
' Get a list of queues with the specified category.
Dim QueueList As MessageQueue() = _
MessageQueue.GetPublicQueuesByCategory(New _
Guid("{00000000-0000-0000-0000-000000000001}"))
' Send a broadcast message to each queue in the array.
Dim queueItem As MessageQueue
For Each queueItem In QueueList
queueItem.Send("Broadcast message.")
Next queueItem
Return
End Sub
' Gets a list of queues with a specified label.
' Sends a broadcast message to all queues with that
' label.
Public Sub GetQueuesByLabel()
' Get a list of queues with the specified label.
Dim QueueList As MessageQueue() = _
MessageQueue.GetPublicQueuesByLabel("My Label")
' Send a broadcast message to each queue in the array.
Dim queueItem As MessageQueue
For Each queueItem In QueueList
queueItem.Send("Broadcast message.")
Next queueItem
Return
End Sub
' Gets a list of queues on a specified computer.
' Displays the list on screen.
Public Sub GetQueuesByComputer()
' Get a list of queues on the specified computer.
Dim QueueList As MessageQueue() = _
MessageQueue.GetPublicQueuesByMachine("MyComputer")
' Display the paths of the queues in the list.
Dim queueItem As MessageQueue
For Each queueItem In QueueList
Console.WriteLine(queueItem.Path)
Next queueItem
Return
End Sub
' Gets a list of all public queues.
Public Sub GetAllPublicQueues()
' Get a list of public queues.
Dim QueueList As MessageQueue() = _
MessageQueue.GetPublicQueues()
Return
End Sub
' Gets a list of all public queues that match
' specified criteria. Displays the list on
' screen.
Public Sub GetPublicQueuesByCriteria()
' Define criteria to filter the queues.
Dim myCriteria As New MessageQueueCriteria()
myCriteria.CreatedAfter = DateTime.Now.Subtract(New _
TimeSpan(1, 0, 0, 0))
myCriteria.ModifiedBefore = DateTime.Now
myCriteria.MachineName = "."
myCriteria.Label = "My Queue"
' Get a list of queues with that criteria.
Dim QueueList As MessageQueue() = _
MessageQueue.GetPublicQueues(myCriteria)
' Display the paths of the queues in the list.
Dim queueItem As MessageQueue
For Each queueItem In QueueList
Console.WriteLine(queueItem.Path)
Next queueItem
Return
End Sub
' Gets a list of private queues on the local
' computer. Displays the list on screen.
Public Sub GetPrivateQueues()
' Get a list of queues with the specified category.
Dim QueueList As MessageQueue() = _
MessageQueue.GetPrivateQueuesByMachine(".")
' Display the paths of the queues in the list.
Dim queueItem As MessageQueue
For Each queueItem In QueueList
Console.WriteLine(queueItem.Path)
Next queueItem
Return
End Sub
End Class