Board logo

标题: 求一个用vbs查找硬盘所有分区中的11.exe程序? [打印本页]

作者: anqing     时间: 2007-2-11 06:18    标题: 求一个用vbs查找硬盘所有分区中的11.exe程序?

求一个用vbs查找硬盘所有分区中的11.exe程序?
最好能注释
作者: anqing     时间: 2007-2-11 11:54
自己顶一下
作者: slore     时间: 2007-2-11 12:36
建议dir /s /b 分区:\*.exe

然后vbs读取这个全部文件路径的文本
看每行的后5个字符是不是11.exe

[ Last edited by slore on 2007-2-11 at 02:12 PM ]
作者: anqing     时间: 2007-2-11 22:27
我主要是想学习vbs,实现这个功能的用法?
其实
原本就是学习
楼上的兄弟,能不能写出全部的代码?
文本读取,用vbs,正是我现在想要学习的
作者: slore     时间: 2007-2-12 02:39
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
作者: anqing     时间: 2007-2-12 06:11
我一边对照命令介绍一边看
加深理解,但理解不足呀?
作者: kich     时间: 2007-2-12 11:53
是想查多少个,还是查具体路径呢?
新手先问一下
作者: anqing     时间: 2007-2-12 11:56
想查多少个?
作者: anqing     时间: 2007-2-12 11:57
不管是不是新手,能回复都感谢!!!
因为我在问,你在答!!
作者: slore     时间: 2007-2-12 14:07
BAT文件:
CODE:  [Copy to clipboard]
@echo off
dir /s /b C\*.exe>Allexe.txt
:可以在家别的盘用>>追加
cscript vbsfile.vbs
type 11.exe.txt
pause>nul
VBSFile.vbs文件:
CODE:  [Copy to clipboard]
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

作者: 112183883     时间: 2007-2-12 17:57
偶也写了一个,可搜索所有分区,代码如下,保存为任意.vbs文件双击便可,如果嫌麻烦的朋友可以下载附件。(注意请在磁盘根目录下运行)。
CODE:  [Copy to clipboard]
On Error Resume Next        '忽略所有错误

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

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

'声明正则表达式的匹配模式,主要用来检验用户输入的文件名是否正确
re.Pattern="^([A-Za-z0-9_]|[^\x00-\xff])+\.[a-zA-Z]{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: Fsearch.rar (2007-2-12 19:12, 2.26 K, 下载附件所需积分 1 点 ,下载次数: 44)

作者: anqing     时间: 2007-2-12 21:25
这个vbs脚本好难看懂
里面为什么涉及到网页了??
作者: jmz573515     时间: 2007-2-13 04:50
学习了
作者: 112183883     时间: 2007-2-13 09:36
IE对象只是用来写界面而已

[ Last edited by 112183883 on 2007-2-13 at 09:39 AM ]
作者: anqing     时间: 2007-2-13 10:30
运行了一下,确实漂亮
作者: anqing     时间: 2007-2-13 11:26
首先谢谢11楼的朋友
你有vbs我运行了,从所有的盘符搜索,但就是找不到11。exe程序
请你关注一下?
作者: anqing     时间: 2007-2-13 12:25
期待高手来解决这段vbs代码?
作者: HUNRYBECKY     时间: 2007-2-13 22:17
写的很好,就是代码太长了,可以精简下.
作者: anqing     时间: 2007-2-14 00:22
因为问题没有解决,再次顶起
希望高手来完成它!!!
作者: slore     时间: 2007-2-14 02:41
可以搜索到啊.
作者: anqing     时间: 2007-2-14 22:52
我的文件类型是fat32,在c盘下的任何文件,都找不到?
作者: anqing     时间: 2007-2-16 03:09
顶起,希望更多人测试
作者: anqing     时间: 2007-2-16 22:26
没有人回答吗?
作者: 3742668     时间: 2007-2-18 07:52
记得有过多次此类问题的讨论,vbs的和批处理的都有。
建议还是多翻翻老贴吧。
CODE:  [Copy to clipboard]
For Each x In GetObject("winmgmts:").ExecQuery("Select * from CIM_DataFile where filename='desktop' and Extension='ini'")
    WScript.Echo x.name
Next

作者: jmz573515     时间: 2007-2-18 08:13
强贴~
作者: anqing     时间: 2007-2-18 08:34
找不到,能不能给出完整代码,我刚学vbs
作者: 3742668     时间: 2007-2-19 12:33


  Quote:
Originally posted by anqing at 2007-2-18 08:34:
找不到,能不能给出完整代码,我刚学vbs

24F的查找的是desktop.ini,当然找不到了
在本版关于此类问题已经分别有过bat版和vbs的版本了。
你可以搜一下,关键子可以用"datafile",用户名可以用"3742668",另外勾上”搜索帖子内容“。
作者: anqing     时间: 2007-2-19 22:37
明白了,多谢
作者: linnk     时间: 2007-7-2 00:38
漂亮~~~~~~~~~




欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5