批处理之家 - Powered by Discuz! Board

标题: [网络连接] 如何制作批处理，批量欺骗浏览器，批量下载到家？ [打印本页]

作者: 我来了 时间: 2015-6-11 16:31 标题: 如何制作批处理，批量欺骗浏览器，批量下载到家？

故事情节在这里http://bbs.crsky.com/read.php?tid=2822064&page=1

3楼的回复。
修改 useragent 还是不太明白，能否做个小视频，给我们洗洗脑？或多上点图片？那能否做成批下理批量弄回家呢？

作者: aa77dd@163.com 时间: 2015-6-11 16:49

你需要欺骗的不是浏览器, 而是要冒充某个浏览器去欺骗服务器, 修改 useragent 就是一种方式

作者: CrLf 时间: 2015-6-11 17:23

http://www.bathome.net/viewthread.php?tid=2593

作者: pcl_test 时间: 2015-6-11 17:45

本帖最后由 pcl_test 于 2015-6-11 18:14 编辑

url = "http://www.unsv.com/material/OMG-Meiyu/2011/07/18/answer_fans_questions/"
Set http = CreateObject ("Microsoft.XMLHTTP")
http.Open "GET", url, false
http.Send
txt = http.responseText
Set re = New RegExp
re.Pattern = "&ipad=(\d+)"
re.Global = true
If Not re.Test(txt) Then Msgbox "未找到"
For Each m in re.Execute(txt)
Msgbox "转换链接http://v.iask.com/v_play_ipad.php?vid="+m.SubMatches(0)+vbCrLf+"下载地址http://211.161.83.32/edge.v.iask.com/"+m.SubMatches(0)+".mp4"
Next
复制代码

作者: aa77dd@163.com 时间: 2015-6-11 20:40

回复 3# CrLf

要付费的非注册版, 要付 RMB 102.21. 不然 /useragent 参数也用不了, 别的什么不能用, 懒得试了

欢迎光临批处理之家 (http://www.bathome.net/)