足球游戏_中国足彩网¥体育资讯$

vbs实现myipneighbors 域名查询结果整理
来源:易贤网 阅读:1240 次 日期:2016-07-18 15:23:02
温馨提示:易贤网小编为您整理了“vbs实现myipneighbors 域名查询结果整理”,方便广大网友查阅!

把myipneighbors查询的结果COPY下来,然后保存后,拖到此脚本上,进行整理因为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"

中国足彩网信息请查看脚本栏目
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标