Ceviren olursa teşekkurler

Kod:
Function writeMailSlot(MailSlotName As String) As Long Dim KO_MSLOT As Long, pHook As String, p() As Byte, ph() As Byte, CF As Long, WF As Long, CH As Long KO_MSLOT = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE) If KO_MSLOT