سؤال غريب شوي ولكن أبغى أعرف الجواب

[Niex]

السلام عليكم

أخواني الكرام

هل هناك طريقة في عمل برنامج خالي بالفيوجل بيسك أستطيع أن أضع برنامج آخر بداخله؟

سؤال غريب ولكن جاه في عقلي.قلت أسأل للفائدة

توضيح أكثر
مثلا أسوي برنامج فاضي وأضع بداخل برنامج آخر على هيئة exe???

[CHALLENGER]

اعتقد ممكن تسويله تشغيله فيشتغل البرنامج بشكل عادي مو داخل برنامجك يعني امر execute

[Niex]

نعم هاذي تصير

لكن داخل البرنامج ماأدري ؟؟؟تصير ولا لأ؟ ننتظر أهل الخبرة أحسن مننا!

[Argonaut]

بسم الله الرحمن الرحيم
السلام عليكم والرحمة
نعم وبكل تأكيد يمكن تصميم هذه البرامج
لو تصبر قليلا ان شاء الله اضعه لك بالكود ولتوضيح المسألة المشروع يعتمد على RES
وشكرا
(:

[oms]

فعلاً تحدث ..

فقد كنا في برامجنا على الفيجوال بيسك نخزن جميع الملفات التي نحتاجها من صوت وملفات نصية إلى غيرها ..

وعلى ما أعتقد أنك تستطيع تخزين الملفات EXE لأنها غير قابلة للزيادة أو النقصان ..

كل ذلك بإستخدام محرر الريجيستري Registry Editor ..

أنتظر الأخ حسام ليشرحه لك لأني .. لا املك الوقت لذلك ..

[Niex]

أنتظركم أخواني

الحمدلله طلع في طريقة يعني أتمنى شرحكم وردودك
والله حاولت كم مرة لأعرف الطريقة ولكن بلا فائدة فأتمنى شرحكم للطريقة الدمج

[Niex]

للرفع أخواني

[Argonaut]

1- عتذر والله مشغول بس الصبر جميل (: ان شاء الله تصبر زميلي وتسامحني
هذه نسخة اخرى ربما تفيدك
http://www.montada.com/showthread.php?t=412161
النسخة المطلوبة ان شاء الله في القريب وسوف تلاحظ شدة البساطة
وشكرا
(:

[Argonaut]

1- add-ins
2-add- in manager
3- vb6 Resource Edition

1.1 add a custom Resource
اتبع تعليمات اعلاه في برنامج فجوال بيسك
ثم ضف زر
وضع هذا الكود
On Error Resume Next
Dim Load As String
Load = (StrConv(LoadResData(101, "CUSTOM"), 64))
Open Combo1.Text & "\??C E??? C????.C??" For Binary As #1
Put #1, , Load
Close #1
لا تنسى اسم الملف
وشكرا

[Niex]

أعتذر لرفع الموضوع الذي له مدة طويلة

ولقد أضعت رابطه والحمدلله وجدت الموضوع بالصدفة

أخي أين أجد

1.1 add a custom Resource


طبقت الشرح ولكن لم اجد 1.1 add a custom Resource

[أبو هاجر الحلوة]

نعم ممكن ولكن الأمر معقد نوعا ما
ولكن وباختصار شديد يمكن باستعمال الدالة SetParent أن تجعل نافذة برنامجك أما لنافذة أي برنامج آخر إذا عرفت مقبضها (hwnd)
ربما في القريب سأضيف مثالا أكثر وضوحا

[Argonaut]

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

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

وان شاء الله نستفاد من مثالك ، جزاك الله كل الخير

(:،،

وشكرا"

[أبو هاجر الحلوة]

أضف Reference لـ MicroSoft Internet ControlsOption
Explicit
Dim WithEvents Ie As InternetExplorer
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
Set Ie = New InternetExplorer
Ie.Top = 0
Ie.Left = 0
Ie.Width = 500
Ie.Height = 500
SetParent Ie.hWnd, Me.hWnd
Ie.Visible = True
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set Ie = Nothing
End Sub

[Niex]

جزاك الله خير

لم أجربها لدي مشاكل في جهازي و إن شاء الله سوف أركب فوجل دوت نت 2005

وشكرا لكم أحبتي وأتمنى من الأخ Argonaut أن يجربها


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

[Argonaut]

وأتمنى من الأخ Argonaut أن يجربها

رررروعة
بس لازم تغير او تحول الكود في النت مشان يعمل انصحك بتجربته على 6

(:،،

وشكرا"