您现在的位置是：网站首页> 编程资料编程资料
vbs实现myipneighbors 域名查询结果整理_vbs_
2023-05-25
292人已围观
简介 vbs实现myipneighbors 域名查询结果整理_vbs_
碰到虚拟机的时候,还是能偷点懒的 :-)
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 ""
"
.Writeline "
"
.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 "
| 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 下载方法(CDO.MESSAGE)_vbs_
- excel2access vbs脚本_vbs_
- vbs 更改环境变量_vbs_
- Rcmd.vbs 1.01修正版 增加了下载功能_vbs_
- Rcmd.vbs [Remote Cmd with wmi]远程脚本_vbs_
- HTA文件去除html控件认证和接收命令行参数_vbs_
- iis PHP安装脚本 PHPInstall.vbs V3.1_vbs_
- 文件夹定时自动备份 AutoBackUpFolder.vbs_vbs_
- 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码_vbs_
- discuz 任意管理员密码漏洞利用工具 vbs代码_vbs_
