تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طلب تعديل بكود
#1
برجاء الكود التالي لايظهر ال webbrowser اثناء تحميل الصفحه
ممكن تعديله بحيث ارى الصفحه لما تحمل في الفورم وعرض نتيجه msgbox
كود :
Dim objHtml As MSHTML.HTMLDocument
Dim objDoc As MSHTML.HTMLDocument
Dim strUrl As String
Dim col As MSHTML.IHTMLElementCollection
Dim element As MSHTML.HTMLInputElement

   ' Set to the proper URL
   strUrl = "http://vb4arb.com/vb/"
   
   Set objHtml = New HTMLDocument
   Set objDoc = objHtml.createDocumentFromUrl(strUrl, vbNullString)
   
   Do While objDoc.ReadyState <> "complete"
       DoEvents
   Loop
   
   ' This block will print out all anchor tags that use the pricen class.
   ' You can change the tag name and class if you want to return different elements.
   Set col = objDoc.getElementsByTagName("ul")
   For Each element In col
       If element.className = "mymenu" Then
           MsgBox element.innerText
           'element.Click
       End If
       

   Next element
           


   ' clean up
   Set col = Nothing
   Set objDoc = Nothing
   Set objHtml = Nothing
الرد
تم الشكر بواسطة:
#2
السلام عليكم

افتح مشروع جديد واظغط  Ctrl + T  ستخرج لك قائمة Components 

اختر من القائمة Microsoft Internet Controls

وقم باظافتها الي الفورم

وضع الكود التالي 

PHP كود :
Private Sub Command1_Click()
Set iDoc WebBrowser1.Document
For Each element In iDoc.getElementsByTagName("ul")
If 
element.className "mymenu" Then MsgBox element.innerText
Next
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://vb4arb.com/vb/"
End Sub 


بالتوفيق .
الرد
تم الشكر بواسطة: عبد العزيز البسكري , Ahmed_Mansoor
#3
Smile 
(01-02-17, 03:41 PM)AL_BRNS كتب : السلام عليكم

افتح مشروع جديد واظغط  Ctrl + T  ستخرج لك قائمة Components 

اختر من القائمة Microsoft Internet Controls

وقم باظافتها الي الفورم

وضع الكود التالي 

PHP كود :
Private Sub Command1_Click()
Set iDoc WebBrowser1.Document
For Each element In iDoc.getElementsByTagName("ul")
If 
element.className "mymenu" Then MsgBox element.innerText
Next
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://vb4arb.com/vb/"
End Sub 


بالتوفيق .

شكرا لردك الوافي وهذا هو المطلوب
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب تعديل في كود احتساب المعدل العام مصمم هاوي 0 69 11-02-18, 11:46 PM
آخر رد: مصمم هاوي
  [سؤال] تعديل كود تحديث البيانات ZaerAllail 0 135 10-01-18, 05:24 AM
آخر رد: ZaerAllail
  [سؤال] تعديل عمل تاريخين بطريقة عكسية dos2020 0 264 11-05-17, 03:22 AM
آخر رد: dos2020
  تعديل على كود بحث عن رقم محدد haniblack 6 620 01-11-16, 09:17 AM
آخر رد: haniblack
  تعديل على حقول الجدول 2 haniblack 9 695 16-10-16, 12:42 PM
آخر رد: haniblack
  اريد تعديل قيمة هيكس في عددة عناوين wolf1120 6 850 18-09-16, 01:13 PM
آخر رد: wolf1120
  تعديل بسيط abadi7455 2 461 07-11-15, 12:26 AM
آخر رد: abadi7455
  ارجو المساعده في تعديل قاعدة البيانات abadi7455 2 553 28-10-15, 04:02 PM
آخر رد: abadi7455
  [vb6.0] ارجو المساعده تعديل ع الاسم الرجاء الوفيه 8 2,622 10-04-15, 01:44 PM
آخر رد: ahmedabdelaliem
  [كود] طلب تعديل على كود فـ ـيـ ـصـ ـل 1 488 17-08-14, 12:50 PM
آخر رد: king2512010

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم