السلام عليكم ورحمة الله وبركاته :lol:
حاولت تشغيل ملف بــامتداد html
بهذا الكود ولم يتم تشغيله
Dim st As String st = App.Path & "\web.html" Shell (st) Unload Me
مع العلم اني قمت بتشغيل ملف بامتداد exe وتم تشغيله
كيف يمكنني تشغيل ملف بأمتداد html باستخدام هذاالكود
:lol:
ارجو المساعدة :rolleyes:
تم تعديل هذه المشاركة بواسطة هاوي! في 25 نوفمبر 2005 في 00:11
يجب ان تذكر للدالة Shell اسم البرنامج المشغل للملف ،،
Shell C:\Pro.exe File.txt
يمكنك إستخدام الدالة ShellExecute وهى من دوال ال api
و الصيغة العامه
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
شرح الباراميترز
hwnd
و هى مقبض النافذه التى سوف تستقبل الرسائل و القيم العائدة من تنفيذ الداله ( رسائل الخطأ)
lpoperation
وهى نوع العمليه المطلوبه
حيث open
فتح
إرسال إلى الطابعة ( لاحظ إن الملف لابد أن يكون document و لكنه إذا كان قابل للتشغيل executable سيتم تشغيله و تعمل print عمل open
explore
إستكشاف و تستخدم مع الفولدرات
lpfile
إسم الملف أو الفولدر المراد فتحه
lpparameters
إذا كان الملف المراد فتحه ملف تنفيذى فيمكن إعطاؤه باراميتر معين و لكن إذا كان الملف document فيجب أن تكون القيمه null
lpdirectory
و يمثل المثار الإفتراضى
nshowcmd
و يمثل حالة الفتح
مثلا
SW_MAXIMIZE
يعمل maximize
و
SW_SHOWNOACTIVATE
يتم تشغيل الملف لكن النافذه المنشطه تظل هكذا
و القيم كثيره يمكننى شرح القيم كلها إذا أردتم
و نأتى للمثال العملى
وفى حالتك نريد فتح ملف html و يعتبر document لأنه ليس ملف تنفيذى
و ....
Const SW_SHOWNORMAL = 1 ShellExecute Me.hwnd, "open", "c:\1.htm", vbNullString, vbNullString, SW_SHOWNORMAL
حيث "c:\1.htm" هو الملف
و للأستذاده يمكنك الأطلاع على الداله من msdn
http://msdn.microsoft.com/library/default....llexecuteex.asp
و أى سؤال أنا حاضر
لا تراجع و لا إستسلام
شكراًعلى اهتمامك ... لكن بكل صراحة لم افهم شيء :(
واعذرني على التطفل .. :unsure: .. نحن هنا لنتعلم .. :rolleyes: .. ارجو ارفاق مثال .. ليتبين لي موضع الأكواد
واكون لك من الشاكرين.. :rolleyes:
حرام عليك أصبطنى بالأحباط :( :( :( :( :( :(
و لا يهمك بهزر :lol: أنا عارف إن شرحى ساعات بيبقى مش حلو :rolleyes:
المهم : قوللى بالضبط أنت مفهمتش أيه ؟ و أنا هشرحهولك تتانى و تاات و رابع لو عايز
و المثال فى المرفقات
لا تراجع و لا إستسلام
مشكور اخي
انا فعلا كنت ببحث عن هذا الحل
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
كود Shellexecute كاملا : /index.ph...st&p=603037
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
هذا الموضوع مغلق.