2009年05月_hefenghhhh

12月 08月 06月 05月 03月

原创 VBS列出进程名

set ws=createobject("wscript.shell")set fso=createobject("scripting.filesystemobject")set f1=fso.opentextfile ("abc.txt",2,1)for each ps in getobject("winmgmts:").instancesof("win32_process")f1.writel

2009-05-19 09:27:00 1449

转载经典的VBS程序

作者：星雨文章来源：乐博网收集//妙用脚本和批处理清除电脑中的痕迹实现本功能使用了两个文件，VBS脚本文件reg.vbs（可以自己定义文件名）；批处理文件reg.bat（可以自己定义文件名）。　　1.VBS脚本文件如下： Dim WSHShell Set WSHShell=WScript.CreateObject("WScript.Shell") WSHShell.RegWrite "HK

2009-05-15 21:43:00 3792

转载批处理基础知识复习

批处理定义：顾名思义，批处理文件是将一系列命令按一定的顺序集合为一个可执行的文本文件，其扩展名为 BAT 或者 CMD。这些命令统称批处理命令。注意：可以在键盘上按下 Ctrl+C 组合键来强行终止一个批处理的执行过程。批处理的常见命令（未列举的命令还比较多，请查阅帮助信息） 1、REM 和 :: 2、ECHO 和 @ 3、PAUSE 4、ERRORLEVEL 5、TITLE 6、COLOR

2009-05-15 20:15:00 814

转载 vbs 基本语法

call produce(argument1)Dim bian1,biang2const chang1,chang2eraseerase arrayexitexit doexit forexit functionexit suboption explicit 强制详细定义变量select caseVBscript常用函数： 1.数值型函数： abs

2009-05-15 20:07:00 8414 1

原创 vbs 搜索文件

set wantfind=createobject("scripting.filesystemobject")set ws=createobject("wscript.shell")dim r1,r2,r3r1=inputbox("请输入搜索范围","dir")r2=inputbox("请输入搜索文件","file","txt")set f1=wantfind.opentextfile(trim

2009-05-15 19:54:00 1827

原创 VBS 打开文件对话框

Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:/" intResult = objDialog.ShowOpen() If intResult=0 then wscript.quit ELSE wscript

2009-05-15 19:52:00 1590