关于消息队列的一个问题

Question

我的问题如下
我要检索一个消息队列下某条Label为"STATUS"的消息根据这条消息的Label来获取他的Body，可是每次打开的只能获取第一个，是否要循环每一条消息才行，另外不能删除这条消息，只要读取即可。请教高手    dim mStrQueueInfo as string         mQueueinfo.PathName = ".\PRIVATE$\MYQUEUE"
    Set mQueueCheck = mQueueinfo.Open(MQ_RECEIVE_ACCESS, MQ_DENY_NONE)    '打开队列
    Set mQueueMessage = mQueueCheck.Peek()
        
    If mQueueMessage.Label = "STATUS" Then
       mStrQueueInfo  = mQueueMessage.Body
    END if

Answer 1

http://blog.csdn.net/online/archive/2004/07/07/36007.aspx
http://blog.csdn.net/online/archive/2004/07/07/36010.aspx看完就知道了