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

Rank: 1

帖子
33 
积分
52 
技术
0  
捐助
0  
注册时间
2010-4-23 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-3-11 04:31 | 只看该作者

[文本处理] 批处理如何提取BING.CN里的连接？

批处理打开这个页面然后抓取里面的连接http://cn.bing.com/search?count=1000&q=ip:58.215.64.136
58.215.64.136这个IP是要变的，每次查询都换的，把里面的连接抓出来保存到1.TXT里，然后在执行这段代码
  1. @echo off

  2. more +9 "%~f0" >GetUrlText.vbs

  3. type nul >2.txt

  4. for /f %%a in (1.txt) do (

  5.     echo 正在检测：%%a

  6.     cscript //nologo GetUrlText.vbs %%a/123.aspx | findstr "<title>无法找到资源。</title>" && >>2.txt echo,%%a

  7. )

  8. goto :eof

  9. 

  10. strURL=WScript.Arguments(0)

  11. WScript.Echo strURL

  12. Set objXmlHttp = CreateObject("Microsoft.XMLHTTP")

  13. objXmlHttp.Open "GET",strURL,0

  14. objXmlHttp.Send()

  15. Set objStream = CreateObject("ADODB.Stream")

  16. objStream.Mode = 3

  17. objStream.Type = 1

  18. objStream.Open()

  19. objStream.Write(objXmlHttp.responsebody)

  20. objStream.Position = 0

  21. objStream.Type = 2

  22. objStream.Charset = "utf-8"

  23. strText = objStream.Readtext

  24. WScript.Echo strText
复制代码

[ 本帖最后由 zahirll 于 2011-3-12 18:37 编辑 ]
收藏 分享

zahirll

Rank: 1

帖子
33 
积分
52 
技术
0  
捐助
0  
注册时间
2010-4-23 
2楼
发表于 2011-3-11 14:07 | 只看该作者
管理。。。。。。。。。。。。。

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14936 
积分
46143 
技术
857  
捐助
745  
注册时间
2008-6-9 
3楼
发表于 2011-3-11 20:11 | 只看该作者
以http://cn.bing.com/search?count=1000&q=ip:58.215.64.136为例，你希望1.txt里面的内容长什么样子？
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

zahirll

Rank: 1

帖子
33 
积分
52 
技术
0  
捐助
0  
注册时间
2010-4-23 
4楼
发表于 2011-3-12 18:38 | 只看该作者
希望格式是
http://123123.com
http://22222.com
http://11111.com
一个地址一行

TOP

zahirll

Rank: 1

帖子
33 
积分
52 
技术
0  
捐助
0  
注册时间
2010-4-23 
5楼
发表于 2011-3-13 11:48 | 只看该作者
怎么没人帮忙啊。。。。。

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14936 
积分
46143 
技术
857  
捐助
745  
注册时间
2008-6-9 
6楼
发表于 2011-3-13 11:54 | 只看该作者
打开顶楼链接之后显示：
Ref A: CAB6146852B04F69A336665200EBB177 Ref B: 50E51EABBFF8A4225454FE43914B6E40 Ref C: Sat Mar 12 19:53:58 2011 PST

看不到任何链接
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

zahirll

Rank: 1

帖子
33 
积分
52 
技术
0  
捐助
0  
注册时间
2010-4-23 
7楼
发表于 2011-3-13 12:02 | 只看该作者
可以啊，你现在再开看看

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14936 
积分
46143 
技术
857  
捐助
745  
注册时间
2008-6-9 
8楼
发表于 2011-3-13 14:19 | 只看该作者

回复 7楼 的帖子

打开http://cn.bing.com/之后搜索哪个关键字？我自己试试
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

zahirll

Rank: 1

帖子
33 
积分
52 
技术
0  
捐助
0  
注册时间
2010-4-23 
9楼
发表于 2011-3-13 19:55 | 只看该作者
ip:58.215.64.136 输入这个。但是直接输入没有count=1000这个参数，他每页只显示10条，count=1000是一页显示1000条，这样他能全部显示玩，不然他分几页才能显示完

TOP

zahirll

Rank: 1

帖子
33 
积分
52 
技术
0  
捐助
0  
注册时间
2010-4-23 
10楼
发表于 2011-3-15 00:44 | 只看该作者
管理大大。。。。。。。

TOP

zahirll

Rank: 1

帖子
33 
积分
52 
技术
0  
捐助
0  
注册时间
2010-4-23 
11楼
发表于 2011-3-15 19:14 | 只看该作者
顶上~~~~~~~~~

TOP

zahirll

Rank: 1

帖子
33 
积分
52 
技术
0  
捐助
0  
注册时间
2010-4-23 
12楼
发表于 2011-3-17 19:26 | 只看该作者
唉~~~~~~~~~~~~~~

TOP

返回列表