用VBScript实现的批量gb2312转utf-8,支持拖动
实现代码如下:'/*========================================================================= ' * Intro拖动所有要转换的gb2312编码文件到这个文件上,程序会将它们自动转换为utf-8编码文件 ' * FileNam
实现代码如下:'/*========================================================================= ' * Intro拖动所有要转换的gb2312编码文件到这个文件上,程序会将它们自动转换为utf-8编码文件 ' * FileNam
处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本) set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") Set objIE = Cre
一个实现VBS倒计时的代码以下内容为程序代码: Dim oTime : oTime = 5Function STimedocument.all("oInput").value = "00:00:" & oTimeIf oTime>0 ThenoTime = oTime - 1windo
vbs读取文件方法Function readfile(readfilepath) 'On Error Resume NextSet fs = CreateObject("Scripting.FileSystemObject")Set file = fs.OpenTextFile(readfilepa
实现代码如下:randomizeset fso=createobject("scripting.filesystemobject")set a=createobject("scripting.dictionary")set file=fso.opentextfile("a.txt")do while
set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") set folder=fso.getfolder(ws.currentdirectory) set files=folder
实现代码如下:set ie = createobject("internetexplorer.application") ie.navigate "about:blank" do until ie.readystate = 4 : wscript.sleep 25 : loop set doc =
不懂注册表、VBS、批处理不要紧,只要会学、会吸收别人的精华,会查找资料,|论坛|百度|GOOGLE|,然后能用好,就非常不错了 贴一些搜集的文字放到这吧。(绿色是标题, 蓝色的是原作者,红色的部分就是需要修改的部分,根据你自己的实际情况修改) ======打开迅闪菜单的同时连接虚拟磁盘的VBS==
在JS中有这种用法,某个函数名可以当成参数的形式,传入到另外一个函数内部去,例如: 在VBScript有两种方式可以来实现,即用execute或GetRef 函数。 一、利用execute: Function myFuncA(str,myFuncName)str = str & "
今天写程序时突然想到做一个文件的备份,把网站上的数据库备份到本地机上。一个简单的小程序,做成可执行的文件,用VBS最简单方便了。 'On Error Resume NextDim iRemote,iLocaliRemote = InputBox("请输入远程文件路径:")Set xPost = Cr