vbs如何实现myipneighbors域名查询结果整理-创新互联

本篇内容介绍了“vbs如何实现myipneighbors域名查询结果整理”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!

创新互联公司专业成都网站设计、网站建设,集网站策划、网站设计、网站制作于一体,网站seo、网站优化、网站营销、软文发稿等专业人才根据搜索规律编程设计,让网站在运行后,在搜索中有好的表现,专业设计制作为您带来效益的网站!让网站建设为您创造效益。

碰到虚拟机的时候,还是能偷点懒的 :-)


复制代码 代码如下:


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 "

"
.Write ""
.Write ""
.Write ""
.Write ""
.Write ""
.Write "
Google_Site查询
www."&Data&"
查扩展映射(asp|aspx|cfm)
查扩展映射(cgi|jsp|pl|py|php|php3)
"
.Writeline "

"
.close
End With
Loop
File.Close
Set Fso=Nothing
Wscript.Echo "ok"


“vbs如何实现myipneighbors域名查询结果整理”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站,小编将为大家输出更多高质量的实用文章!


网站名称:vbs如何实现myipneighbors域名查询结果整理-创新互联
本文URL:http://pwwzsj.com/article/idsgp.html