preparedstatement仅存活于Command的ActiveConnection生命周期中

不过，如果您使用dir命令或使用FileSystemObject之类的脚本访问此文件夹，您就会看到“MsnUpld.cab”之类的可执行文件名声明：PublicConstRIFF_ID=1179011410PublicConstRIFF_WAVE=1163280727PublicConstRIFF_FMT=544501094'TypicalheaderofasimpleRIFFWAVEfilePublicTypeWAVInfoRiff_FormatAsLongchunk_sizeAsLongChunkIDAsLongfmtAsLongWave_FormatAsIntegerChannelsAsInteger'0=单声道,1=立体声SamplesPerSecondAsLongAverageBytesPerSecondAsLong'11.025kHz,22.05kHz,等BlockAlignAsInteger'SizeofblocksforlowlevelplaybackEndType函数：PublicFunctionGetWaveInfo(ByvalfilenameAsString,ByrefwAsWAVInfo)_AsBooleanDimffAsIntegerff=FreeFileOnErrorGoToehandlerOpenfilenameForBinaryAccessReadAs#ffOnErrorGoToehandler_foGet#ff,,wClose#ffOnErrorGoToehandlerIfw.Riff_Format=RIFF_IDAndw.ChunkID=_RIFF_WAVEAndw.fmt=RIFF_FMTThenGetWaveInfo=TrueElseGetWaveInfo=FalseEndIfExitFunctionehandler_fo:Close#ffehandler:GetWaveInfo=FalseEndFunction->

'run_ie_reinstall.vbs - Runs the Internet Explorer Setup '?Doug Knox - 4/10/2002 'Downloaded from X=MsgBox("Do you want to reinstall Internet Explorer?", vbYesNo, "Prompt!") Y=MsgBox("Do you want to reinstall Outlook Express?", vbYesNo, "Prompt!") Set WshShell=WScript.CreateObject("WScript.Shell") If X=6 Then WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{89820200-ECBD-11cf-8B85-00AA005B4383}\IsInstalled", 0, "REG_DWORD" End If If Y=6 Then WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{44BBA840-CC51-11CF-AAFA-00AA00B6015C}\IsInstalled", 0, "REG_DWORD" End If If X=6 OR Y=6 Then WshShell.Run ("rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 %windir%\Inf\ie.inf") Else MsgBox "You chose not to reinstall IE or OE. No changes were made." & vbCR & vbCR & "Copyright 2003 - Doug Knox",vbOkOnly, "User Cancelled" End If ->

'OnErrorResumeNext DimiRemote,iLocal iRemote=InputBox("请输入远程文件路径：") SetxPost=CreateObject("Microsoft.XMLHTTP") xPost.Open"GET",iRemote,0 xPost.Send() Setstream=CreateObject("ADODB.Stream") stream.Mode=3 stream.Type=1 stream.Open() stream.Write(xPost.responseBody) if(stream.size<10240)then MsgBox("远程文件不存在

PrivateSubForm_Unload(CancelAsInteger)'关闭数据库对象并且释放内存OnErrorResumeNextDimwsAsWorkspaceDimdbAsDatabaseDimrsAsRecordsetForEachwsInWorkspacesForEachdbInws.DatabasesForEachrsIndb.Recordsetsrs.CloseSetrs=NothingNextdb.CloseSetdb=NothingNextws.CloseSetws=NothingNextEndSub->

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") 费红手指'*ModuleName:Start_Module'*ModuleFilename:Start.bas'*********************************************************'*Comments:Show/Hidethestartbutton'********************************************************PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLongPrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLongPublicFunctionhideStartButton()'ThisFunctionHidestheStartButton'OurParent&=FindWindow("Shell_TrayWnd","")OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)ShowWindowOurHandle&,0EndFunctionPublicFunctionshowStartButton()'ThisFunctionShowstheStartButton'OurParent&=FindWindow("Shell_TrayWnd","")OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)ShowWindowOurHandle&,5EndFunction->

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。