[求助]阿里妈妈我要哭死了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]阿里妈妈我要哭死了

共有2362人关注过本帖树形打印复制链接主题：[求助]阿里妈妈我要哭死了

智友软件工作室

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00

[求助]阿里妈妈我要哭死了 发帖心情

Post By：2016/1/12 20:11:00 [只看该作者]

哭了我

以下内容是专门发给大红袍浏览

[此贴子已经被作者于2016/1/12 20:24:56编辑过]

智友软件工作室

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00

Post By：2016/1/12 20:26:00 [只看该作者]

袍哥我发你了帮我看看吧

智友软件工作室

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00

Post By：2016/1/12 20:29:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:阿里妈妈数据采集.foxdb

智友软件工作室

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00

Post By：2016/1/12 20:35:00 [只看该作者]

324887

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

智友软件工作室

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00

Post By：2016/1/12 20:35:00 [只看该作者]

324887

智友软件工作室

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：912 积分：7445 威望：0 精华：0 注册：2013/2/25 13:10:00

Post By：2016/1/12 20:43:00 [只看该作者]

949478

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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()