En commentaire ce qui n'est pas finis.
- Code : Tout sélectionner
Option Public
' net.h => SESSIONID
Const BILL_QUEUE_NAME = "MQ$BILLING"
Const BILL_CLASS_SESSION = &h00000001
Const BILL_CLASS_REPLICATION = &h00000002
Const BILL_CLASS_DOCUMENT = &h00000004
Const BILL_CLASS_MAIL = &h00000008
Const BILL_CLASS_DATABASE = &h00000010
Const BILL_CLASS_AGENT = &h00000020
Const BILL_CLASS_HTTPREQUEST = &h00000040
' Réservé 1-32000, inutilisé 32001-64K
Const BILL_SESSIONREC = 1 ' Session => 1-1000
Const BILL_REPLREC = 1001 ' Réplication => 1001-2000
Const BILL_DOCCHARGE = 2001 ' Document => 2001-3000
Const BILL_MAILREC = 3001 ' Mail => 3001-4000
Const BILL_DBREC = 4001 ' Base => 4001-5000
Const BILL_AGENTREC = 5001 ' Agent => 5001-6000
Const BILL_HTTPREQREC =6001 ' HTTP => 6001-6999
' Action
Const BILL_SESSION_START = 1
Const BILL_DB_OPEN = 2
Const BILL_DB_CLOSE = 3
Const BILL_SESSION_STAMP = 4
Const BILL_DB_STAMP = 5
Const BILL_DB_CLOSE_END = 6
Const BILL_SESSION_END = 255
Const BILLCHARGEREAD = 1
Const BILLCHARGEWRITE = 2
Const BILL_ROUTINGSTATE_PENDING = 0
Const BILL_ROUTINGSTATE_DEAD = 1
Const BILL_ROUTINGSTATE_HOLD = 2
' Agents
Const BILL_AGENT_WARNINGS = &h00000001
Const BILL_AGENT_MAIL = &h00000002
Const BILL_AGENT_PUBLIC = &h00000004
Type SESSIONREC
SessionID As Long ' SessionID As SESSIONID
Action As Integer
Username As String ' Username[MAXUSERNAME+1]
BytesIn As Long
BytesOut As Long
NetAdr As String ' NetAdr(MAXNETADR]
End Type
Type DBREC
SessionID As Long ' SessionID as SESSIONID
Action As Integer
Username As String ' Username[MAXUSERNAME+1]
DBOpenTime As Long
ReplicaID As Long ' ReplicaID As TIMEDATE
End Type
Type REPLREC
SessionID As Long ' SessionID As SESSIONID
BytesIn As Long
BytesOut As Long
ReplicaID As Long ' ReplicaID as TIMDATE
Source As String ' Source[MAXUSERNAME+1]
Destination As String ' Destination[MAXUSERNAME+1]
Priority As Integer
End Type
Type DOCUMENT
Type As Integer ' $ChargeUpdate ou $ChargeRead
ReplicaID As Long ' ReplicaID as TIMEDATE
Username As String ' Username[MAXUSERNAME+1]
OriginatorID As Long ' OriginatorID As OID
Charge As Long ' Charge As Number (Champs $Charg)
End Type
Type MAILREC
FormType As String ' FormType[DESIGN_NAME_MAX]
OriginatorID As Long ' OriginatorID As OID
OrigMessageID As Long ' OrigMessageID As UNID
MessageSize As Long
HopName As String ' HopName[MAXUSERNAME+1]
Priority As Integer
RoutingState As Integer
Report As Integer
Originator As String ' Originator[MAXUSERNAME+1]
RecipientCount As Integer
RecipientSize As Integer
PostedDate As Long ' PostedDate As TIMEDATE
End Type
Type AGENTREC
ULen As Integer
TLen As Integer
DLen As Integer
ElapsedRunTime As Long
Flags As Long
End Type
Type HTTPREQREC
HttpContentLength As Long
HttpReqTimeMs As Long
HttpStatusCode As Long
HttpTimeStampOffset As Integer
HttpAuthUserOffset As Integer
HttpPartnerOffset As Integer
HttpRefererOffset As Integer
HttpServerAddrOffset As Integer
HttpUserAgentOffset As Integer
HttpRequestLineOffset As Integer
HttpContentTypeOffset As Integer
End Type
Type BILLREC
sess As SESSIONREC
repl As REPLREC
doc As DOCUMENT
mail As MAILREC
db As DBREC
agent As AGENTREC
HttpRequest As HTTPREQREC
End Type
Type BILLMSG
Len As Integer
StructType As Integer
Class As Long
ServerName As String ' ServerName[MAXUSERNAME+1]
TimeStamp As Long ' TimeStamp As TIMEDATE
rec As BILLREC
End Type
Declare Function BillingWrite Lib "nnotes.dll" (lClass As Long, StructType As Integer, iLen As Integer, pMessage As Integer, MQNAME As String) As Long ' void far *pMessage
Declare Function BillingGetClass Lib "nnotes.dll" (BillingClass As Long) As Long
