تقييم الموضوع :
  • 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 


بالتوفيق .

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



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


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