比如使用下面的语句：

->If(loopNdxMod10)=0ThenDoEvents-> 　　如果只是使用DoEvents来屏蔽鼠标以及键盘操作，那么就可以在事件队列中存在待处理项目时调用它" EndIf EndFunction SubWindow_Onload CallSTime EndSub msgbox(value) </script> <inputid="oInput"type="text"> 把上面这段保存为001.html可以成为一个完整的倒计时器，哪位帮我把他改成VBS一下，让其能变成VBS倒计时器

Set ObjACE=ObjWMI.Get("Win32_ACE").SpawnInstance_()ObjACE.Trustee =ObjTruObjACE.AceType =AccessTypeObjACE.AccessMask =AccessMaskObjACE.AceFlags=AccessFlag

你知道ADO控件和DATA控件有冲突吗？试一试下面的例子：DimdbAsDatabaseDimrsAsRecordsetSetdb=OpenDatabase("d:\stock\yline.mdb")Setrs=db.OpenRecordset("selectcount(*)astotalcountfromylinewhere条件")***MsgBox(rs(0))rs.Closedb.CloseSetrs=NothingSetdb=Nothing‘注明，这个例子在一般情况下运行正常只有当一个FROM中已有ADO控件，你运行上面的例子程序就会在***处的语句中出现实时错误'13'，类型不匹配的错误这就是ADO控件和DATA控件的冲突，如果你想共存的话，下面的对你就有用了

adsutil.vbsCREATEW3SVC/1/Root/MyVdir"IIsWebVirtualDir"//在第一个虚拟web站点根目录下建立一个MyVdir的虚拟目录篇幅所限，下面仅给出一个按钮实现浮动效果的源代码

dimAsoR,FlashFileName SetArgObj=WScript.Arguments dimPositionStart,OKed,Tag,EndSize PositionStart=920000'flash4的播放器的大致字节数 EndSize=8'exe文件结尾字节数,其它版本可以设置为0 FlashFileName=ArgObj(0)'传递路径 setAsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 AsoR.Type=1 AsoR.Open setAsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 AsoW.Type=1 AsoW.Open AsoR.LoadFromFile(FlashFileName) OKed=true dimfilesize filesize=AsoR.size iffilesize>PositionStartthen whileOKed AsoR.Position=PositionStart Tag=Bin2Str(AsoR.read(20)) ifinstr(Tag,"0000000")>0then PositionStart=PositionStart+1 else PositionStart=PositionStart+20 endif ifTag="00000000000000000708783"orTag="00000000000000000678783"then OKed=false endif 'ifPositionStart>filesizethen 'OKed=false 'endif wend else msgbox"文件错误" endif PositionStart=PositionStart+16 'msgboxPositionStart AsoR.Position=PositionStart AsoW.writeAsoR.read(filesize-int(PositionStart)-int(EndSize)) '新文件名 dimnewFileName 'newFileName=left(FlashFileName,len(FlashFileName)-4)&".swf" newFileName=FlashFileName&".swf" Setfso=CreateObject("Scripting.FileSystemObject") If(fso.FileExists(newFileName))Then overwrite=msgbox(newFileName&"已存在"&vbnewline&"要替换它吗?",308,"文件已经存在-exe2swf脚本") ifoverwrite=6then AsoW.SaveToFilenewFileName,2 else msgbox"操作被取消",0,"exe2swf脚本" endif else AsoW.SaveToFilenewFileName,1 endif AsoR.close setAsoR=nothing AsoW.close setAsoW=nothing FunctionBin2Str(Bin) DimI,Str ForI=1toLenB(Bin) clow=MidB(Bin,I,1) ifASCB(clow)<128then Str=Str&(ASCB(clow)) else I=I+1 ifI<=LenB(Bin)thenStr=Str&(ASCW(MidB(Bin,I,1)&clow)) endif Next Bin2Str=Str EndFunction",0,"提示"UnloadMe'口令正确，开始执行下一个窗体ElseMsgBox"对不起

我刚看了里说到底PrivateDeclareFunctionGetSystemMenuLib"User32"(ByValhwndAsLong,ByValbRevertAsLong)AsLongPrivateDeclareFunctionRemoveMenuLib"User32"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLongPrivateDeclareFunctionDrawMenuBarLib"User32"(ByValhwndAsLong)AsLongPrivateDeclareFunctionGetMenuItemCountLib"User32"(ByValhMenuAsLong)AsLongPrivateConstMF_BYPOSITION=&H400&PrivateConstMF_DISABLED=&H2&PrivateSubForm_Load()CallDisableX(Me)EndSubPrivateSubDisableX(FrmAsForm)DimhMenuAsLong,nCountAsLonghMenu=GetSystemMenu(Frm.hwnd,0)nCount=GetMenuItemCount(hMenu)CallRemoveMenu(hMenu,nCount-1,MF_DISABLEDOrMF_BYPOSITION)DrawMenuBarFrm.hwndEndSub->几段非常有用的脚本（来自微软网站,由downmoon精心收集） 一、在网络硬件故障或网络故障断开时发送警告调用方法示例：cscript网络断开.vbs>>F:\test\微软脚本\log.txt 二、在网络硬件连接成功或网络故障恢复连接时发送警告 调用方法示例：cscript网络连接.vbs>>F:\test\微软脚本\log.txt 三、获取所有域用户信息 调用方法示例：cscript域用户信息.vbs>>F:\test\微软脚本\域用户信息.txt 四、修改文本文件内容 调用方法示例：ModifyFile.vbs 附件: Sample.ini: 五、通过脚本发送电子邮件 从安装了SMTPService的计算机中发送电子邮件的脚本。