الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكنني ربط برنامج مع برنامجي

مغلق
بدأه sting_dba في 12 أبريل 2006 · 9 رد · 810 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عيكم و رحمه الله و بركاته

هذه اول مشاركة لي وارجو عدم تخييب املي

اذا اردت ربط اي برنامج عدا الاوفيس مع برنامجي ما هي الطريقة لعمل ذلك وليكن على سبيل المثال

ربط برنامجي بwindows media player

اي التحكم فيه عن طريق برنامجي .... ما هي الطريق؟؟؟ ارجو شرحها؟؟؟؟؟

والله يجزيكم الخير

#2

يمكنك استخدام الاداة OLE

او استخدام امر SHELL لفتح البرنامج الذي تريده

SHELL"C:\Program Files\Windows Media Player\WMPLAYER.EXE"
#3

يسلموا اديك يا ياسر بس انا لا اريد فقط فتح البرنامج

لكن اريد ان يكون عندي ازرار تتحكم بالبرنامج مثل Stop - Play - next اي من برنامجي اقوم بتشغيله و التحكم به

بشكل اخر يكون عندي ازرار في برنامجي تتحكم ب wmp

#4

السلام عليكم

مرحبا شباب

الى الان لم يجبني احد على سؤالي

اتمنى من محترفي البرمجة اجابتي على هذا السؤال

ولكم جزيل الشكر

#5

السلام عليكم

أخي العزيز

نعم تستطيع التحكم به من خلال أضافة الاداة من قائمة Project -> Compenent .

أنا لا أتذكر ما أسم الاداة لكن تستطيع البحث عنها في القائمة التي هي مليئة ايضا بالادوات , وهي من نوع OCX .

لكن لا يعني أنك تستطيع التحكم في البرنامج وهو قيد يعمل , المقصود من الاداة هو التعامل معها على أنها تمثل نفس الاداة التي مع البرنامج .

play, stop الى آخره .

أما أذا كان المقصود أن تتحكم في البرنامج نفسه وهو قيد العمل فما لك ألا أن تستعمل دالات API .

أرجوا أن تكون الاجابة الشافية .

#6

لو يوجد في البرنامج الذي تريد ربطه ببرنامجك ازرار تحكم يمكن التحكم في هذا الازرار وذلك عن طريق

اولا

كتابه امر لفتح البرنامج

وليكن تريد ان تتحم في الاله الحاسبه

ReturnValue = Shell("C:\WINDOWS\system32\calc.exe", 1)

ثانيا

تتاكد اذا كان البرنامج فعال ام غير فعال(منشط) من خلال هذا الامر

AppActivate ReturnValue

ثالثا

كتايه امر التحكم

وهذا الكود مثلا يغلق البرنامج

SendKeys "%{F4}"

وهذا الكود يجعل اله الحاسبهتعمل عمليه جمع الارقام من 1 :100

For I = 1 To 100

SendKeys I & "{+}", True

Next I

SendKeys "=", True

ما اطيب تمنياتي

برنامج رسم تصميمي

لعبه لغز الارقام من تصميمي

لعبه سيجا من تصميمي

لعبه اكس و اووووووووو

برنامج لحساب عمرك برمجه كامله دون الاستعانه بدوال vb

لعبه الكره الناريه

#7

شكراً أخي الكريم طارح الموضوع

واشكركم اخواني الرادين على هاذا الموضوع لأنني كنت ابحث عنه

منذ مدة

.... ::: اخوكم ملاذ ::: .....

تم تعديل هذه المشاركة بواسطة ملاذ في 16 أبريل 2006 في 13:40

لاخيــــــــــــــــــــــر في كاتم العـــــــــــــــــــــــــــــــــــم

#8

السلام عليكم

الله يزيك الخير اخي هيثم

في الحقيقة المعلومات التي ارسلتها ثمينة جدا و مهمة ولقد استفدت منها كثيرا

لكن اعتقد ان هناك طريقة اخر وهي ربط عن طريق ole Automation اي كما في المثال المرفق

فهل ممكن ان استعملها مع جميع البرامج او فقط مع برامج الاوفيس "يرجى التوضيح"

اتمنى من الجميع الذين عندهم معلومات المشاركة

Word.rar

#9

السلام عليكم

مرحبا يا شباب الvb الى الان لم يجبني احد

اتمنى الرد السريع الشافي خصوصا من محترفي البرمجة

#10

السلام عليكم

انا مازلت انتظر يا شباب الفيجوال بيسيك

هذا الموضوع مغلق.

مواضيع مشابهة