[求助]我想获取阿里妈妈淘宝客单品网页链接地址，能实现吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]我想获取阿里妈妈淘宝客单品网页链接地址，能实现吗？

共有4092人关注过本帖树形打印复制链接主题：[求助]我想获取阿里妈妈淘宝客单品网页链接地址，能实现吗？

智友软件工作室

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

加好友

发短信

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

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

怎么保存网页？不会啊，谢谢了

大红袍

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

加好友

发短信

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

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

那就把账号密码发上来。

大红袍

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

加好友

发短信

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

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

灵活变通啊

Dim web = Forms("窗口1").Controls("WebBrowser1").BaseControl
For Each tr As object In web.Document.GetElementsByTagName("span")
    If tr.GetAttribute("ClassName") = "color-red"
        Dim a = web.Document.GetElementsByTagName("a")(0)
        output.show(a.GetAttribute("href"))
    End If
Next

智友软件工作室

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

加好友

发短信

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

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

这个是测试了读取的网页是地址但是结果还都是一样的是不是中间有什么编码的问题或者转换的问题

大红袍

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

加好友

发短信

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

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

看23楼啊，加入msgbox弹出所有的值啊。

不会做把账号密码发上来

智友软件工作室

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

加好友

发短信

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

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

此主题相关图片如下：qq截图20160112200651.png

Dim lujing As String = ProjectPath & "\Attachments\分析结果.txt"

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl

Dim dizhi As String

For Each tr As object In web.Document.GetElementsByTagName("span")

If tr.GetAttribute("ClassName") = "color-red" Then

'dizhi = dizhi & tr.innerhtml & vbcrlf

'dizhi = dizhi & tr.Document.GetElementsByTagName("a")(0).GetAttribute("href") & vbcrlf

msgbox(tr.Document.GetElementsByTagName("a")(0).GetAttribute("href"))

End If

'Dim Values() As String

'Values = dizhi.split(vbcrlf)

'dizhi = ""

'For Index As Integer = 0 To Values.Length - 1

' dizhi = dizhi & Values(Index) & vbcrlf

'Next

FileSys.WriteAllText(lujing, dizhi, False, Encoding.Default)

Dim Proc As New Process '定义一个新的Process

Proc.File = lujing

Proc.Start()

智友软件工作室

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

加好友

发短信

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

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

我加你QQ把账户密码给你吧

大红袍

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

加好友

发短信

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

Post By：2016/1/12 20:15: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

大红袍

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

加好友

发短信

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

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

以下是引用大红袍在2016/1/12 17:51:00的发言：

比如

Dim web = Forms("窗口1").Controls("WebBrowser1").BaseControl
For Each tr As object In web.Document.GetElementsByTagName("li")
    If tr.GetAttribute("ClassName") = "title"
        Dim a = web.Document.GetElementsByTagName("a")(0)
        output.show(a.GetAttribute("href"))
    End If
Next

小问题

Dim a = web.Document.GetElementsByTagName("a")(0)

改成

Dim a = tr.GetElementsByTagName("a")(0)

智友软件工作室

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

加好友

发短信

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

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

这个怎么回事呢？我搞了4个小时了谢谢了我再哪能学习一下这个知识呢？

Document 这个差在哪里了？

下一主题 >> << 上一主题

总数 31 上一页 1 2 3 4 下一页

主题：[求助]我想获取阿里妈妈淘宝客单品网页链接地址，能实现吗？