التحكم في برنامج من خلال برنامجك - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94) +--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167) +--- الموضوع : التحكم في برنامج من خلال برنامجك (/showthread.php?tid=10008)

التحكم في برنامج من خلال برنامجك - عبدالله الصافي - 11-08-13 [COLOR="#000080"]إخواني الكرام جائتني فكرة وياريت نحاول ننفذها ألا وهي: كل مرة أعمل نسخة عندي للجهاز أجد صعوبة في تنصيب كل البرامج التي أحتاجها والبرامج الضرورية علي جهازي . فما رأيكم بعمل برنامج يقوم بتنصيب كل تلك البرامج بالنيابة عنك كما في اسطوانات النسخ التي تحتوي علي برامج فتقوم هي (تلك البرامج) بتنصيب تلك البرامج وحدها دون تدخل منك. توجد بعض الدوال لي علم بها مثل: إيجاد عنوان النافذة وتنشيط نافذة معينة مثلا. ولكن أكيد توجد دوال أخري للتحكم في العناصر في البرنامج الأخر , فلو ممكن كتابة تلك الدوال وأرفاق مثال وليكن علي برنامج بسيط مثلا : برنامج الياهو أو الرار مثلا. أرجو أن تكون الفكرة وصلت.[/COLOR] التحكم في برنامج من خلال برنامجك - VB_Coder - 11-08-13 السلام عليكم - أخي عبدالله في أغلب برامج التثبيت كال الست أب فاكتوري والشيلد وغيرها توجد بها خاصية التثبيت الصامت حيث تضع تمرر باراميتر معين أو رمز معين بعد مسار ملف التثبيت ويتم تشغيل التثبيت في الوضع الصامت حيث تحدد خيارات التثبيت عن طريق الباراميتر أيضاً ، وإذا كان عندك أكثر من ملف تثبيت فتستطيع إضافتها كلها في ملف تثبيت برنامجك عن طريق برنامج الست أب فاكتوري حيث يعطيك خيار أن يتم إنتظار أي ملف يتم تثبيته او تشغيله حتى ينتهي . - تحياتي . التحكم في برنامج من خلال برنامجك - asto - 11-08-13 يوجد برنامج لعمل تنصيب تلقائي اسمه AutoIt تعمله و هو سهل و توجد برامج اساسية جدا مثال ونرار و اوفيس فصمم برنامجا خاصا لتشغيل الملف المنشأ بواسطة AutoIt و برنامج اخر تعمل لها قاعدة بيانات و تشغل المطلوب بالكود في القسم العام Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Wait(zSecond As Integer) Dim StartTime As Single StartTime = Timer Do While Int(Timer - StartTime) < zSecond DoEvents Loop End Sub و في كوماند : ShellExecute Me.hWnd, "open", Text1.Text, &O0, &O0, &O1 Wait 12 حيث التكست 1 هي للمسار المطلوب مثلا بعد استخراج المسار من قاعدة البيانات Wait هذا للانتظار قبل الانتقال الى عملية التنصيب التالية