[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[网络连接] 如何制作批处理,批量欺骗浏览器,批量下载到家?

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

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

回复 3# CrLf

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

TOP

本帖最后由 pcl_test 于 2015-6-11 18:14 编辑
  1. url = "http://www.unsv.com/material/OMG-Meiyu/2011/07/18/answer_fans_questions/"
  2. Set http = CreateObject ("Microsoft.XMLHTTP")
  3. http.Open "GET", url, false
  4. http.Send
  5. txt = http.responseText
  6. Set re = New RegExp
  7. re.Pattern = "&ipad=(\d+)"
  8. re.Global = true
  9. If Not re.Test(txt) Then Msgbox "未找到"
  10. For Each m in re.Execute(txt)
  11. 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"
  12. Next
复制代码

TOP

TOP

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

TOP

返回列表