Urgent: Création d'un pipe avec VB

Question

Je voudrais créer un pipe en VB grace a l'api createnamedpipe, mais le pipe ne se crée pas, voici le code:

    Dim sa As SECURITY_ATTRIBUTES
    Dim Psd As SECURITY_DESCRIPTOR
    Dim ResInit As Long
    Dim PsdPtr As Long
    Dim PAcl As Acl
    Dim PipeName As String
    Dim HPipe As Long
    
    PsdPtr = 0
    PsdPtr = HeapAlloc(GetProcessHeap(), 0, LenB(Psd) + 1)
    
    ResInit = InitializeSecurityDescriptor(PsdPtr, SECURITY_DESCRIPTOR_REVISION)
    ResInit = SetSecurityDescriptorDacl(Psd, 1, PAcl, 0)
    
    sa.nLength = LenB(sa)
    sa.lpSecurityDescriptor = PsdPtr
    sa.bInheritHandle = 1
    PipeName = "\\.\PIPE\EventManager"
    HPipe = CreateNamedPipe(PipeName, PIPE_ACCESS_INBOUND Or FILE_FLAG_OVERLAPPED, _
                PIPE_WAIT Or PIPE_READMODE_MESSAGE Or PIPE_TYPE_MESSAGE, PIPE_UNLIMITED_INSTANCES, _
                256, 256, 0, sa)

Le pipe ne se crée pas parce que la première api (InitializeSecurityDescriptor), ne se passe pas bien...
QQ peut-il m'aider, ou me donner un exemple de création d'un named pipe en VB.
Merci.

cs_Vermifuge · Answer

InitializeSecurityDescriptor(PsdPtr, SECURITY_DESCRIPTOR_REVISION)

Je crois que le probl&#232;me vient du fait qu'il faut passer un pointeur vers PsdPtr, n'est-ce-pas &PsdPtr ?

( je programme en ASM, pas en VB, donc je ne suis pas s&#251;r que VB ne passe pas un pointeur dans ce cas ).

@+
Vermi