原帖
http://tieba.baidu.com/f?kz=830017166
于是写了一只Vbs.....打开记事本,把以下内容复制进去,保存-文件类型选所有文件,文件名用voice.vbs,完成.....
'===================================以下需要复制
on error resume next
set accp = CreateObject("SAPI.SpVoice")
set Wshell = CreateObject("Wscript.shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
voizzz = inputbox("Windows发音器,GUI By Swxve,请输入内容(English Only),设置请输入config","GUI")
for iii = 1 to 9
   if voizzz = "config" then
   longss = inputbox("输入自动结束程序的时间(默认15秒)","config")
    Set oFile = objFSO.OpenTextFile("voice.vbs")
    eccs = oFile.readall
    oFile.close
    eccs = Replace(eccs,"15000",longss)
    wshell.run "del voice.vbs"
    set ppst = objfso.createtextfile("voice.vbs")
    ppst.write(eccs)
    ppst.close
    acmm = msgbox ("请重新打开","gui")
    epjmp = 1
    exit for
   end if
if epjmp = 0 then
allsd = Msgbox("确认?",VbYesno+Vbquestion,"Gui")
   if allsd = vbyes then
    accp.speak voizzz
    Wscript.sleep 15000
    Wshell.run "taskkill -f -im Wscript.exe"
    exit for
   else
voizzz = inputbox("Windows发音器,GUI By Swxve,请输入内容(English Only)","GUI",voizzz)
   end if
end if
next