منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] طلب تعديل بكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] طلب تعديل بكود (/showthread.php?tid=19047)

طلب تعديل بكود - tempman - 31-01-17

برجاء الكود التالي لايظهر ال 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


RE: طلب تعديل بكود - AL_BRNS - 01-02-17

السلام عليكم

افتح مشروع جديد واظغط  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 


بالتوفيق .


RE: طلب تعديل بكود - tempman - 01-02-17

(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 


بالتوفيق .

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