7,763
社区成员
发帖
与我相关
我的任务
分享
Set queueInfo = New MSMQQueueInfo
queueInfo.FormatName = "DIRECT=TCP:" & Text2.Text & "\private$\in"
queueInfo.PathName = "vv\private$\in"
queueInfo.Create
Set queueInfo = New MSMQQueueInfo
queueInfo.FormatName = "DIRECT=TCP:" & Text2.Text & "\private$\in"
Set q = queueInfo.Open(MQACCESS.MQ_RECEIVE_ACCESS, MQSHARE.MQ_DENY_NONE)
Set evt = New MSMQEvent
q.EnableNotification evt