求一个用vbs查找硬盘所有分区中的11.exe程序？ - 中国DOS联盟论坛

偶也写了一个，可搜索所有分区，代码如下，保存为任意.vbs文件双击便可，如果嫌麻烦的朋友可以下载附件。（注意请在磁盘根目录下运行）。



On Error Resume Next	'忽略所有错误

Dim filename	'声明变量
Dim re
Set re=New RegExp	'建立正则表达式对象实例

re.Pattern="^(|)+\:\\\w+\.vbs$"
If re.Test(WScript.ScriptFullName)=False Then
        MsgBox "请在磁盘根目录下运行本程序，否则搜索结果可能会不正确！",,"MessageBox"
        WScript.Quit
End If

'声明正则表达式的匹配模式，主要用来检验用户输入的文件名是否正确
re.Pattern="^(|)+\.{1,4}$"
Do 
        filename=InputBox("请输入你要搜索的文件名：","MessageBox")
        If filename="" Then WScript.Quit	'如果输入为空则退出脚本
        If re.Test(filename)=False Then
                MsgBox "请输入合法的文件名！",,"MessageBox"
        End If
Loop While re.Test(filename)=False	'直到用户输入正确的文件名时才跳出循环。

Set re=Nothing

'建立IE对象，用来显示搜索状态
Dim ie
Set ie=WScript.CreateObject("internetexplorer.application")	

ie.menubar=0	'不显示IE对象菜单栏
ie.AddressBar=0	'不显示IE对象地址栏
ie.ToolBar=0	'不显示IE对象工具栏
ie.StatusBar=0	'不显示IE对象状态栏
ie.FullScreen=1	'全屏化IE对象
ie.Width=640	'设置IE对象宽度
ie.Height=120	'设置IE对象高度
ie.Resizable=0	'设置IE对象大小是否可以被改动
ie.Navigate "about:blank"	'设置IE对象默认指向的页面
'设置IE对象左边距
ie.Left=Fix((ie.Document.parentwindow.screen.availwidth-ie.Width)/2)
'设置IE对象右边距	
ie.top=Fix((ie.document.parentwindow.screen.availheight-ie.height)/2)	
ie.visible=1	'设置IE对象是否可视

'以下为在IE对象中写入页面，跟一般的HTML没有区别
With ie.Document
        .write "<html>"
        .write "<head>"
        .write "<title>文件扫描状态</title>"
        .write "<meta http-equiv=""content-type"" content=""text/html;charset=gb2312"">"
        .write "<style><!--"
        .write "body { background:#000000;text-align:center;margin:0px auto; }"
        .write "* { font-family:Arial;font-size:9pt;color:#00cc00;line-height:140%; }"
        .write "a:link,ahover,a:visited { text-decoration:none; }"
        .write "#scanstatus { text-align:left;margin:15px; }"
        .write "#header { width:100%;height:20px; }"
        .write "#middle { width:100%;height:50px; }"
        .write "#footer { width:100%;height:20px;text-align:right; }"
        .write "--></style>"
        .write "</head>"
        .write "<body scroll=no>"
        .write "<div id=""scanstatus"">"
        .write "<div id=""header"">正在启动搜索程序。。。</div>"
        .write "<div id=""middle""></div>"
        .write "<div id=""footer""><a href=""#"" onclick=""window.close()"">退出程序</a></div>"
        .write "</div>"
        .write "</body>"
        .write "</html>"
End With

'定义文件系统对象变量
Dim fso        
Dim objfolder
Dim objsubfolders
Dim objsubfolder
Dim objfiles
Dim objfile
Dim objdrives
Dim objdrive
Dim objtextfile
Dim str:str=""
Dim i:i=0	'计数器变量
Dim result
result="C:\搜索结果.html"	'搜索结果保存文件变量

'用来遍历硬盘文件的函数
Function search(path)
        Set objfolder=fso.getfolder(path)	'获得当前路径
        Set objfiles=objfolder.Files	'获得当前路径下的所有文件集合
        For Each objfile In objfiles	'开始遍历文件集合
		'将当前搜索的文件路径写入ID为middle的DIV中
                ie.Document.getElementById("middle").innerHTML=objfile.Path
		'如果当前文件名与用户输入的文件名一致
                If objfile.Name=filename Then 
                        i=i+1	'计数器加一
                        str=str & objfile.Path & "<br>"
			'创建文本流对象，文件名为变量result所存储的字符串
                        Set objtextfile=fso.OpenTextFile(result,2,True)	
			'将变量str中的文件路径写入html文件中
                        objtextfile.Write(str)
                        objtextfile.Close	'关闭文本流对象
                        Set objtextfile=Nothing	'销毁对象
                End If
                If i>0 Then
                        ie.Document.getElementById("header").innerHTML="找到 " & i & " 个匹配，详细信息已保存在 """ & result & """ 文件中。。。"
                Else
                        ie.Document.getElementById("header").innerHTML="正在执行文件搜索。。。"
                End If
                WScript.Sleep(20)
        Next
        Set objsubfolders=objfolder.SubFolders	'得到当前路径下的所有文件夹的集合
        For Each objsubfolder In objsubfolders	'遍历文件夹
                nowpath=path & "\" & objsubfolder.Name	'得到新的文件路径
                search nowpath	'调用函数自身，从新的路径开始搜索
        Next
End Function 

Set fso=CreateObject("scripting.filesystemobject")
Set objdrives=fso.Drives	'取得当前计算机的所有磁盘驱动器
For Each objdrive In objdrives	'遍历磁盘
        search objdrive	'调用函数
Next

'结束时显示的信息
ie.Document.getElementById("header").innerHTML="扫描已结束。。。"
If i>0 Then
	ie.Document.getElementById("middle").innerHTML="请打开 """ & result & """ 查看详细搜索结果！"
Else
	ie.Document.getElementById("middle").innerHTML="没有找到要搜索的文件！"
End If

'销毁对象变量，释放内存空间

Set objdrives=Nothing
Set objfiles=Nothing
Set objfile=Nothing
Set objdrive=Nothing
Set objfolders=Nothing
Set objfolder=Nothing
Set objsubfolders=Nothing
Set objsubfolder=Nothing
Set fso=Nothing

顺便还加了注释，不过现在还有一点问题就是有的目录还没搜索就跳过去了，不知道是权限问题还是啥原因。

[ Last edited by 112183883 on 2007-2-12 at 07:11 PM ]

第1楼　anqing	发表于 2007-02-11 06:18
高级用户　发帖 413　积分 859
求一个用vbs查找硬盘所有分区中的11.exe程序？求一个用vbs查找硬盘所有分区中的11.exe程序？最好能注释

第2楼　anqing	发表于 2007-02-11 11:54
高级用户　发帖 413　积分 859
自己顶一下

第3楼　slore	发表于 2007-02-11 12:36
铂金会员　发帖 2,478　积分 5,212
建议dir /s /b 分区:\.exe 然后vbs读取这个全部文件路径的文本看每行的后5个字符是不是11.exe [ Last edited by slore on 2007-2-11 at 02:12 PM* ]

第4楼　anqing	发表于 2007-02-11 22:27
高级用户　发帖 413　积分 859
我主要是想学习vbs，实现这个功能的用法？其实原本就是学习楼上的兄弟，能不能写出全部的代码？文本读取，用vbs，正是我现在想要学习的

第5楼　slore	发表于 2007-02-12 02:39
铂金会员　发帖 2,478　积分 5,212
Const ForReading = 1 Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("d:\slorelee\桌面\test.txt", ForReading) strText = objFile.ReadAll objFile.Close

第6楼　anqing	发表于 2007-02-12 06:11
高级用户　发帖 413　积分 859
我一边对照命令介绍一边看加深理解，但理解不足呀？

第7楼　kich	发表于 2007-02-12 11:53
中级用户　发帖 168　积分 397
是想查多少个,还是查具体路径呢? 新手先问一下

第8楼　anqing	发表于 2007-02-12 11:56
高级用户　发帖 413　积分 859
想查多少个？

第9楼　anqing	发表于 2007-02-12 11:57
高级用户　发帖 413　积分 859
不管是不是新手，能回复都感谢！！！因为我在问，你在答！！

第10楼　slore	发表于 2007-02-12 14:07
铂金会员　发帖 2,478　积分 5,212
BAT文件: @echo off dir /s /b C\*.exe>Allexe.txt :可以在家别的盘用>>追加 cscript vbsfile.vbs type 11.exe.txt pause>nul VBSFile.vbs文件: Const ForReading = 1 Const ForWriting = 2 Set objFSO = Createobject("Scripting.Filesystemobject") Set objFile = objFSO.OpenTextFile("allexe.txt", ForReading) Set OutFile = objFSO.OpenTextFile("11.exe.txt", ForWriting,True) Dim num num=0 Do While objFile.AtEndOfStream<>True strText = objFile.Readline If Mid(Instrrev(strText,"\")+1,5)="11.exe" Then Msgbox strText num=num+1 OutFile.Writeline strText End If Loop OutFile.Writeline " 总共发现" & num & "个11.exe文件" OutFile.Close objFile.Close

第11楼　112183883	发表于 2007-02-12 17:57
初级用户　发帖 31　积分 128
偶也写了一个，可搜索所有分区，代码如下，保存为任意.vbs文件双击便可，如果嫌麻烦的朋友可以下载附件。（注意请在磁盘根目录下运行）。 On Error Resume Next '忽略所有错误 Dim filename '声明变量 Dim re Set re=New RegExp '建立正则表达式对象实例 re.Pattern="^(\|)+\:\\\w+\.vbs$" If re.Test(WScript.ScriptFullName)=False Then MsgBox "请在磁盘根目录下运行本程序，否则搜索结果可能会不正确！",,"MessageBox" WScript.Quit End If '声明正则表达式的匹配模式，主要用来检验用户输入的文件名是否正确 re.Pattern="^(\|)+\.{1,4}$" Do filename=InputBox("请输入你要搜索的文件名：","MessageBox") If filename="" Then WScript.Quit '如果输入为空则退出脚本 If re.Test(filename)=False Then MsgBox "请输入合法的文件名！",,"MessageBox" End If Loop While re.Test(filename)=False '直到用户输入正确的文件名时才跳出循环。 Set re=Nothing '建立IE对象，用来显示搜索状态 Dim ie Set ie=WScript.CreateObject("internetexplorer.application") ie.menubar=0 '不显示IE对象菜单栏 ie.AddressBar=0 '不显示IE对象地址栏 ie.ToolBar=0 '不显示IE对象工具栏 ie.StatusBar=0 '不显示IE对象状态栏 ie.FullScreen=1 '全屏化IE对象 ie.Width=640 '设置IE对象宽度 ie.Height=120 '设置IE对象高度 ie.Resizable=0 '设置IE对象大小是否可以被改动 ie.Navigate "about:blank" '设置IE对象默认指向的页面 '设置IE对象左边距 ie.Left=Fix((ie.Document.parentwindow.screen.availwidth-ie.Width)/2) '设置IE对象右边距 ie.top=Fix((ie.document.parentwindow.screen.availheight-ie.height)/2) ie.visible=1 '设置IE对象是否可视 '以下为在IE对象中写入页面，跟一般的HTML没有区别 With ie.Document .write "<html>" .write "<head>" .write "<title>文件扫描状态</title>" .write "<meta http-equiv=""content-type"" content=""text/html;charset=gb2312"">" .write "<style><!--" .write "body { background:#000000;text-align:center;margin:0px auto; }" .write "* { font-family:Arial;font-size:9pt;color:#00cc00;line-height:140%; }" .write "a:link,ahover,a:visited { text-decoration:none; }" .write "#scanstatus { text-align:left;margin:15px; }" .write "#header { width:100%;height:20px; }" .write "#middle { width:100%;height:50px; }" .write "#footer { width:100%;height:20px;text-align:right; }" .write "--></style>" .write "</head>" .write "<body scroll=no>" .write "<div id=""scanstatus"">" .write "<div id=""header"">正在启动搜索程序。。。</div>" .write "<div id=""middle""></div>" .write "<div id=""footer""><a href=""#"" onclick=""window.close()"">退出程序</a></div>" .write "</div>" .write "</body>" .write "</html>" End With '定义文件系统对象变量 Dim fso Dim objfolder Dim objsubfolders Dim objsubfolder Dim objfiles Dim objfile Dim objdrives Dim objdrive Dim objtextfile Dim str:str="" Dim i:i=0 '计数器变量 Dim result result="C:\搜索结果.html" '搜索结果保存文件变量 '用来遍历硬盘文件的函数 Function search(path) Set objfolder=fso.getfolder(path) '获得当前路径 Set objfiles=objfolder.Files '获得当前路径下的所有文件集合 For Each objfile In objfiles '开始遍历文件集合 '将当前搜索的文件路径写入ID为middle的DIV中 ie.Document.getElementById("middle").innerHTML=objfile.Path '如果当前文件名与用户输入的文件名一致 If objfile.Name=filename Then i=i+1 '计数器加一 str=str & objfile.Path & "<br>" '创建文本流对象，文件名为变量result所存储的字符串 Set objtextfile=fso.OpenTextFile(result,2,True) '将变量str中的文件路径写入html文件中 objtextfile.Write(str) objtextfile.Close '关闭文本流对象 Set objtextfile=Nothing '销毁对象 End If If i>0 Then ie.Document.getElementById("header").innerHTML="找到 " & i & " 个匹配，详细信息已保存在 """ & result & """ 文件中。。。" Else ie.Document.getElementById("header").innerHTML="正在执行文件搜索。。。" End If WScript.Sleep(20) Next Set objsubfolders=objfolder.SubFolders '得到当前路径下的所有文件夹的集合 For Each objsubfolder In objsubfolders '遍历文件夹 nowpath=path & "\" & objsubfolder.Name '得到新的文件路径 search nowpath '调用函数自身，从新的路径开始搜索 Next End Function Set fso=CreateObject("scripting.filesystemobject") Set objdrives=fso.Drives '取得当前计算机的所有磁盘驱动器 For Each objdrive In objdrives '遍历磁盘 search objdrive '调用函数 Next '结束时显示的信息 ie.Document.getElementById("header").innerHTML="扫描已结束。。。" If i>0 Then ie.Document.getElementById("middle").innerHTML="请打开 """ & result & """ 查看详细搜索结果！" Else ie.Document.getElementById("middle").innerHTML="没有找到要搜索的文件！" End If '销毁对象变量，释放内存空间 Set objdrives=Nothing Set objfiles=Nothing Set objfile=Nothing Set objdrive=Nothing Set objfolders=Nothing Set objfolder=Nothing Set objsubfolders=Nothing Set objsubfolder=Nothing Set fso=Nothing 顺便还加了注释，不过现在还有一点问题就是有的目录还没搜索就跳过去了，不知道是权限问题还是啥原因。 [ Last edited by 112183883 on 2007-2-12 at 07:11 PM ] 附件 Fsearch.rar (2.26 KiB)

第12楼　anqing	发表于 2007-02-12 21:25
高级用户　发帖 413　积分 859
这个vbs脚本好难看懂里面为什么涉及到网页了？？

第13楼　jmz573515	发表于 2007-02-13 04:50
银牌会员　发帖 464　积分 1,212
学习了

第14楼　112183883	发表于 2007-02-13 09:36
初级用户　发帖 31　积分 128
IE对象只是用来写界面而已 [ Last edited by 112183883 on 2007-2-13 at 09:39 AM ]

第15楼　anqing	发表于 2007-02-13 10:30
高级用户　发帖 413　积分 859
运行了一下，确实漂亮