当前位置： 移动技术网 > IT编程>脚本编程>VBScript > vbs实现myipneighbors 域名查询结果整理

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

2017年12月08日  | 移动技术网IT编程  | 我要评论

动车网,笔刷下载,俄罗斯交友网站

碰到虚拟机的时候,还是能偷点懒的 :-)
复制代码 代码如下:

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"

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网