分享你我的心得.
共乘一片美好网络.

让你的电脑开口说话

基本用法

一句话

CreateOBject(“SAPI.SpVoice”).speak”主人你来了!等你多时了!”

下面是完整的读取文本文件的例子.把下列代码存为vbs即可

Dim fso,openFile,voice,str,filePath,fileCharset

'filePath为要朗读的文本文件路径,根据实际替换
filePath = "测试.txt"

'fileCharset为要朗读的文本文件编码,根据实际替换
fileCharset = "utf-8"

Set fso = CreateObject("Scripting.FileSystemObject")
Set voice = CreateObject("SAPI.SpVoice")
Set openFile = fso.OpenTextFile(filePath, 1, True)
'将从文本中读取的文字存入Str
str = ReadFile(filePath, fileCharset)
'朗读文字
voice.Speak str

'作用:从文件中读取文本
'参数:
'filePath:文件路径
'charSet:文件编码格式
Function ReadFile(filePath, charSet)
    Dim Str
    Set stm = CreateObject("Adodb.Stream")
    stm.Type = 2
    stm.mode = 3
    stm.charset = charSet
    stm.Open
    stm.loadfromfile filePath
    Str = stm.readtext
    stm.Close
    Set stm = Nothing
    ReadFile = Str
End Function

使用方法:

  1. 新建一个文本文件,如 “测试.txt”,在里面输入你想要朗读的文字并保存,保存时记住编码格式;
  2. 再新建一个文本文件,将以下代码粘贴进去;
  3. 将filePath修改为要朗读的文本文件的路径,将fileCharset修改为要朗读的文本文件的编码格式;
  4. 修改无误后将文件保存为 “ANSI” 或 “UTF-16 LE” 编码且文件名以 “.vbs” 结尾的文件;
  5. 双击刚才保存的vbs文件开始朗读。
msgbox ("打开签到预约成功!")
while true
dim d,times
d=now
times=Hour(Now)&":"&Minute(Now)&":"&Second(Now)

if times="2:42:0" then
CreateOBject("SAPI.SpVoice").speak"现在是签到的时间!主人准备好了吗?"

Dim wsh
Set wsh = CreateObject("wscript.shell") 
set wshshell=CreateObject("wscript.shell")
wshshell.Run"chrome.exe http://www.baidu.com/" '如果浏览器打不开添加绝对路径,后面添加访问的路径
wsh.AppActivate "百度" ' 引号中填浏览器最上面的标题

'WScript.Sleep 1000*8 
'wsh.SendKeys "admin" '引号中填帐号 
'WScript.Sleep 1000*4
'wsh.SendKeys "{ENTER}"
'wsh.SendKeys "{TAB}"
'WScript.Sleep 1000*5 
'wsh.SendKeys "abcd_1234" '引号中填密码 
'WScript.Sleep 1000*3 
'wsh.SendKeys "{ENTER}"
Set objShell = CreateObject("Wscript.Shell")
'objShell.SendKeys "{F11}"
end if
wend

下面是表白代码

Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url")
oShellLink.Save
se_key = (MsgBox("我喜欢你很久了,你可以做我女朋友吗 是=同意 否=拒绝 ",4,"我没有开玩笑!!!"))
If se_key=6 Then
MsgBox "谢谢你给了我这次机会,I Love You!" & Chr(13) & Chr(10) & "=======请带上耳机!=======",64,"Love you"
CreateOBject("SAPI.SpVoice").speak"我很高兴,你能接受我,今天晚上一起去看电影啊!票已经买好了!"
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("我真的很喜欢你!求你了,别拒绝我,好吗? 是=同意 否=拒绝",4,"别拒绝我,好吗?"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "谢谢你给了我这次机会,I Love You!" & Chr(13) & Chr(10) & "=======请带上耳机!=======",64,"Love you"
WScript.Sleep 500
CreateOBject("SAPI.SpVoice").speak"我很高兴,你能接受我,今天晚上一起去看电影啊!票已经买好了!"
Else
MsgBox "唉,那 祝你能找到自己喜欢的人,若可回头 记住 我在你身后一直等你! --爱你的人",64,"祝你幸福!!"
seven.Run "shutdown.exe -a"
MsgBox "其实你拒绝了我,我也不会关你电脑的!因为你是我最重要的人,我不会捉弄你的!",64,"我愿意等你!"
End If
End If
赞(0)
未经允许不得转载:小叶白龙博客 » 让你的电脑开口说话
分享到: 更多 (0)

评论 抢沙发

评论前必须登录!