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...