27-01-2013, 08:39 PM
الصفحات : 1 2
27-01-2013, 08:48 PM
هههههههه ... فعلا كان لدي علامة تعجب كبيرة نوعاً ما P:
كنت اقول بنفسي انك لم تلحظ اني اعمل ذلك مع جميع الالعاب في البداية لم اوضح بشكل ميااشر
قلت :
وفي المشاركات التي تليها ذكرت ذلك ربما انك اعتمدت المشااركة الاولى
..
على كل حال اعتذر على عدم التوضيح بشكل جيد
------
معها عندما تكون Full Window ... ايضاً يوجد بعض الالعاب تقوم بتعطيل alt+Tab ساتعامل معها جميعا في برنامج واحد
واضعه على الشبكة العنكبوتية لكي يستفيد الجميع .. خصوصاً من يعانون من مثل هذه المشكلة
------
جاري الإطالع على المكتبة .... كنت اضنك ستختار مكتبة uallHook ... لكني ساعمل معك على هذه المكتبة بما اني جديد بالهوك
كنت اقول بنفسي انك لم تلحظ اني اعمل ذلك مع جميع الالعاب في البداية لم اوضح بشكل ميااشر
قلت :
إقتباس :والآن إذا اردت عمل برنامج يقوم بتغيير نمط نوافذ الألعاب من Full window mode إلى
Window mode ... كيف افعل ذلك ؟؟
وفي المشاركات التي تليها ذكرت ذلك ربما انك اعتمدت المشااركة الاولى
..على كل حال اعتذر على عدم التوضيح بشكل جيد
------
إقتباس : مجرد فضول ... لمادا تحاول تغيير نوافد جميع الألعاب >> أعتقد أن الكل يفضل وضع Full Screenنعم صحيح ... تعرف اني اعمل على اشياء مثل Game Cheating لذلك نسبة كبيرة من الالعاب اوجه صعوبة في التعامل
معها عندما تكون Full Window ... ايضاً يوجد بعض الالعاب تقوم بتعطيل alt+Tab ساتعامل معها جميعا في برنامج واحد
واضعه على الشبكة العنكبوتية لكي يستفيد الجميع .. خصوصاً من يعانون من مثل هذه المشكلة
------
جاري الإطالع على المكتبة .... كنت اضنك ستختار مكتبة uallHook ... لكني ساعمل معك على هذه المكتبة بما اني جديد بالهوك
27-01-2013, 08:56 PM
27-01-2013, 11:48 PM
السلام عليكم ..
بعد ما قرات ورأتي مثال عن الهوك مطبق على "TerminateProcess" وعندما بدات احاول التطبيق لم استطع استعمال madCodeHook
لابد من شرائها ...
لذلك سأحاول مع uallHook وإن استصعب علي امر سأسئلك
بعد ما قرات ورأتي مثال عن الهوك مطبق على "TerminateProcess" وعندما بدات احاول التطبيق لم استطع استعمال madCodeHook
لابد من شرائها ...
لذلك سأحاول مع uallHook وإن استصعب علي امر سأسئلك
28-01-2013, 04:28 PM
28-01-2013, 09:53 PM
للمستقبل في الحقيقة لا احب استعمال مكتبات خارجية احب ان اصنع المكتبات بنفسي ... لكن بما ان النسئلة تريد وقت وان اتعامل مع الهوك
سأستعين بمكتبة خارجية
بالنسبة لـ uallHook استطعت بحمد الله عمل هوك لدالة MessagBoxA بسماعدة الاستاذ Coldzer0 جزاه الله خير
وايضاً عمل حاقن ..
هذا السروس كود للهوك :
جربت الهوك يعمل بنجاح ..
وهذا الحااقن
ملاحظة الهوك مبرمج بـ D XE3 و الحاقن بـ Delphi7
لاني حالياً اقوم بترجمة مكتبات uall إلى D XE3
تظهر لي بعض المشااكل عندما اعمل هوك لـ الدالة CreateWindowEx ... سأحاول اكثر من مره معها
وإن لم استطع سارجع هنا P:
في الحقيقة لا احب استعمال مكتبات خارجية احب ان اصنع المكتبات بنفسي ... لكن بما ان النسئلة تريد وقت وان اتعامل مع الهوكسأستعين بمكتبة خارجية
بالنسبة لـ uallHook استطعت بحمد الله عمل هوك لدالة MessagBoxA بسماعدة الاستاذ Coldzer0 جزاه الله خير
وايضاً عمل حاقن ..
هذا السروس كود للهوك :
PHP كود :
library Project1;
uses
Winapi.Windows, uallHook;
var
MessageBoxNext,PointerMsgOrg : function (hWnd: HWND; lpText, lpCaption: LPCWSTR; uType: UINT): Integer; stdcall;
function MyHookMsg(hWnd: HWND; lpText, lpCaption: LPCWSTR; uType: UINT): Integer; stdcall;
begin
Result := MessageBoxNext(hWnd, '5', lpCaption, MB_ICONHAND);
end;
begin
PointerMsgOrg := GetProcAddress(GetModuleHandle('user32'),PAnsiChar('MessageBoxA'));
HookCode(@PointerMsgOrg,@MyHookMsg,@MessageBoxNext);
end.
جربت الهوك يعمل بنجاح ..
وهذا الحااقن
PHP كود :
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
uallHook,
Windows;
var
sInfo : TStartupInfo;
pInfo : TProcessInformation;
begin
ZeroMemory(@sInfo, SizeOf(TStartupInfo));
sInfo.cb := SizeOf(TStartupInfo);
CreateProcess('Test.exe', nil, nil, nil, False, 4, nil, nil, sInfo, pInfo);
InjectLibrary(pInfo.dwProcessId,'Project1.dll');
ResumeThread(pInfo.hThread);
end.
ملاحظة الهوك مبرمج بـ D XE3 و الحاقن بـ Delphi7
لاني حالياً اقوم بترجمة مكتبات uall إلى D XE3
تظهر لي بعض المشااكل عندما اعمل هوك لـ الدالة CreateWindowEx ... سأحاول اكثر من مره معها
وإن لم استطع سارجع هنا P:
29-01-2013, 05:11 PM
الحمد لله ... اخيراً استطعت عمل هووك لدالة CreateWindowEx و CreateWindowExA و CreateWindowExW
هذا هو الكود ... القاكم في إستفساار آخر P:
شكراً لك استااذ SMP3 على المسااعدة ..
هذا هو الكود
... القاكم في إستفساار آخر P:PHP كود :
library Hook;
uses
SysUtils,
Classes,
uallHook,
Windows,
Dialogs;
var
CreateWindowExNext,PtrCreateWindowEx : function (dwExStyle: DWORD; lpClassName: PChar;
lpWindowName: PChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;stdcall;
CreateWindowExANext,PtrCreateWindowExA : function (dwExStyle: DWORD; lpClassName: PAnsiChar;
lpWindowName: PAnsiChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;stdcall;
CreateWindowExWNext,PtrCreateWindowExW : function (dwExStyle: DWORD; lpClassName: PWideChar;
lpWindowName: PWideChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;stdcall;
function HookCreateWindowEx(dwExStyle: DWORD; lpClassName: PChar;
lpWindowName: PChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;stdcall;
begin
Result := CreateWindowExNext(dwExStyle,lpClassName,lpWindowName,0,X,Y,nWidth,nHeight,hWndParent,hMenu,hInstance,lpParam);
end;
function HookCreateWindowExA(dwExStyle: DWORD; lpClassName: PAnsiChar;
lpWindowName: PAnsiChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;stdcall;
begin
Result := CreateWindowExANext(dwExStyle,lpClassName,lpWindowName,0,X,Y,nWidth,nHeight,hWndParent,hMenu,hInstance,lpParam);
end;
function HookCreateWindowExW(dwExStyle: DWORD; lpClassName: PWideChar;
lpWindowName: PWideChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;stdcall;
begin
Result := CreateWindowExWNext(dwExStyle,lpClassName,lpWindowName,0,X,Y,500,300,hWndParent,hMenu,hInstance,lpParam);
end;
begin
PtrCreateWindowEx := GetProcAddress(GetModuleHandle('user32'),'CreateWindowEx');
HookCode(@PtrCreateWindowEx,@HookCreateWindowEx,@CreateWindowExNext);
PtrCreateWindowExA := GetProcAddress(GetModuleHandle('user32'),'CreateWindowExA');
HookCode(@PtrCreateWindowExA,@HookCreateWindowExA,@CreateWindowExANext);
PtrCreateWindowExW := GetProcAddress(GetModuleHandle('user32'),'CreateWindowExW');
HookCode(@PtrCreateWindowExW,@HookCreateWindowExW,@CreateWindowExWNext);
end.
شكراً لك استااذ SMP3 على المسااعدة ..
29-01-2013, 05:27 PM
29-01-2013, 08:15 PM
قمت بالذي اعرفه
واستطعت عمل هوك بـ D XE3 من خلال uallHook
ولم يحصل اي خطاً ... لكن هذه اول مرة اقوم بترجمة كود واعتقد انه يوجد بعض الأخطاء ..
لاني حاولت عمل حاقن بنفس المكود الذي عملته في Delphi7 مع D XE3 ولم ينجح الامر
واضن اني اعرف ما السبب ... وهو اني لا اعرف كيف اتعامل مع PAinsChar و PWideChar .. اعتقد هذا ما تبقا
اذا اردت ان ارفقها لك وتكمل المشوار
واستطعت عمل هوك بـ D XE3 من خلال uallHook
ولم يحصل اي خطاً ... لكن هذه اول مرة اقوم بترجمة كود واعتقد انه يوجد بعض الأخطاء ..
لاني حاولت عمل حاقن بنفس المكود الذي عملته في Delphi7 مع D XE3 ولم ينجح الامر
واضن اني اعرف ما السبب ... وهو اني لا اعرف كيف اتعامل مع PAinsChar و PWideChar .. اعتقد هذا ما تبقا
اذا اردت ان ارفقها لك وتكمل المشوار
الصفحات : 1 2