找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 24965|回复: 4

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

[复制链接]
发表于 2015-6-11 16:31:00 | 显示全部楼层 |阅读模式
故事情节在这里http://bbs.crsky.com/read.php?tid=2822064&page=1

3楼的回复。
修改 useragent 还是不太明白,能否做个小视频,给我们洗洗脑?或多上点图片? 那能否做成批下理 批量弄回家呢?
发表于 2015-6-11 16:49:37 | 显示全部楼层
你需要欺骗的不是浏览器, 而是要冒充某个浏览器去欺骗服务器, 修改 useragent 就是一种方式
发表于 2015-6-11 17:23:38 | 显示全部楼层
发表于 2015-6-11 17:45:16 | 显示全部楼层
本帖最后由 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
复制代码
发表于 2015-6-11 20:40:09 | 显示全部楼层
回复 3# CrLf

要付费的非注册版, 要付 RMB 102.21. 不然 /useragent 参数也用不了, 别的什么不能用, 懒得试了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 23:58 , Processed in 0.018211 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表