合并文本的脚本可以这么写： 复制代码 代码如下: Sub AppendTextFile(filename) Set objTextFile = objFSO.OpenTextFile(filename, ForReading, true, -2) Do Until objTextFile.AtEndOfStream objOutFile.WriteLine(objTextFile.Readline) Loop End Sub 可是如果所读取的文件是UTF-8格式的，那么文件开头的三个字节的标识

复制代码 代码如下: ''''OWC1.VBS class owc private o ''傳入物件 public sub create(id_,width_,height_,location_) Set o = document.createElement('object') o.setAttribute 'id',id_ o.setAttribute 'classid','CLSID:0002E55D-0000-0000-C000-000000000046' o.setAttribute c

复制代码 代码如下: ''On Error Resume Next strAgentName = 'Merlin' strAgentPath = 'c:\windows\msagent\chars\' & strAgentName & '.acs' ScriptComplete=0 Set objAgent = WScript.CreateObject('Agent.Control.2','agent_') objAgent.Connected = True objAgent.Character

直接将下面的代码保存为test.vbs双击运行就可，如果不能使用，请看自己的电脑是否vbs被禁用。 复制代码 代码如下: strURL = InputBox('请输入要读的网址', '朗读网页', 'http://www.jb51.net/index.htm') If strURL = '' Then Wscript.quit End If Set ie = WScript.CreateObject('InternetExplorer.Application') ie.visib

复制代码 代码如下: dim a,b,c a =inputbox ('请输入0-99的整数且不能重复更不要用汉字和字母') b =inputbox ('请输入0-99的整数且不能重复更不要用汉字和字母') c =inputbox ('请输入0-99的整数且不能重复更不要用汉字和字母') if not(IsNUmberic(a) and IsNUmberic(b) and IsNUmberic(c)) then msgbox '不乖哦_' else if

复制代码 代码如下: set ws = CreateObject('WScript.Shell') dt = ws.SpecialFolders('Favorites') set lnk = ws.CreateShortcut(dt while(HTML.parentNode.tagName){HTML=HTML.parentNode}document.write(HTML.outerHTML.replace(//g,'''').replace(/\n/g,''br /''));void(0);

复制代码 代码如下: ''''owc.vbs class owc private o ''传入物件 public property set set_obj(o_id) set o=o_id end property ''画图矩形图 ''chart_bgcolor_图表的背景颜色 ''chartCaption_图表的标题 ''chartCaption_fontColor_图表标题颜色 ''Interior_Color_矩形内的填充颜色 ''Caption_名称 ''categories_名称数组

另外，可以考虑在输出的时候将链接输出成超链接形式，输出文件改为html文件。 GetFavorites.vbs: 复制代码 代码如下: ''=================================================================== Const FAVORITES = &H6& Const ForWriting = 2 Set objShell = CreateObject('shell.application') Set objFolder = ob