Set wmweb = createobject("wmWeb.web")
浏览器 = "chrome"
地址 = "https://s.tianyancha.com/parks/hub_00420100"
标签句柄 = wmweb.OpenChrome(浏览器, 地址)
'获取名字+电话
'结构不同先获取第二第三个了。
For i = 0 To 1
名字 = wmweb.GetElemText(标签句柄, "/html/body/div[2]/div/div/div/div[2]/div[2]/div[" & (i+2) & "]/div/div[3]/div/a")
电话 = wmweb.GetElemText(标签句柄, "/html/body/div[2]/div/div/div/div[2]/div[2]/div[" & (i+2) & "]/div/div[3]/div[3]/div/span[2]")
Call Plugin.File.WriteFileEx("C:\Users\Administrator\Desktop\11111\客户信息.txt", 名字 & "|" & 电话)
Call Plugin.File.WriteFileEx("C:\Users\Administrator\Desktop\11111\客户信息.txt", vbcrlf)
Next