2020-02-16 标签:vbs,实现,批量,gb,2312,utf,支持,拖动,代码,如下,intro,转换,编码,文件,程序,会将,它们,自动

实现代码如下：'/*========================================================================= ' * Intro拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件 ' * FileNam

2020-02-16 标签:vbs,实现,剪切板,unix,格式,内容,处理,pc,代码,qq,复制,文本,里的,记事本,有事,可能会,框框,运行

处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本） set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") Set objIE = Cre

2020-02-16 标签:实现,vbs,倒计时,代码,以下,内容,程序,script,language,vbscript,dim,otime,function,stime,document,oinput,value,00

一个实现VBS倒计时的代码以下内容为程序代码: Dim oTime : oTime = 5Function STimedocument.all("oInput").value = "00:00:" & oTimeIf oTime>0 ThenoTime = oTime - 1windo

2020-02-16 标签:vbs,实现,读取,文本文件,方法,文件,function,readfile,error,resume,next,set,fs,scripting,file

vbs读取文件方法Function readfile(readfilepath) 'On Error Resume NextSet fs = CreateObject("Scripting.FileSystemObject")Set file = fs.OpenTextFile(readfilepa

2020-02-16 标签:vbs,实现,随机,读取,文件,一行,内容,脚本,代码,如下,randomize,set,fso,scripting,a,dictionary,file

实现代码如下：randomizeset fso=createobject("scripting.filesystemobject")set a=createobject("scripting.dictionary")set file=fso.opentextfile("a.txt")do while

2020-02-16 标签:vbs,遍历,文件,随机,显示,脚本,set,ws,wscript,shell,fso,scripting,folder,getfolder,files,file

set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") set folder=fso.getfolder(ws.currentdirectory) set files=folder

2020-02-16 标签:vbs,实现,显示,系统,调色板,代码,如下,set,ie,application,n,avigate,blank,until,readystate,wscript,sleep

实现代码如下：set ie = createobject("internetexplorer.application") ie.navigate "about:blank" do until ie.readystate = 4 : wscript.sleep 25 : loop set doc =

2020-02-16 标签:注册表,批处理,vbs,之间,相互,结合,应用,不懂,不要紧,只要会,吸收,别人的,精华,查找,资料,论坛,百度,google,能用

不懂注册表、VBS、批处理不要紧，只要会学、会吸收别人的精华，会查找资料，|论坛|百度|GOOGLE|，然后能用好，就非常不错了 贴一些搜集的文字放到这吧。(绿色是标题， 蓝色的是原作者，红色的部分就是需要修改的部分，根据你自己的实际情况修改) ======打开迅闪菜单的同时连接虚拟磁盘的VBS==

2020-02-16 标签:vbscript,实现,函数,方法,名作,参数,传入,另一个,js,用法,某个,当成,形式,另外,内部,例如,script,type,text

在JS中有这种用法，某个函数名可以当成参数的形式，传入到另外一个函数内部去，例如： 在VBScript有两种方式可以来实现，即用execute或GetRef 函数。 一、利用execute： Function myFuncA(str,myFuncName)str = str & "

2020-02-16 标签:vbs,可执行,程序,xmlhttp,下载,备份,网上,文件,代码,今天,突然,想到,做一个,网站,上的,数据库,本地,机上,简单,做成

今天写程序时突然想到做一个文件的备份，把网站上的数据库备份到本地机上。一个简单的小程序，做成可执行的文件，用VBS最简单方便了。 'On Error Resume NextDim iRemote,iLocaliRemote = InputBox("请输入远程文件路径：")Set xPost = Cr