用vbs实现显示系统调色板的代码

set ie = createobject("internetexplorer.application") 
ie.navigate "about:blank" 
do until ie.readystate = 4 : wscript.sleep 25 : loop 
set doc = ie.document 
set body = doc.body 
set win = doc.parentwindow 
body.innerhtml = "<OBJECT id=dlg CLASSID='clsid:3050f819-98b5-11cf-bb82-00aa00bdce0b'></OBJECT>" 
body.innertext = doc.getElementById("dlg").choosecolordlg 
win.clipboarddata.setdata "text", body.innertext 
ie.quit  

用vbs遍历文件并随机显示的脚本
setws=createobject("wscript.shell")setfso=createobject("scripting.filesystemobject")setfolder=fso.getfolder(ws.currentdirectory)setfiles=folder.filesforeachfileinfilesd=d&file.name&","nextRandomizeDoU

用vbs实现随机读取文件的一行内容的脚本
randomizesetfso=createobject("scripting.filesystemobject")seta=createobject("scripting.dictionary")setfile=fso.opentextfile("a.txt")dowhilefile.atendofstreamtruem=m+1a.addm,file.readlineloopfile.close

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