“只提取最下边的常用工具栏”
经查看,此网站页面做的很烂,无法直接提取,只能一个一个找:
On Error Resume next
Set oDOM=Wscript.Getobject("http://www.hao123.com/")
Do Until oDOM.readyState="complete"
Wscript.sleep 200
Loop
For Each a in oDOM.documentElement.getElementsByTagname("a")
If a.innerText = "实用工具" Then
str = a.parentNode.parentNode.parentNode.outerText
End If
Next
Set oDOM=nothing
MsgBox str
查找 “HTML、 DOM、元素、方法” 相关的资料,要学这方面东西你可能要放弃 VBS 改学 JS 。
一般去这个网站比较好起步:
w3school.com.cn
标准:
w3.org