Показать сообщение отдельно
Старый 29.09.2013, 03:34   #17
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
goodvin1709 пока неопределено
По умолчанию

В каком это смысле?В параметре приходит L2ParamStack
Я от туда извлекаю то что мне нужно т.е данные.
потом создаю чистый L2ParamStack
Засовываю туда данные,и отправляю на сервер вызовом оригинальной функции.
Вот только данные вставить нормально не могу(
1.Создаю
Delphi Код:
procedure l2stackCreate(l2p: PL2ParamStack);  stdcall;  asm   mov   ecx,l2p;   push  ecx;   push  0Ah;   call [L2ParamStackCreate_Original];  end;
Вот тут создали стек.Все работает хорошо.
Потом очищаю стек.
Delphi Код:
procedure  L2StackClear(l2p: PL2ParamStack); stdcall;  asm   mov   ecx,l2p;   call  [L2ParamStackClear_Original];  end;
Тут все хорошо работает,вроде очистили.
Потом я в него вставляю что мне нужно:
Delphi Код:
procedure  L2StackPushBackInt(l2p: PL2ParamStack; cmd: Integer); stdcall;  asm   mov   ecx,cmd;   push  ecx;   mov   ecx,l2p;   call  [L2ParamStackPushBack_Original];  end;
Правда тут почему то ошибка,но по плану следующий шаг отправка.
Delphi Код:
procedure UseItem_Call(l2p: PL2ParamStack); stdcall; begin  asm   push l2p;   mov ecx, UNetworkHundler;   call [UseItem_Original];  end;
Но блин откуда взять
1.UnetworkHandler,нужен он вобще или нет?
2.Как правильно запихнуть данные и отправить?
__________________
---------------------------__--------__-----
---____- ___--____--- ___/'- /__ ___-(__)-____
--/-___-/-__-\/-__--\ /-__--'/--|-/--//---//--__--\
-/-/_/ -/-/_/--/-/_/--/-/_/--/|--|/--'//---//--/-/--/
-\___-/\____/\____/\____/-|____//__'//_'/-/__/
/_-__/
goodvin1709 вне форума   Ответить с цитированием