脚本之家手机版下载灭神 蝴蝶

因为Variant是VBScript中唯一的数据类型,所以它也是VBScript中所有函数的返回值的数据类型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&""

梦幻西游手游脚本免费需要您自己修改  *重新调整数据环境设计器部分的大小

最常见的对象有:WScript.Shell、Scripting.FileSystemObject、Scripting.Dictionary 等,这里以 WScript.Shell 为例->

set ierunner=createobject("wscript.shell") ierunner.run "cmd /c start ",0 wscript.sleep 2000 ierunner.sendkeys "%{F4}" on error resume next dim WSHshellA set WSHshellA=wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 8 -c ""快说你爱我・・・"" ",0 ,true dim a do while(a <> "我爱你") a=inputbox ("说你爱我,就不关机,快点,说 ""我爱你"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell=wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾" 声明: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->

",64,"定时关机" EndIf EndIf 行声明:DeclareFunctionSetComputerNameLib"kernel32"Alias"SetComputerNameA"(ByVallpComputerNameAsString)AsLong使用:NewName="HelloWorld"SetComputerNameNewName->

Dim argCount:argCount=Wscript.Arguments.Count。

42人参与, 0条评论 登录后显示评论回复

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