vbs实现myipneighbors 域名查询结果整理
程序员文章站
2022-03-21 11:06:07
碰到虚拟机的时候,还是能偷点懒的 :-)复制代码 代码如下: on error resume next set arg=wscript.arguments if arg.c...
碰到虚拟机的时候,还是能偷点懒的 :-)
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"
复制代码 代码如下:
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"
上一篇: 一个扩展时间段的dir命令的vbs脚本
下一篇: Go语言通过smtp发送邮件的方法