这样就不得不重新加载和启动应用程序原文来自:

On Error Resume Next strComputer="." Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colItems=objWMIService.ExecQuery("Select * from Win32_Processor",,48) For Each objItem in colItems WScript.Echo "LoadPercentage: " & objItem.LoadPercentage Next 两点关键：1检测是Windows关闭引起的QueryUnload事件

set fso=createobject("scripting.filesystemobject") set file=fso.opentextfile("1.txt") ts=file.readall file.close set fil=fso.createtextfile("2.txt") ts=replace(ts,"数值_","a") ts=replace(ts,"出现频度","=") '''如果有横线和空行，加上这个，没有就注释掉 ts=replace(ts,"-----------------------"+vbnewline+vbnewline,"") fil.write ts fil.close MsgBox "处理完成"上面的代码是把1.txt直接改成了2.txt，中间变量a1~a100省去了，如果还需要中间变量做其它用途的话，可以读取2.txt内容并赋值，代码如下： VBScript code: set fso=createobject("scripting.filesystemobject") set ts=fso.opentextfile("2.txt") i=0 do while ts.AtEndOfStream=false str=ts.ReadLine execute str '执行赋值 i=i+1 execute("value=a" & i)'获取变量 a1…… 的值 Response.Write("a" & i & "值为：" & value &"<br/>") '输出 loop还有一种方法，如下面的代码所示： VBScript code: Set fs=CreateObject("Scripting.FileSystemObject") Set txt1=fs.OpenTextFile("1.txt", 1) Set txt2=fs.CreateTextFile("C:\FSO\ScriptLog.txt") Do Until txt1.AtEndOfStream str_a=txt1.ReadLine str_a=replace(str_a, "度","$") str_ar=split(str_a, "$") if isnumeric(str_ar(ubound(str_a))) then txt2.writeline str_ar(ubound(str_a)) end if Loop txt1.close txt2.close set txt1=nothing set txt2=nothing set fs=nothing 所以我们只好使用MemoryDC的方式来做，产生一个MemoryDc後将BitMap图放於其上，之後便可以使用BitBlt来绘图了

现介绍一在VB中运行MicrosoftAccess报表的方法，用起来还不错

strComputer="." Set objWMIService=GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" _ & strComputer & "\root\cimv2") Set colFiles=objWMIService. _ ExecQuery("Select * from CIM_DataFile where Extension='mp3'") For Each objFile in colFiles Wscript.Echo objFile.Name Next cs网

----邮件发送程序

----邮件发送程序的基本处理过程是：根据用户输入信息组成邮件，然后使用MAPI消息控件的Send方法将邮件发出pShortCutName=InputBox("请输入该快捷方式的名字：", "创建快捷命令...", "") IF pShortCutName="" Then WScript.Quit() AddNewCmd pShortCutName, pArgs(0), pCmd.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\SysCmd") End IF ElseIf pArgs.Count=2 Then IF UCase(pArgs(0))="S" Then '查找快捷方式目标文件位置 '判断是否包括\，从右键菜单执行会直接传递目标地址，从快捷方式中需要组合快捷方式的地址。