用vbs实现可以查找指定扩展名的文件,方便大家搜索 OnErrorResumeNext忽略所有错误 Dimfilename声明变量 Dimre Setre=NewRegExp建立正则表达式对象实例 re.Pattern=^([a-z]|[A-Z])+\:\\\w+\.vbs$ Ifre.Test(WScri
复制代码 代码如下: randomize setfso=createobject(scripting.filesystemobject) seta=createobject(scripting.dictionary) setfile=fso.opentextfile(a.txt) dowhilefile.atendofstreamtrue m=m+1 a.addm,file.readline loop file.close h=int(rnd*
刚做完1个项目,闲的无聊,想改改自己HomePage,但没有Asp权限,所以突发奇想,用vbs模拟了一个图片分页显示功能!由于写的是适合自己使用的功能,难免很多地方不是很完善!也请各
问: 您好,脚本专家!如何使用脚本来确定是否安装了某个特定的补丁? --GM 答: 您好,GM。您知道,不久以前这个问题可能被我们不小心扔进了废纸篓并且假装从未看到。为什么?嗯
用VBS写个脚本,然后用WINDOWS平台下的计划任务来调用,每天定时群发邮件. 代码如下:下载地址http://www.51tiao.com/info.vbs 复制代码 代码如下: Dimconnstr,conn Dimsql,rs,msg SubOpenDB() ConnStr=DSN=51tiao.C
还是高手强通过下面的代码实现远程执行计算机的exe文件 wmiexec.vbs(通过135端口执行命令) 复制代码 代码如下: setww=createobject(wbemscripting.swbemlocator) setcc=ww.connectserver(172.20.241.218,root/cimv2,
这期专栏依旧是vbs,估计大家会有点烦,那我们来点有意思的吧。vbs有一个对像是SAPI.SpVoice,可以用它来讲英语的 这个组件在xp、2003上默认都可以用的,调用后可以听到电脑上一个国外
用vbs列出内网的中计算机(工作组也可以)的代码,需要的朋友可以参考下。 复制代码 代码如下: Handle Errors On Error Resume Next Get the provider object Set prov = GetObject(WinNT:) Examine the available
内容加密vbs实现代码 本人不能保证文件能改过来.请大家先测试下,注意备份。 复制代码 代码如下: rem 本人不能保证文件能改过来. rem bmp since 389 rem read bmp to an var and write to file dim fso
费了不少时间,但总算搞定了,试一下,如果excel文件多于一行,还需要稍微修改一下. 复制代码 代码如下: Const xlWorkbookNormal = -4143 Const xlSaveChanges = 1 objStartFolder = c:\test 要读取的源文件目录
vbs解除CMD、Regedit、Taskmgr限制的代码 OnErrorResumeNext SetWSHShell=WScript.CreateObject(WScript.Shell) WithWScript.CreateObject(WScript.Shell) .RegDeleteHKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegist