gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 25 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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" 。

最后此篇关于vbs实现myipneighbors 域名查询结果整理的文章就讲到这里了,如果你想了解更多关于vbs实现myipneighbors 域名查询结果整理的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com