[kleop]

Собственно проблема....
Насколько знаю скайп работает через DirectSound c 3 версии. Пытаюсь перехватить событие DirectSoundCreate и DirectSoundCreate8 для дальнейшего захвата звука методом сплайсинга.
Насколько известно DirectSoundCreate выполняется при старте скайпа, соотвественно хук должен быть поставлен до загрузки скайпа.
Хук ставлю через

Код:

1	SetWindowsHookEx(WH_GETMESSAGE, p, h, 0);

(может в этом проблема, ставить он позже чем вызываеться DirectSoundCreate, но врядли так как на момент загрузки длл dsound ещё неподключен.)
пробовал с других программ захватывать waveout, всё гуд, а директикс никак нейдёт.

Потом в длл'ке

в зоне

Код:

1 2 3 4 5 6 7 8 9 10

initialization begin   // сравниваем идентификатор процесса, в который нас загрузили,   // с идентификатором skype.exe   if GetModuleHandle(nil)=GetModuleHandle('Skype.exe') then   begin     IsSmth:=false;     CreateThread(nil, 0, @WorkWithSkype, pointer(12345), 0, thID);   end; end;

процедура WorkWithSkype

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure WorkWithSkype(thrVar: integer) ; begin   AssignFile(f,'Log.txt');   {$I-}   Append(f);   {$I-}   if IOResult<>0 then   begin     MessageBox(0,'Ошибка создания файла Log.txt','Skype',MB_OK);   end;   WriteLn(f,'We are in skype!'+inttostr(GetModuleHandle(nil))+' - '+inttostr(GetModuleHandle('Skype.exe'))); // запись в файл строки с символами перевода строки   // replace api functions   InterceptFunctions;   OwThr:=true;   CloseFile(f); // закрыть файл end;

собственно функция сплайсинга InterceptFunctions

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74

//подмененые функции function HDirectSoundCreate(lpGuid: PGUID; out ppDS: IDirectSound; pUnkOuter: IUnknown): HResult; stdcall; begin     AssignFile(f,'D:\Work\Other\Delphi\NetWork\simkl tray\mp3Save\Log.txt'); // привязка названия к переменной     {$I-}     Append(f); // создать новый файл     {$I-}     if IOResult<>0 then // если ошибка открытия (напр. файла нет)     begin       MessageBox(0,'Ошибка создания файла Log.txt','Skype',MB_OK);     end;     WriteLn(f,'DirectFSoundCreate hooked'); // запись в файл строки с символами перевода строки     CloseFile(f); // закрыть файл     Result:=0; end;   function HDirectSoundCreate8(pcGuidDevice: PGUID; out ppDS8: IDirectSound8; pUnkOuter: IUnknown): HResult; stdcall; begin     AssignFile(f,'D:\Work\Other\Delphi\NetWork\simkl tray\mp3Save\Log.txt'); // привязка названия к переменной     {$I-}     Append(f); // создать новый файл     {$I-}     if IOResult<>0 then // если ошибка открытия (напр. файла нет)     begin       MessageBox(0,'Ошибка создания файла Log.txt','Skype',MB_OK);     end;     WriteLn(f,'DirectFSoundCreate8 hooked'); // запись в файл строки с символами перевода строки просто чтобы убедится что мы тут были.     CloseFile(f); // закрыть файл     Result:=0; end;   procedure InterceptFunctions; var modul:HMODULE; begin   modul:=GetModuleHandle('dsound.dll');   if (modul=0) then modul:=LoadLibrary('dsound.dll');   DAuOut:=GetProcAddress(modul,'DirectSoundCreate');   DAuOut8:=GetProcAddress(modul,'DirectSoundCreate8');     if (DAuOut=nil)   then Writeln(f,'DirectSoundCreate in dsound.dll was not found')   else Writeln(f,'DirectSoundCreate in dsound.dll was found');   if (DAuOut8=nil)   then Writeln(f,'DirectSoundCreate8 in dsound.dll was not found')   else Writeln(f,'DirectSoundCreate8 in dsound.dll was found');     // replace directx   jump.instr_push := $68; //push   jump.instr_ret := $C3; // ret     //replace Direct Sound with out buf   if (DAuOut<>nil) then   begin     IsSmth:=true;   //replace DirectSoundCreate function     jump.arg := @HDirectSoundCreate;     ReadProcessMemory(GetCurrentProcess(),DAuOut,@Dold, sizeof(OldCode),Writen);     Writeln(f,'DAuOut read: '+inttostr(Writen));     WriteProcessMemory(GetCurrentProcess(), DAuOut, @jump, sizeof(jmp_far), Writen);     Writeln(f,'DAuOut write: '+inttostr(Writen));     end;     if (DAuOut8<>nil) then   begin     IsSmth:=true;   //replace DirectSoundCreate8 function     jump.arg := @HDirectSoundCreate8;     ReadProcessMemory(GetCurrentProcess(),DAuOut8,@Dold8, sizeof(OldCode),Writen);     Writeln(f,'DAuOut8 read: '+inttostr(Writen));     WriteProcessMemory(GetCurrentProcess(), DAuOut8, @jump, sizeof(jmp_far), Writen);     Writeln(f,'DAuOut8 write: '+inttostr(Writen));   end; end;

записи

Код:

1 2 3 4 5 6 7 8 9 10

type  jmp_far = packed record    instr_push : BYTE;  //здесь будет код инструкции push    arg : Pointer;         //аргумент push    instr_ret : BYTE;    //здесь будет код инструкции ret  end;  OldCode = packed record  One: dword;  two: word; end;

собственно где грабли то?,.....
в файле получаю
We are in skype!4194304 - 4194304
DirectSoundCreate in dsound.dll was found
DirectSoundCreate8 in dsound.dll was found
DAuOut read: 6
DAuOut write: 6
DAuOut8 read: 6
DAuOut8 write: 6

а событие захвата так и непроиходит.... Уже второй день голову ломаю где неправ,..
помогите кто чем сможет