- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]阿里妈妈 我要哭死了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79939)
-- 发布时间：2016/1/12 20:11:00
-- [求助]阿里妈妈 我要哭死了
哭了我
以下内容是专门发给大红袍浏览
-- 发布时间：2016/1/12 20:26:00
--
袍哥 我发你了 帮我看看吧
-- 发布时间：2016/1/12 20:29:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:阿里妈妈数据采集.foxdb |
-- 发布时间：2016/1/12 20:35:00
--
324887
-- 发布时间：2016/1/12 20:35:00
--
无法登陆，要手机验证码啊。你自食其力
Dim web = Forms("窗口1").Controls("WebBrowser1").BaseControl
For Each tr As object In web.Document.GetElementsByTagName("包含着A的元素啊")
If tr.GetAttribute("ClassName") = "可以定位到A的Class啊"
Dim a = tr.GetElementsByTagName("a")(要不你就用这个看哪个数字是啊)
output.show(a.GetAttribute("href"))
End If
Next
-- 发布时间：2016/1/12 20:35:00
--
324887
-- 发布时间：2016/1/12 20:43:00
--
949478
-- 发布时间：2016/1/12 20:52:00
--
哦，是我不好，写错了
Dim lujing As String = ProjectPath & "\\分析结果.txt"
Dim web As System.Windows.Forms.WebBrowser = Forms("工具").Controls("WebBrowser1").BaseControl
Dim dizhi As String
For Each tr As object In web.Document.GetElementsByTagName("li")
If tr.GetAttribute("ClassName") = "title" Then
output.show(tr.innerhtml)
dizhi = dizhi & tr.GetElementsByTagName("a")(0).GetAttribute("href") & vbcrlf
End If
Next
FileSys.WriteAllText(lujing, dizhi, False, Encoding.Default)
Dim Proc As New Process \'定义一个新的Process
Proc.File = lujing
Proc.Start()
-- 发布时间：2016/1/12 21:06:00
--
已经非常感谢了 真的 Document 加与不加什么区别呢？
-- 发布时间：2016/1/12 21:09:00
--
获取数据是一环接一环的。先获取到class=title的元素tr，然后再获取里面的东西。
document是没用的东西，我之前拷贝代码的时候写错了没留意。