[sendbad100]

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


جرب التالي 

PHP كود :

Private Sub Command1_Click()

Set iDoc = WebBrowser1.Document
For Each element In iDoc.getElementsByTagName("td")
  If element.className = "1" Then Set li = ListView3.ListItems.Add(, , element.innerText)
 If element.className = "2" Then li.SubItems(1) = element.innerText

Next
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://onlyformessage.000webhostapp.com/2.htm"
End Sub