vbs实现myipneighbors 域名查询结果整理

2009-9-23 17:20 616 0

摘要: 　　把myipneighbors查询的结果COPY下来,然后保存后,拖到此脚本上,进行整理因为myipneighbors有验证码,能力有限,没办法突破..只能先这样了. 　　碰到虚拟机的时候,还是能...

　　把myipneighbors查询的结果COPY下来,然后保存后,拖到此脚本上,进行整理因为myipneighbors有验证码,能力有限,没办法突破..只能先这样了. 　　碰到虚拟机的时候,还是能偷点懒的 :-) 　　代码如下: 　　On Error Resume Next 　　Set Arg=Wscript.Arguments 　　If Arg.count=0 then Wscript.quit 　　'code by NetPatch 　　'enjoy it 　　Set Fso=CreateObject("Scripting.FileSystemObject") 　　Set Gofile=Fso.OpenTextFile(Arg(0),1,false,-2) 　　Do while Gofile.Atendofline <> True 　　Data=gofile.readline 　　With fso.opentextfile(Arg(0)&".htm",8,true) 　　Data=replace(Data,"(view site)","") 　　Data=trim(replace(Data,mid(Data,1,InStr(Data,")")),"")) 　　.Write "<table>" 　　.Write "<tr>" 　　.Write "<tr><td><a href='http://www.google.be/search?hl=zh-CN&q=site:"&Data&"&btnG=Google+' tArget='_blank'>Google_Site查询</a></td></tr>" 　　.Write "<td><a href='http://www."&Data&"' tArget='_blank'>www."&Data&"</a></td></tr>" 　　.Write "<tr><td><a href='http://www.google.be/search?hl=zh-CN&q=site:"&Data&"+inurl:asp|aspx|cfm&btnG=Google+' tArget='_blank'>查扩展映射(asp|aspx|cfm)</a></td></tr>" 　　.Write "<tr><td><a href='http://www.google.be/search?hl=zh-CN&q=site:"&Data&"+inurl:cgi|jsp|pl|py|php|php3&btnG=Google+' tArget='_blank'>查扩展映射(cgi|jsp|pl|py|php|php3)</a></td></tr>" 　　.Write "</table>" 　　.Writeline "<br><br>" 　　.close 　　End With 　　Loop 　　File.Close 　　Set Fso=Nothing 　　Wscript.Echo "ok"

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除