VBS念出自身文件名，不包含后缀。
2020-5-25 乱云飞
on error resume next
'本程序的功能是念出自身文件名，不含后缀。
'想让电脑念什么，就把文件名改成什么。
'翼展电脑服务中心 www.80c.cc
set shell = createobject("WScript.Shell")
set shuo = createobject("sapi.spvoice")
shuo.rate=2
shuo.Volume=80
Set fso = CreateObject("Scripting.FileSystemObject")
str = fso.GetFile(Wscript.scriptfullname).name
shuo.speak left(str,len(str)-4),1
'msgbox left(str,len(str)-4)
shell.popup left(str,len(str)-4),10,"翼展电脑服务中心",vbOKOnly本文链接：http://80c.cc/ez/315.html实时监控
电脑维修
发表评论：