[分享]网页数据下载与控制

ce100818 · 发表于 2007-10-22 22:15

怎么没有具体的程序下载,全是感想么?

hhzjxss · 发表于 2007-11-12 09:16

谢谢楼主共享，找时间再来仔细看看！

mingg · 发表于 2007-11-15 08:25

学习

lihongju · 发表于 2007-11-23 21:51

谢谢楼主,我正在学习这方面的东西，太棒了。

qqboy1 · 发表于 2007-12-19 11:07

请问楼主，如何实现下载论坛内指定贴子的楼主贴。比如用Excel只下载http://bbs.newssc.org/dispbbs.asp?BoardID=112&ID=771605&replyID=3177764&skin=1 该页的楼主贴，其他内容不下载。

hope5691478 · 发表于 2008-1-3 11:14

正想做这个，多谢提供！

daluguo999 · 发表于 2008-1-3 12:55

好好学习一下

lon91ong · 发表于 2008-1-4 16:59

将楼主的文件整理成了PDF文档，更方便些！

好文就该这样收藏的！

9H0y6wYa.rar (231.09 KB, 下载次数: 1051)

qqboy1 · 发表于 2008-2-16 18:29

楼主的贴子非常好，正在学习中。。。。

请问：
（1）pDisp.LocationURL 是什么意思？

（2）If pDisp.LocationURL = "http://www.htky365.com/express.asp" 是什么意思？

（3）我的以下代码【1-4】处为何报错？如何才能实现登录？以163邮箱为例。

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

'页面调用完毕
If WebBrowser1.ReadyState <> READYSTATE_COMPLETE Then Exit Sub

【1】 If pDisp.LocationURL = "http://pri.cxfuwu.com/CorpList.aspx" Then
          登录网站
        End If
End Sub

Sub 登录网站()
    Dim I As Single
    Dim UserName, UserPass As String
    Dim Doc As Object

    '获得浏览器的文档对象
    Set Doc = WebBrowser1.Document

    UserName = "yt"
    UserPass = ""

    '填写登录信息点击登录按钮
【2】    Doc.body.All("UserPanel1:txtUid").Value = UserName
【3】    Doc.body.All("UserPanel1:txtPwd").Value = UserPass
【4】    Doc.body.All("UserPanel1:btnLogon").Click
End Sub

[此贴子已经被作者于2008-2-16 18:32:47编辑过]

		自动登录	找回密码
密码			免费注册

[分享]网页数据下载与控制

关于论坛指定贴子单独下载

[求助]如何取出网页上表格中图片的地址