일시 정지하려고 액세스 거부 오류를 얻기/발신 메시지 큐 여기

Question

Imports System.Messaging 
Imports System.Collections 
Imports MSMQ 
Imports System.IO 
Imports System 
Imports System.Messaging.MessageQueue 
Imports System.Runtime.InteropServices 

Public Class PauseOutMessages 
    'Declare everything to be in the scope of all methods. 
    Dim mgmt As New MSMQManagement 
    Dim outqmgmt As MSMQOutgoingQueueManagement 
    Dim q As New MSMQApplication 
    Dim outgoingQueues As New ArrayList 
    Dim myQueue As New MessageQueue("FormatName:DIRECT=OS:myMachine\Private$\myQueue", QueueAccessMode.ReceiveAndAdmin) 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

     For Each queue In q.ActiveQueues 
      If queue.IndexOf("DIRECT=") >= 0 Then 
       outgoingQueues.Add(queue) 
      End If 
     Next 

    End Sub 

    Private Sub Pause_Click(sender As Object, e As EventArgs) Handles Pause.Click 
     For Each queuePath In outgoingQueues 
      mgmt.Init(FormatName:=queuePath) 
      outqmgmt = mgmt.Pause() 
     Next 
    End Sub 

    Private Sub Restart_Click(sender As Object, e As EventArgs) Handles Restart.Click 
     For Each queuePath In outgoingQueues 
      mgmt.Init(FormatName:=queuePath) 
      outqmgmt = mgmt.Resume() 
     Next 
    End Sub 

    Private Sub Send_Click(sender As Object, e As EventArgs) Handles Send.Click 
     myQueue.Send("Test") 
     For Each queue In q.ActiveQueues 
      If queue.IndexOf("DIRECT=") >= 0 Then 
       outgoingQueues.Add(queue) 
      End If 
     Next 
    End Sub 
End Class 

을 다시는 내가 원하는 나가는 대기열에 걸리면 존재하지 않는 경로로 테스트 메시지를 보내, 내가 사용하고있는 코드입니다 MSMQOutgoingQueueManagement.Pause 또는 .Resume을 호출하여 모든 보내는 큐를 시작하고 중지 할 수 있습니다.

그러나 mgmt.Pause() 또는 mgmt.Resume()에서 액세스가 거부되었다는 오류가 계속 발생합니다. 보안 설정을 조정할 수 있도록 나가는 큐의 속성에 접근 할 수있는 방법을 찾지 못하는 것 같습니다. 어떤 도움이라도 대단히 감사하겠습니다!

Answer 1

해박!

밝혀졌습니다. 저는 관리자로서 Visual Studio를 시작해야만했습니다.