منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟ - نسخة قابلة للطباعة

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

[تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟ - karika - 03-10-12

هل يمكتى استدعاء ملف exe الى مشروعى مثلا لو ارد تشغيل برنامج الاذان داخل مشروع الالهة الحسبة كيف يمكنى عمل ذلك ...؟

[تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟ - asto - 04-10-12

ضع هذا الكود في command
Dim A As String
A = Shell("C:\Program Files\Windows Media Player\wmplayer.exe", 1)
واستبدل المسار

[تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟ - karika - 05-10-12

asto, شكراّ جزيلا لك اخى...هل ممكن اطمع فى طلب اخر..
اريد انا اجعل الملف كريسورس حتى يتم تحميل جميع الملفات فى برنامج واحد

[تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟ - 3amo - 05-10-12

karika كتب :اريد انا اجعل الملف كريسورس حتى يتم تحميل جميع الملفات فى برنامج واحد
السلام عليكم ورحمة الله
قم بإضافة الملف للريسورس ثم اكتب هذا الكود في المكان المناسب للاستخراج الملف من الريسورس
PHP كود :
Dim f As Integer
Dim sPath As String
f = FreeFile

sPath = App.Path & "\"

Open sPath & "player.exe" For Binary As #f
Put #f, , LoadResData(101, "CUSTOM")
Close #f 
اتمنى ان يكون هذا طلبك Cool
بالتوفيق..

[تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟ - karika - 06-10-12

3amo, شكراّ للمرورك الكريم اخى...ولكن للاسف الكود لم يظبط معى..ربما طريقة استعمالى خاطئة وهى كألاتى :.
مشروع جديد ثم فتح فورم ثم وضع زر كومند ثم وضع ملف الاذان كريسورس id يساوى 101 ثم وضع كود الاخ 3amo, ووضعتة فى زر كومند مع تغير player.exe الى اسم الملف:
ارجو تنبيهى بالاخطاء انا لسة فى اول المشوار

[تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟ - 3amo - 06-10-12

karika كتب :3amo, شكراّ للمرورك الكريم اخى...ولكن للاسف الكود لم يظبط معى..ربما طريقة استعمالى خاطئة وهى كألاتى :.
مشروع جديد ثم فتح فورم ثم وضع زر كومند ثم وضع ملف الاذان كريسورس id يساوى 101 ثم وضع كود الاخ 3amo, ووضعتة فى زر كومند مع تغير player.exe الى اسم الملف:
ارجو تنبيهى بالاخطاء انا لسة فى اول المشوار
السلام عليكم ورحمة الله
للاسف الكود يستخرج الملف معطوب
و طريقة استعمالك سليمة
وهذا هو الكود الصحيح بعد تجربته
PHP كود :
Private Sub Command1_Click()
On Error GoTo 5
    Dim Res() As Byte
    Dim Location As String
    Location = App.Path & "\radio.exe"
    Res = LoadResData(101, "CUSTOM")
    FFile = FreeFile
    Open Location For Binary Shared As #FFile
    Put #FFile, 1, Res
5:  Close #FFile
End Sub 
واتمنى لك التوفيق

[تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟ - karika - 14-10-12

انا عاجز عن الشكر لك اخى ..,3amo

[تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟ - karika - 21-10-12

3amo كتب :السلام عليكم ورحمة الله
للاسف الكود يستخرج الملف معطوب
و طريقة استعمالك سليمة
وهذا هو الكود الصحيح بعد تجربته
PHP كود :
Private Sub Command1_Click()
On Error GoTo 5
    Dim Res() As Byte
    Dim Location As String
    Location = App.Path & "\radio.exe"
    Res = LoadResData(101, "CUSTOM")
    FFile = FreeFile
    Open Location For Binary Shared As #FFile
    Put #FFile, 1, Res
5:  Close #FFile
End Sub 
واتمنى لك التوفيق
لقد رايت هذا الكود اصغر ويمكنه ان يحل مكان الكود أعلاه...
[COLOR="#0000FF"]Shell "radio.exe", WindowsStyle
[/COLOR]

RE: [تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟ - awidan76 - 27-12-15

تسلمو اخوتي في الله وجزاكم الله خير