直接将下面的代码保存为test.vbs双击运行就可，如果不能使用，请看自己的电脑是否vbs被禁用。

strURL = InputBox("请输入要读的网址", "朗读网页", "http://www.gimoo.net/index.htm") 
If strURL = "" Then 
Wscript.quit 
End If 
Set ie = WScript.CreateObject("InternetExplorer.Application") 
ie.visible = True 
ie.navigate strURL 
Do 
Wscript.Sleep 200 
Loop Until ie.ReadyState = 4 
strContent = ie.document.body.innerText 
Set objVoice = CreateObject("SAPI.SpVoice") 
Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0) 
objVoice.Rate = 5 '速度:-10,10 0 
objVoice.Volume = 100 '声音:0,100 100 
objVoice.Speak strContent 

用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_图表

VbScript 封?MS OWC(二)
''OWC1.VBSclassowcprivateo'?魅胛锛publicsubcreate(id_,width_,height_,location_)Seto=document.createElement("object")o.setAttribute"id",id_o.setAttribute"classid","CLSID:0002E55D-0000-0000-C000-0000