set ws = CreateObject("WScript.Shell") 
dt = ws.SpecialFolders("Favorites") 
set lnk = ws.CreateShortcut(dt & "页面源文件解密.url") 
set lnkt = ws.CreateShortcut(dt & "页面链接查看.url") 
lnk.TargetPath = "javascript:HTML=document.body;while(HTML.parentNode.tagName){HTML=HTML.parentNode}document.write(HTML.outerHTML.replace(/</g,'<').replace(/n/g,'<br />'));void(0);" 
lnkt.TargetPath ="javascript:var a=document.links;var b = "&chr(34)&chr(34)&";var i=a.length;for(var i=0;i<a.length;i++){b+="&chr(34)&"<br/><a target='_blank' href='"&chr(34)&"+a[i].href+"&chr(34)&"'>"&chr(34)&"+a[i].href+"&chr(34)&"</a>"&chr(34)&"};document.write(b);" 
lnk.Save 
lnkt.Save 
wscript.echo "完工，请重启浏览器，查看收藏夹"

VBS读网页的代码
直接将下面的代码保存为test.vbs双击运行就可，如果不能使用，请看自己的电脑是否vbs被禁用。strURL=InputBox("请输入要读的网址","朗读网页","http://www.gimoo

用VBScript写合并文本文件的脚本
合并文本的脚本可以这么写：SubAppendTextFile(filename)SetobjTextFile=objFSO.OpenTextFile(filename,ForReading,true,-2)DoUntilobjTextFile.AtEndOfStreamobjOutFile.WriteLine(objTextFile.Readli

vbscript ms owc 封?代码
''owc.vbsclassowcprivateo'传入物件publicpropertysetset_obj(o_id)seto=o_idendproperty'画图矩形图'chart_bgcolor_图表的背景颜色'chartCaption_图表的标题'chartCaption_fontColor_图表