本文整理汇总了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