Foxtable(狐表) → 用户栏目 → 专家坐堂 → [算解決]请教高手,如何獲得帶PassWord的網頁代碼?


  共有6650人关注过本帖树形打印复制链接

主题：[算解決]请教高手,如何獲得帶PassWord的網頁代碼?
帅哥哟，离线，有人找我吗？
Bin
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/5/6 15:37:00 [只看该作者]

...URL参数,不是说这个啦.晕. 这个需要一定的BS开发知识的.你还是放弃好了.  或者等我有机会给你做个例子

 回到顶部
帅哥哟，离线，有人找我吗？
FoxMan
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00 		  发帖心情 Post By：2013/5/6 15:48:00 [只看该作者]

好吧,我就不操心了,等你例子,先谢啦

 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2013/5/8 11:31:00 [只看该作者]

顶顶啦.

 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2013/5/8 16:44:00 [只看该作者]

不能沉了

 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2013/5/8 18:43:00 [只看该作者]

一日三顶!

 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2013/5/10 12:23:00 [只看该作者]

百度一段用VB獲取帶Password的網頁代碼, 如何改為FT的?

Sub aaaa(strURL, strTitle)  
    Dim strFormData As String
    strFormData = "UserName=****&Password=******&sURL=%2Fservlet%2FNews.Detail%3Fid%3D843442&x=38&y=8"    '紅色部分是網頁地址?
    Inet1.Execute strURL, "Post", strFormData, "Content-Type: application/x-www-form-urlencoded "
 
    Do Until Inet1.StillExecuting = False '这里阻塞前面的Inet1，确保登陆成功之后再取页面，你可以将此Do取消了试一次。
        DoEvents
    Loop 
        Inet1.Cancel
    WebBrowser1.Navigate strURL
[此贴子已经被作者于2013-5-10 12:25:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/5/10 12:30:00 [只看该作者]

以下是引用don在2013-5-10 12:23:00的发言：
百度一段用VB獲取帶Password的網頁代碼, 如何改為FT的?

Sub aaaa(strURL, strTitle)  
    Dim strFormData As String
    strFormData = "UserName=****&Password=******&sURL=%2Fservlet%2FNews.Detail%3Fid%3D843442&x=38&y=8"    '紅色部分是網頁地址?
    Inet1.Execute strURL, "Post", strFormData, "Content-Type: application/x-www-form-urlencoded "
 
    Do Until Inet1.StillExecuting = False '这里阻塞前面的Inet1，确保登陆成功之后再取页面，你可以将此Do取消了试一次。
        DoEvents
    Loop 
        Inet1.Cancel
    WebBrowser1.Navigate strURL
[此贴子已经被作者于2013-5-10 12:25:06编辑过]


红色部分是一个URL参数. strFormData 意思是为这次提交的参数字符串 以&号分割
上面的东西对你来说没什么意义,因为没个网站的参数都是不一样的,开发者定义的.
而且对于你的那个特殊需求,必须使用第三方工具才能弄清楚提交格式.
而且很显然不是使用Get方式提交,所以这个例子对你没有用处.
 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2013/5/10 12:41:00 [只看该作者]

蛋疼!

 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2013/5/10 17:46:00 [只看该作者]

在Bin老師的代碼基礎下====> 加上讓系統記住登陸狀態(每天輸入密碼1次)===>獲取下載路徑 ====> 通過Network.DownloadFile下載;
問題算是解決了,在此再次多謝Bin!图片点击可在新窗口打开查看
 回到顶部
总数 29 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 01.47266 秒, 4 次数据查询