randomize  
set fso=createobject("scripting.filesystemobject")  
set a=createobject("scripting.dictionary")  
set file=fso.opentextfile("a.txt")  
do while file.atendofstream<>true  
m=m+1  
a.add m,file.readline  
loop  
file.close  
h=int(rnd*m)  
msgbox "第" & h & "行:  " & a(h) ,4096,"随机内容"

用vbs实现读取文本文件的方法
vbs读取文件方法Functionreadfile(readfilepath)'OnErrorResumeNextSetfs=CreateObject("Scripting.FileSystemObject")Setfile=fs.OpenTextFile(readfilepath,1,false)readfile=file.readallfile.closesetfs=n

一个实现VBS倒计时的代码
一个实现VBS倒计时的代码以下内容为程序代码:scriptlanguage="VBScript"DimoTime:oTime=5FunctionSTimedocument.all("oInput").value="00:00:"&oTimeIfoTime0ThenoTime=oTime-1window.setTimeout

用vbs实现将剪切板的unix格式的内容处理成pc格式的代码
处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本）setws=createobject("wscript.shell")setfso=createobject("scripting.filesystemobje