vbs实现myipneighbors 域名查询结果整理
导读：收集整理的这篇文章主要介绍了vbs实现myipneighbors 域名查询结果整理，觉得挺不错的，现在分享给大家，也给大家做个参考。 碰到虚拟机的时候,还是能偷点懒的 :- 复制代码 代...
收集整理的这篇文章主要介绍了vbs实现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"
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： vbs实现myipneighbors 域名查询结果整理
本文地址： https://pptw.com/jishu/609782.html