الحصول على الصور من صفحة ويب Html

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

أظن أنه على الأقل يستوجب وجود instance من الie مشغلة للبحث داخلها

يمكن الاستغناء عن تشغيل الie داخل البرنامج والبحث فقط على الصفحات المفتوحة خارج البرنامج ,إذا كن يساعدك طبعا

أما إذا كنت مصرا على عدم فتح أي صفحة فلا أظن أنك ستحصل على الdocument

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

بدون إضافة الwebbrowser والاكتفار بالمرجع فقط الخاص به

Function Search_PIC_IN_IE()
   Set objShellWins = New SHDocVw.ShellWindows
   For Each objIE In objShellWins
	  Set objDoc = objIE.Document

	  If TypeName(objDoc) = "HTMLDocument" Then
	   For Each Element In objDoc.All
		  If Element.tagName = "IMG" Then
		  List1.AddItem Element.href
	  End If
	  Next
	End If
	Next
End Function

يمكننا تحديد عنوان محدد باضافة شرط على objIE.LocationURL الذي يحدد عنوان الصفحة المفتوحة

والله أعلم

شكرا أخي الكريم

أقدر مساعدتك ولكن السبب الرئيسي في عدم رغبتي في استعمال هذا الامر او الامر الذي كتبته في السؤال

هو الوقت اللازم لتحمل الصفحة بكاملها

فهذا يعني أنه عليه تحميل جميع الصور وما إلى ذلك قبل أن يصل إلى الامر الذي يطلب منه ستخراج الصور وما إلى ذلك

ونحن نعرف أن الكود يصل بسرعة أولا تم يبدأ بتحميل ما يحتاج إلى تحميله

اقتباس

أظن أنه على الأقل يستوجب وجود instance من الie مشغلة للبحث داخلها

لا أعتقد ذلك

لا حظ معي هنا وذلك لتحميل الوصلات فقط Links

Private Sub GetURLs(StrURL As String, LstLinks As List)
'
	Dim objLink As HTMLLinkElement
	Dim objMSHTML As New MSHTML.HTMLDocument
	Dim objDoc As New MSHTML.HTMLDocument

	'
	Set objDoc = objMSHTML.createDocumentFromUrl(CmbURL.Text, vbNullString)

MousePointer = vbHourglass

	While objDoc.readyState <> "complete"
		DoEvents
	Wend
	'get all Links

	For Each objLink In objDoc.links

		 LstLinks.AddItem objLink
  End If
	Next

MousePointer = vbDefault

End Sub

آمل أنك فهمت قصدي

لكنك في الكود استعملت أيضا instance وبحثت داخلها

المهم اذا كان المشكل في تحميل الصفحة فيمكنك الاستفادة من الحدث DocumentComplete

يعني لا تقوم بالبحث إلا عند حدوثه

بالتوفيق ان شاء الله

السلام عليكم

أخي الكريم

إن استعمال WebBrowser كما قلت سابقا ينتظر حتى يكتمل التحميل وليس مباشرة بعد حصوله على السورس كود

المشكلة ليست DocumentComplete بل هي في الوقت الذي يتطلبه حتى يصل إلى DocumentComplete

استعمل الكودين المرفقين وسترى الفرق

سلام

هذا سيكون راجع لسرعة التحميل للصفحة

ربما يفيدك تعطيل عرض الصور من المتصفح (خصائص الأنترنت اكسبلورر) لتسريع تحميل الصفحة