最近想到公司网站下一些文档,结果网站上做了下载总大小限制,没办法只好写个脚本来获取。
运行环境1:Windows XP StrawberryPerl 5.20 (WIKI:http://win32.perl.org/wiki/index.php?title=Strawberry_Perl)
运行环境2:Linux perl 5.8.8
抓包工具:
HttpWatch Professional v6.0.14 IE插件
Firefox上的Firebug和Live HTTP Headers插件,Chrome Web上的Developer Tools,我都试过,还是觉得httpwatch抓包的结果最满意。
我之前登录网页,都是直接将要访问的连接贴到浏览器,然后浏览器会弹出对话框,要求输入帐号密码。
这里,我需要抓一下包,之前我一直使用Firebug抓包,结果抓的都是GET消息,最后获取到状态为200的页面,以下就是网页内容
<HTML>
<!-- File: llgettz.html -->
<SCRIPT Language="Javascript1.2">
function getTime()
{
var llglogin_CurrentClientTime = new Date()
var llglogin_year = ( llglogin_CurrentClientTime.getFullYear == null ) ? llglogin_CurrentClientTime.getYear() : llglogin_CurrentClientTime.getFullYear()
var llglogin_month = llglogin_CurrentClientTime.getMonth() + 1
var llglogin_date = llglogin_CurrentClientTime.getDate()
var llglogin_hour = llglogin_CurrentClientTime.getHours()
var llglogin_minute = llglogin_CurrentClientTime.getMinutes()
var llglogin_second = llglogin_CurrentClientTime.getSeconds()
document.LoginForm.CurrentClientTime.value = 'D/' + llglogin_year + '/' + llglogin_month + '/' + llglogin_date
document.LoginForm.CurrentClientTime.value += ':' + llglogin_hour + ':' + llglogin_minute + ':' + llglogin_second
document.LoginForm.submit()
}
</SCRIPT>
<BODY BGCOLOR="#FFFFFF" BACKGROUND="/img/pattern.gif" onLoad="getTime()">
<FORM NAME="LoginForm" METHOD="POST" ACTION="/livelink/livelink.exe">
<INPUT TYPE="HIDDEN" NAME="func" VALUE="ll.login">
<INPUT TYPE="HIDDEN" NAME