让你的电脑开口说话

基本用法

一句话

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