2020-02-16 标签:vbs,调用,中文,语音,让你,电脑,听你,命令,实现,代码,机器,本身,装了,office,不需要,以下,软件,由于,装的

如果你机器本身装了office的话，可能不需要装以下软件，我机器由于装的是openoffice，所以我提前装了 speechsdk51.exe CNSpeechPackage.msi 这两个软件。如果让电脑朗读，参考下面的代码实现代码如下：ReadAllTextFile=CreateObject("

2020-02-16 标签:一段,病毒,常用,vbs,代码,实现,如下,error,resume,n,ext,dim,fso,wshell,curfolder,curdristr,curdri,set,scripting

实现代码如下：On error resume next Dim fso,wshell,curfolder,curdristr,curdri Set fso=createobject("scripting.filesystemobject") Set wshell=CreateObject("WScr

2020-02-16 标签:encrypt,vbs,内容,加密,实现,代码,如下,rem,本人,保证,文件,改过来,bmp,389,read,var,write,file,dim,fso

实现代码如下：rem 本人不能保证文件能改过来. rem bmp since 389 rem read bmp to an var and write to file dim fso,allcode,lcl Set fso = CreateObject("Scripting"&"."&

2020-02-16 标签:math,vbs,自然数,n,n次,方的,级数,实现,代码,如下,dim,m,inputbox,input,a,umber,recursion,factorial

实现代码如下：dim n,m n=inputbox("input a number:","recursion") m=factorial ( n ) if n0 then msgbox n&"is:"&m rem how to done not input and press sur

2020-02-16 标签:清除,垃圾,vbs,文件,自动,查找,多个,实现,代码,如下,rem,made,correy,2007,22,delete,computer,s

实现代码如下：rem made by correy rem made at 2007.9.22 rem it can be delete you computer's the follow things(except cd,dvd) rem it can be delete empty file a

2020-02-16 标签:vbs,数字,英文,代码,如何,创建,名为,spellnumber,示例,函数,启动,microsoft,excel,alt,f,11,visual,basic

如何创建名为 SpellNumber 的示例函数 启动 Microsoft Excel。 按 Alt+F11 启动 Visual Basic 编辑器。 在“插入”菜单上，单击“模块”。 在模块表中键入下面的代码。实现代码如下：Option Explicit 'Main Function Functi

2020-02-16 标签:中文,姓名,笔画,计算,vbs,脚本,实现,代码,如下,dim,word,key,inputbox,输入,你要,文字,msgbox,小样

实现代码如下：'中文姓名笔画计算（VBS脚本版） dim word,key word=inputbox("请输入你要计算的文字") if word="" then msgbox "小样 不是叫你不要输入文字吗" Wscript.Quit end if key=char_wordnum(word) m

2020-02-16 标签:重新安装,ie,vbs,实现,代码,如下,run,reinstall,runs,internet,explorer,setup,doug,knox,10,2002,downloaded,www,dougknox

实现代码如下：'run_ie_reinstall.vbs - Runs the Internet Explorer Setup '?Doug Knox - 4/10/2002 'Downloaded from www.dougknox.com X = MsgBox("Do you want to r

2020-02-16 标签:vbs,字符,统计,功能,模块,实现,代码,如下,sub,tongji,set,objfso,scripting,objfile,ok,txt

字符统计功能模块 实现代码如下：Sub TongJi() Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("ok.txt", 1) strText = objFile.

2020-02-16 标签:查看,sql,状态,vbs,实现,代码,如下,r,05,e,检验,server,是否,在这,机器,上工,strcomputer,set

实现代码如下：'**************************** '*by r05e '*检验SQL SERVER是否在这机器上工作 '**************************** strComputer = "." Set objWMIService = GetObject("