تشغيل ملف تنفيذي

الأخ الفاضل ...

هناك عدة طرق لبدء برنامج من داخل برنامج أخر أسهلها الأمر Shell

Shell "notepad", vbNormalFocus

راجع أيضاً الموضوع: برنامج تشغيل تلقائي للسي دي Autorun، على الرابط: /index.php?showtopic=118286

شكراً

جرب هذه الطريقة

أضف موديول و أكتب فيه الكود التالي

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
Public Function ExtractFileName(ByVal strPath As String) As String
	' StrReverse is only working in VB6
	strPath = StrReverse(strPath)
	strPath = Left(strPath, InStr(strPath, "\") - 1)
	ExtractFileName = StrReverse(strPath)
End Function

Public Function ExtractPath(ByVal strPath As String)
	strtmp = StrReverse(strPath)
	a = Len(strPath) - InStr(strtmp, "\")
	strPath = Left(strPath, a)
	ExtractPath = strPath
End Function


Function AddASlash(ByVal path As String)
	If Right(path, 1) = "\" Then
		AddASlash = path
	Else
		AddASlash = path & "\"
	End If
End Function

Public Function FileExists(strPath As String) As Integer
	FileExists = Not (Dir(strPath) = "")
End Function

أضف فورم عليه زر كومند و ضع الكود التالي

Private Sub Command1_Click()
	'من المسار
	ShellExecute Me.hWnd, "open", App.path & "\1.EXE", "", "", 1
	' مسار معين
   ' ShellExecute Me.hWnd, "open", "C:\1.exe", "", "", 1

End Sub

NOUR_EXE.zip

الأخ الفاضل ... المزمجر

أرجو توضيح ... ماذا أضاف (كميزة) أستخدام ShellExecute أكثر من أستخدام Shell فى فتح أو تشغيل ملف؟؟؟

طبعاً معرف أستخدام ShellExecute فى اشياء أخرى مثل الطباعة، فتح لتحرير ... الخ، ولكن سؤالى هنا عن فتح أو تشغيل ملف؟؟؟

شكراً

اقتباس

الأمر Shell فى الـ VB فى الأصل يستدعى الـ API التالية : ShellExecute

اقتباس

طبعاً معرف أستخدام ShellExecute فى اشياء أخرى مثل الطباعة، فتح لتحرير ... الخ، ولكن سؤالى هنا عن فتح أو تشغيل ملف؟؟؟

اقتباس

أرجو توضيح ... ماذا أضاف (كميزة) أستخدام ShellExecute أكثر من أستخدام Shell فى فتح أو تشغيل ملف؟؟؟ حيث لا أجد فرق بينهم، وأنا استسهل أستخدام Shell

أخي الكريم Eng. Usama El-Mokadem

عندما حاولت فتح ملف بوربوينت أو وورد مثلاَ بتعليمة Shell لم تفلح معي العملية

لحين ما توصلت لهذا الموديول حول ShellExecute و أستطيع به فتح الملف بغض النظر سواء كان تنفيذي أم لا

أما تعليمة Shell كما ذكرت لك لم تفلح معي إلا في فتح الملفات التنفيذية

الأخ الفاضل ... المزمجر

مشكور جداً على التوضيح

ولكن ما طلبه الأخ layan هو تشغيل ملف تنفيذى، وهذا ما قصده بسؤالى

اقتباس

ماهو كود تشغيل الملف التنفيذي لأي برنامج من داخل برنامجي

شكراً جزيلاً

أهلاً بك أخي Eng. Usama El-Mokadem

ومشكور على مرورك و ردك

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

اقتباس

ولكن ما طلبه الأخ layan هو تشغيل ملف تنفيذى، وهذا ما قصده بسؤالى

نعم أخي الكريم و كان جوابك صريح

لكن قصدت التوسع لأنه لابد أن يتم السؤال حول فتح ملفات أخرى

وهذا ماحدث B)

اقتباس

والمطلوب هو اكواد لتشغيل الملفات من الأنواع التالية (msi,txt,reg),

في المشاركة التي قمت بالرد عليها انت أيضاً

برنامج تشغيل تلقائي للسي دي Autorun

السلام عليكم

كيف اشغل برنامج تلقائيا عند فتح ملف باللورد ؟

مثلا برنامج تجسس واريده ان يشتغل تلقائيا عن فتح ملف الورد

وشكرا

/index.php?showtopic=119311

/index.php?showtopic=119563

شكرا لك مهندس اسامه

لكن الامثلة الموجوده فقط لاوامر

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

ارجو الرد بسرعه

اولا كنصيحة لا تضيع وقتك فى صناعة الفيروسات وملفات التجسس

ثانيا انت تتحدث عن الماكروا اتجه اخى الى لغة اخرى غير الفي بى اعزرنى كيف ستوزع برنامج يقوم بفتح فيروس ماكروا اذا كان ملف الفيروس لا يعمل تلقائيا لوحه

شكرا حريف على الرد

لكن انا مو هاويه اختراق............هي ماده عندي هالترم .....

والفكره هي:

ملف وورد لما افتحه على طول يشتغل الملف المرفق او البرنامج

:(

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

shell App.Path & "\Fouad.exe"

مع ملاحظه (") في الاخر

Eng. Usama El-Mokadem كتب:

الأخ الفاضل ... المزمجر

أرجو توضيح ... ماذا أضاف (كميزة) أستخدام ShellExecute أكثر من أستخدام Shell فى فتح أو تشغيل ملف؟؟؟

طبعاً معرف أستخدام ShellExecute فى اشياء أخرى مثل الطباعة، فتح لتحرير ... الخ، ولكن سؤالى هنا عن فتح أو تشغيل ملف؟؟؟

شكراً

من مميزات Shellexecute أضافة Command lines دون الخوف من حدوث مشاكل زى اللى ممكن تحصل لو ممرناها من Shell و أمكانية تحديد الـ Working directory و أختيارات أكتر بالنسبة لخاصية الـ Window state ده بالنسبة للملفات التنفيذية , أما بالنسبة للملفات الأخرى فبنضيف حاجات زى Open With مثلا.

The full ShellExecute code

الأخ الفاضل ... msayed2004

ما سألت عنه من مميزات اقصد فى هذا الموضوع

اقتباس

ولكن ما طلبه الأخ layan هو تشغيل ملف تنفيذى، وهذا ما قصده بسؤالى

شكراً