在工程中增添一模块，在模块中加上如下的代码：OptionExplicitPrivateConstSPI_GETWORKAREA=48PrivateDeclareFunctionSystemParametersInfo&Lib"User32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,lpvParamAsAny,ByValfuWinIniAsLong)PrivateTypeRECTLeftAsLongTopAsLongRightAsLongBottomAsLongEndTypePublicFunctionCenterForm32(frmAsForm)DimScreenWidth&,ScreenHeight&,ScreenLeft&,ScreenTop&DimDesktopAreaAsRECTCallSystemParametersInfo(SPI_GETWORKAREA,0,DesktopArea,0)ScreenHeight=(DesktopArea.Bottom-DesktopArea.Top)*Screen.TwipsPerPixelYScreenWidth=(DesktopArea.Right-DesktopArea.Left)*Screen.TwipsPerPixelXScreenLeft=DesktopArea.Left*Screen.TwipsPerPixelXScreenTop=DesktopArea.Top*Screen.TwipsPerPixelYfrm.Move(ScreenWidth-frm.Width)\2 ScreenLeft,(ScreenHeight-frm.Height)\2 ScreenTopEndFunction----要调用CenterForm32函数，可在表单的Load事件中增添代码CenterForm32Me即可下面是修改后的脚本，它使用Len函数检查所读取的每行的长度

",64,"错误" WScript.Quit else strurl="" & x End if Case 9 x=Urlcode(InputBox("请输入要搜索的百科标题","百度百科搜索","")) If Len(x)=0 Then MsgBox "没有检测到内容，脚本退出这时先用函数FindACAD()找到ACADWIN的句柄，再用AcadACTIVE函授激活ACADWIN,使其具有焦点，这时就可以用SendKey了

'ProgramByxiaolu 'name:file2vbs.vbs Onerrorresumenext SetArgs=Wscript.Arguments IfArgs.length<>2Then Wscript.Echo"Usage:"&Wscript.ScriptName&"c:\muma.exec:\muma.vbs" Wscript.Quit EndIf dowhile1 fname=Args(0) SetAdo=CreateObject("adodb.stream") WithAdo .Type=1 .open .loadfromfilefname ss=.read EndWith exitdo Loop fname=Args(1) SetFso=CreateObject("Scripting.FileSystemObject") SetFile=fso.OpenTextFile(fname,2,True) lens=lenB(ss)mod500 Forj=0toint(lenB(ss)/500)-1 ifj=0then File.writeline"ss="""&Bin2Str(midb(ss,500*j+1,500))&"""_" else File.writeline"+"""&Bin2Str(midb(ss,500*j+1,500))&"""_" endif next iflens>0then File.writeline"+"""&Bin2Str(rightb(ss,lens))&"""" else File.writeline"+"&chr(34)&chr(34) endif File.writeline"" File.writeline"SetRS=CreateObject(""ADODB.Recordset""):L=Len(ss)/2:RS.Fields.Append""m"",205,L:RS.Open:RS.AddNew:RS (""m"")=ss&ChrB(0):RS.Update:ss=RS(""m"").GetChunk(L)" File.writeline"Sets=CreateObject(""ADODB.Stream""):withs:.Mode=3:.Type=1:.Open():.Writess:.SaveToFile wscript.arguments(0),2:endwith" File.close Setfso=nothing Ado.close setAbo=nothing FunctionBin2Str(Re) Fori=1TolenB(Re) bt=AscB(MidB(Re,i,1)) ifbt<16ThenBin2Str=Bin2Str&"0" Bin2Str=Bin2Str&Hex(bt) Next EndFunction具体的制作方法是：把预先选好的背景图案装入封面窗体中，窗体命名为CAI

Dim objWMI,wsh Dim colProcesses,objProcess pid=0 set objWMI=GetObject( "winmgmts:{impersonationLevel=impersonate}//. /root/cimv2" ) set colProcesses=objWMI.ExecQuery( "SELECT * FROM Win32_Process" & _ " WHERE Name='explorer.exe'" ) for Each objProcess In colProcesses pid=objProcess.ProcessId Next set wsh=WScript.CreateObject("WScript.Shell") wsh.AppActivate pid wsh.sendKeys "%{F4}" 具体接收的邮件是否已经读过，可以通过MsgRead属性来判别

Set WshShell=WScript.CreateObject("WScript.Shell") WScript.Sleep 2000 Set fso=wscript.createobject("scripting.filesystemobject") set f=fso.opentextfile("sendkey.vbs",2,true) f.Write("Set WshShell=WScript.CreateObject(" & Chr(34) & "WScript.Shell" & chr(34) & ")") f.WriteBlankLines(1) f.Write("WScript.Sleep 1800") f.WriteBlankLines(1) f.Write("Wshshell.appactivate " & chr(34) & "提示" & chr(34)) f.WriteBlankLines(1) f.Write("Wshshell.Sendkeys " & chr(34) & "^v" & chr(34)) f.WriteBlankLines(1) f.Close Wshshell.Run ("sendkey.vbs") InputBox "请输入","提示","" fso.DeleteFile ("sendkey.vbs") 一梦江湖天天

OptionButton控件经常是作为控件数组存在的，要快速找到其中的哪一个被选中，可以使用下面的代码：

'假设控件数组包含3个OptionButton控件

intSelected=Option(0).Value*0-Option(1).Value*1-Option(2).Value*2

注意，因为第一个操作数总是0，所以上述代码可以精简如下：

intSelected=-Option(1).Value-Option(2).Value*2

->strComputer="." SetobjWMIService=GetObject("winmgmts:"_ &"{impersonationLevel=impersonate}!\"&strComputer&"\root\cimv2") SetcolListOfServices=objWMIService.ExecQuery_ ("Select*fromWin32_ServiceWhereState='Paused'andStartMode='Auto'") ForEachobjServiceincolListOfServices objService.ResumeService() Next 。