XP マシンには、.net サービスによって作成されたプライベート メッセージキューがあります。VB6 アプリケーションでこのプライベート キューにアクセスしようとすると、「アクセスが拒否されました」というエラーが表示され続けます。これはセキュリティ上の問題のようですが、管理者としてログオンしている場合でも、同じマシンで作成されたキューにアクセスできない理由がわかりません。他に考慮しなければならないことがありますか。
VB6 でキューを使用する方法のサンプル
Public msgQueue As MSMQQueue
Private Sub OpenQueue()
Dim MQ As New MSMQQueueInfo
MQ .PathName = ".\Private$\incommingQueue"
Set msgQueue = MQ.Open(MQ_RECEIVE_ACCESS, MQ_DENY_NONE)
End Sub