Public gmqTX_Queue As MSMQQueue
Dim qInfo As New MSMQQueueInfo
Set qInfo = New MSMQQueueInfo
qInfo.FormatName = "DIRECT=TCP:" & INDIRIZZO IP & "\Private$\" & NOME CODA PRIVATA
Set gmqTX_Queue = qInfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
If CBool(Err) Then
qInfo.Create
Set gmqTX_Queue = qInfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
endif
gmqTX_Queue.close
Dim oMsg As MSMQMessage
Set oMsg = New MSMQMessage
Set oMsg = mqQueue.Receive(MQ_NO_TRANSACTION, , , 10)
If oMsg Is Nothing Then
...
End If
Dim oMsg As New MSMQMessage
Dim abMessage(10) As Byte
oMsg.Body = abMessage
oMsg.Delivery = 0
oMsg.Send gmqTX_Queue
Silver Black ha scritto:Dovrebbe essere possibile con la semplice API SendMessage.
DilanDog ha scritto:inviando nella coda dei messaggi di windows un proprio messaggio personalizzato
DilanDog ha scritto:mi sembra che in quel modo si possano anche inviare messaggi ad applicazioni residenti su PC differenti, visto che prevede un indirizzo IP, giusto? Il che sarebbe non fantastico, di più
Robby78 ha scritto:DilanDog ha scritto:mi sembra che in quel modo si possano anche inviare messaggi ad applicazioni residenti su PC differenti, visto che prevede un indirizzo IP, giusto? Il che sarebbe non fantastico, di più
esatto! in quel modo conviene usare la coda di trasmissione in locale, e quella di ricezione in remoto.
DilanDog ha scritto: Finita la funzione il messaggio è ancora "lì che aspetta" o è andato perso?
Visitano il forum: Nessuno e 3 ospiti
megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising