الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال:ما كود فتح ملف htm او html?

مغلق
بدأه جمال علي في 17 يونيو 2007 · 5 رد · 3,364 مشاهدة · في قسم الدروس والمواضيع الهامة
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

الاخوة الكرام

اعلم ان كود فتح ملف من النوع تكست(اسمهsalam مثلا) موجود علي جهازي ممكن ان يكون كالتالي:

Shell "Notepad.exe" & App.Path & "\salam.txt", vbNormalFocus

واذا كان ملف تنفيذي كالمثال التالي

 Shell App.Path & "\salam.exe", vbNormalFocus

ولكن ما هو كود فتح ملف من النوع htm اوhtml مخزن علي الهارد و ليس علي احدي المواقع

و هذا الملف به صور و مقاطع فيديو و فلاشات و نصوص.

و جزاكم الله خير الجزاء و السلام عليكم و رحمة الله و بركاته

#2

السلام أخي الكريم/

يمكن من خلال استخدام الملف التنفيذي iexplore.exe

مثال إذا كان لدينا ملف اسمة abc.html على c:\

تكون طريقة الفتح

iexplore.exe "c:\abc.html"

فراس

سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته

#3

السلام اخي الكريم فراس

اشكرك علي سرعة اجابة سؤالي

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

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

و بحثت و جربت اكواد اخري و لكن كان لها نفس النتيجة

الي ان وجدت كود يعمل و لكن للاسف لا يعرض الصور التي توجد داخل صفحة html

Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler c:\abc.htm", vbNormalFocus

لذا ارجوا ان تتفضل باضافة اي تعديل او اقتراح لرؤية الصور في الصفحة

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

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

#4

استخدم API ShellExecute لهذا الامر

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 Declare Function GetDesktopWindow Lib "user32" () As Long

 Const SW_SHOWNORMAL = 1

'Insert this code to your form:

Function StartDoc(DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", SW_SHOWNORMAL)
End Function

Private Sub Form_Load()
Dim r As Long
'Replace the c:\mp3\song.mp3 with the file you want to launch
'   ضع هنا الملف الذي تريد فتحه حيث يتم ربطه مع برنامجه الافتراضي '
r = StartDoc("c:\aa.html")


End Sub

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

#6

شكرا علي الرد الكريم

و شكرا علي سرعة الرد

وهناك تكملة لسؤالي و قد فضلت ان توضع كسؤال منفرد

فارجوا من الاخوة الكرام الدخول علي الرابط التالي للاجابة عليه

/index.php?showtopic=130274

و لكم جزيل الشكر و العرفان

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

هذا الموضوع مغلق.

مواضيع مشابهة