代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Shell
】
获取IE缓存中的音乐文件
作者:
everest79
/ 发布于
2014/1/21
/
758
On Error Resume Next Dim Fso,Filenum,Dirnum,sPath,TmpType,newFP IF MsgBox("请确定已经先打开浏览器,开始在线视听!",vbYesNo,"提示") = vbNo Then Wscript.Quit Else Set Fso = Wscript.CreateObject("Scripting.FileSystemobject") Set Wfolder=Fso.getspecialfolder(2) Filenum = 0 Dirnum = 0 sPath = left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName)) TmpPath = trim(CreateObject("Wscript.Shell").ExpandEnvironmentStrings("%USERPROFILE%") & "\Local Settings\Temporary Internet Files\") FileType = LCase(Inputbox("wma、wav、flv、swf、mp3、mid、或其它类型","文件类型:","wma")) newFP=LCase(Inputbox("请输入文件存放路径:","存放路径","D:\TempFile")) if right(newFP,1) <> "\" then newFP = newFP & "\" end if if (fso.folderexists(newFP)) then FindFiles TmpPath else set foldr=fso.createfolder(newFP) FindFiles TmpPath end if end if if msgbox("文件提取完成!" & vbCrLf & vbCrLf & vbCrLf & "是否需要打开 " & newFP & vbcrlf,vbYesNo,"执行结果") = vbYes Then set cmd=createobject("wscript.shell") cmd.run newFP else wscript.quit end if Sub FindFiles(ByVal FPath) On Error Resume Next Dim fso, myFolder, myFile, curFolder Set fso = wscript.CreateObject("scripting.filesystemobject") Set curFolders = fso.getfolder(FPath) Dirnum = Dirnum + 1 If curFolders.Files.Count > 0 Then For Each myFile In curFolders.Files If InStr(1, LCase(myFile.Name), FileType) > 0 Then filepath = FormatPath(FPath) & "\" & myFile.Name fso.deletefile(filepath) if fso.fileexists(filepath) then if msgbox("是否需要为被提取文件重命名?" , vbYesNo , "提示" ) = vbYes then fso.copyfile filepath,newFP & inputbox("请输入新文件名:","提示","NewFile") & "." & filetype,true else fso.copyfile filepath,newFP,true end if end if Filenum = Filenum + 1 End If Next End If If curFolders.subfolders.Count > 0 Then For Each myFolder In curFolders.subfolders FindFiles FormatPath(FPath) & "\" & myFolder.Name Next End If End Sub Function FormatPath(ByVal FPath) FPath = Trim(FPath) FormatPath = FPath If Right(FPath, 1) = "\" Then FormatPath = Mid(FPath, 1, Len(FPath) - 1) End Function
试试其它关键字
E缓存
同语言下
.
判断用户输入的是否为IP地址
.
根据web访问日志,封禁请求量异常的IP,如IP在半小时
.
iptables自动屏蔽访问网站频繁的IP
.
批量修改服务器用户密码
.
监控httpd的进程数,根据监控情况做相应处理
.
创建10个用户,并分别设置密码,密码要求10位且包含大
.
Expect实现SSH免交互执行命令
.
输入数字运行相应命令
.
用shell打印示例语句中字母数小于6的单词
.
扫描主机端口状态
可能有用的
.
C#实现的html内容截取
.
List 切割成几份 工具类
.
SQL查询 多列合并成一行用逗号隔开
.
一行一行读取txt的内容
.
C#动态修改文件夹名称(FSO实现,不移动文件)
.
c# 移动文件或文件夹
.
c#图片添加水印
.
Java PDF转换成图片并输出给前台展示
.
网站后台修改图片尺寸代码
.
处理大图片在缩略图时的展示
everest79
贡献的其它代码
(
8
)
.
读取文件内容到剪切板
.
隐藏任务栏里面的程序图标
.
获取IE缓存中的音乐文件
.
VBS打开我的电脑
.
把时分秒形式转换成秒
.
生成随机帐户
.
VBS计算网络地址与广播地址
.
VBS模拟开机动画
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3