- 帖子
- 695
- 积分
- 1692
- 技术
- 61
- 捐助
- 20
- 注册时间
- 2011-3-31
|
2楼
发表于 2012-8-4 15:20
| 只看该作者
以前在一个批处理群共享里面看到一个命令,就是利用iexplore.exe来获取网页源码的,
好像是iexplore 0,0,0,0 地址 ,反正有好多个0
当时忘了保存,一行命令直接就可以获取网页源码了。
现在有个VBS源码,打开后直接就保存
url="http://huaian.w011.35in.com/2345/bat.htm"
Set html = CreateObject("microsoft.xmlhttp")
html.open "GET",url,False
html.send
txt = GB2312(html.responseBody)
'写入文本
set fso=CreateObject("Scripting.FileSystemObject")
set file=fso.OpenTextFile("htm.bat",2,True)
file.WriteLine txt
file.Close
function GB2312(val0)
dim i,op,t,t1
op = ""
for i = 1 to lenB(val0)
t = AscB(MidB(val0,i,1))
if t < &H80 Then
op = op & chr(t)
else
t1 = ascB(midB(val0,i+1,1))
op = op & chr(clng(t) * &H100 + cint(t1))
i = i + 1
end If
next
GB2312 = op
end Function |
|