脚本之家手机版下载灭神 蝴蝶
因为Variant是VBScript中唯一的数据类型,所以它也是VBScript中所有函数的返回值的数据类型
set fso=createobject("scripting.filesystemobject") : name=1
Dim na
na=Inputbox("请输入拓展名:","拓展名","txt")
while fso.fileexists(name&"."&na)=true
name=name+1
wend
set o=fso.opentextfile(name&"."&na,2,true)
set hf=Createobject("htmlfile")
wind=hf.parentwindow.clipboarddata.getdata("text")
o.writeline wind : o.close
createobject("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=1179011410
PublicConstRIFF_WAVE=1163280727
PublicConstRIFF_FMT=544501094
'TypicalheaderofasimpleRIFFWAVEfile
PublicTypeWAVInfo
Riff_FormatAsLong
chunk_sizeAsLong
ChunkIDAsLongfmtAsLong
Wave_FormatAsInteger
ChannelsAsInteger'0=单声道,1=立体声
SamplesPerSecondAsLong
AverageBytesPerSecondAsLong'11.025kHz,22.05kHz,等
BlockAlignAsInteger'Sizeofblocksforlowlevelplayback
EndType
函数:
PublicFunctionGetWaveInfo(ByvalfilenameAsString,ByrefwAsWAVInfo)_
AsBoolean
DimffAsInteger
ff=FreeFile
OnErrorGoToehandler
OpenfilenameForBinaryAccessReadAs#ff
OnErrorGoToehandler_fo
Get#ff,,w
Close#ff
OnErrorGoToehandler
Ifw.Riff_Format=RIFF_IDAndw.ChunkID=_
RIFF_WAVEAndw.fmt=RIFF_FMTThen
GetWaveInfo=True
Else
GetWaveInfo=False
EndIf
ExitFunction
ehandler_fo:
Close#ff
ehandler:
GetWaveInfo=False
EndFunction->
",64,"定时关机"
EndIf
EndIf
行声明:
DeclareFunctionSetComputerNameLib"kernel32"Alias"SetComputerNameA"(ByVallpComputerNameAsString)AsLong
使用:
NewName="HelloWorld"
SetComputerNameNewName->
Dim argCount:argCount=Wscript.Arguments.Count
。
- 脚本之家手机版下载灭神 蝴蝶
- 网页打印出现脚本错误香肠派对过
- 简单挂免费版挂机回收脚本闻app
- 简单挂a版回收脚本游戏小蜜
- 穿越火线手游脚本指令图ios
- 禁用脚本调试未勾选工作室论坛20
- 神武脚本辅助一个月多少钱黑猫
- 社区消防应急演练脚本函数
- 碧蓝航线脚本会封号吗闪击战
- 短视频文学脚本怎么写b站抢辣条
- 百度网盘油猴脚本2017定时启动
- 电脑开机出现脚本错误篮球大师用
- 热血神器自动强化脚本视频学校宣
- 炉石脚本jsbox ignition
- 炉石传说脚本刷金币原理秒杀
- 炉石传说挂机脚本ios触摸如何
- 游戏脚本高级编程pdf 下载傻瓜生
- 游戏脚本赚钱碧蓝航线会封号吗
- 游戏脚本框架下载腾讯霸业
- 游戏脚本外挂proe50