帶語音功能的表白指令碼

2021-08-21 09:45:14 字數 865 閱讀 4362

dim name,msg

msg=("請輸入你的名字:")

name=inputbox(msg,"姓名")

msgbox name, ,"親愛滴"

msgbox("我喜歡你!")

set objtts = createobject("sapi.spvoice")

objtts.speak"親愛的,某某某"

objtts.speak"做我女朋友好不好"

x=msgbox("做我女朋友好不好?",vbokcancel)

if x=vbok then

objtts.speak"愛你呦~比心!"

msgbox("愛你呦~比心! ")

set wshell=wscript.createobject("wscript.shell")

ws.run"\biaoba\index" '設定ie物件預設指向的頁面

ie.visible=0 '設定ie物件是否可視

elseif x=vbcancel then

objtts.speak"不可以"

msgbox("不可以~~")

do until x=vbok

objtts.speak"做我女朋友好不好"

x=msgbox("做我女朋友好不好?",vbokcancel)

if x=vbcancel then

objtts.speak"不可以"

msgbox("不可以~~")

else

objtts.speak"我就知道你是喜歡我的嘛"

msgbox("我就知道你是喜歡我的嘛~")

end if

loop

end if

非常簡單的語音朗讀功能

不知道大家有沒有發現,在system.speech.synthesis命名空間下有乙個speechsynthesizer類,它可以指定的文字內容進行語音朗讀,而且,這個類用起來也嚴重簡單,簡單到什麼程度?試試看。首先,新建乙個專案,隨便你建什麼專案,反正能測試即可。然後,新增對system.spee...

非常簡單的語音朗讀功能

不知道大家有沒有發現,在system.speech.synthesis命名空間下有乙個speechsynthesizer類,它可以指定的文字內容進行語音朗讀,而且,這個類用起來也嚴重簡單,簡單到什麼程度?試試看。首先,新建乙個專案,隨便你建什麼專案,反正能測試即可。然後,新增對system.spee...

shell帶顏色的指令碼

我們在寫shell指令碼的時候為了使輸出出來的資訊更加醒目一點,可以給不同狀態的字型顯示不同的顏色,如下 我在這裡最先定義了2個函式,log.info和log.err,乙個輸出正常資訊為綠色,乙個輸出異常資訊為紅色,隨後又定義了2個函式,分別檢查mysql和k8s狀態,如果檢查ok我們就呼叫info...