能說話的智慧機器通常是未來科幻電影的素材，但你可以把任何一臺電腦變成健談的凱茜。儘管我們還沒有到計算機可以像人一樣與我們互動的階段，但我們可以編寫一些工具和簡單的指令碼，讓任何執行Windows的計算機都能與我們對話。

一點（視覺）基本歷史

1988年，VBScript或（visualbasicscriptingedition）的第一次迭代出現了，它仍然是我們今天所擁有的非常原始的版本。多年來，微軟越來越需要一種易於使用的輕量級指令碼語言。正因為如此，該公司一直致力於此，並最終於1996年向公眾釋出。

它是一個簡單的指令碼，使用COM（元件物件模型）在Microsoft作業系統中建立、讀取、更新和刪除檔案。自從Windows98釋出以來，每臺電腦都安裝了它。由於VBScript宿主環境可以嵌入到使用microsoftscript控制元件的程式中，因此它具有高度的通用性。它通常與Internet資訊服務、Windows指令碼主機和Internet Explorer一起使用。

但是，這已經夠技術性的胡說八道了。讓我們開始學習如何讓你的電腦說話！

一次性使用VBScript

建立visualbasic指令碼非常簡單，不需要任何特殊的程式。儘管有一些程式可以用來編寫更高階的指令碼，但大多數程式設計師和涉足指令碼編寫的人只使用微軟的記事本。

讓我們開啟記事本開始這個過程。開啟記事本後，您只需鍵入以下程式碼或簡單地複製並貼上到記事本視窗中。為了改變你的指令碼讓電腦說的話，只需把“極客們將繼承地球”的部分換成你想聽的內容。

dim speechobject set speechobject=createobject("sapi.spvoice") speechobject.speak "The geeks shall inherit the earth"

在您成功輸入想要聽到的文字後，只需按“檔案”，然後單擊“另存為…”選項。

找到要儲存影象的位置。對於本例，我將它儲存到下載目錄中的一個空資料夾中。您需要做的重要的事情是給它一個以.vbs結尾的名稱。這將告訴計算機您不是在儲存純文字檔案，而是在儲存VBScript。我們將把這個樣本命名為“極客”測試.vbs“如下所示。

現在，您可以繼續關閉記事本並導航到儲存VBScript的資料夾。您會注意到圖示不是普通的TXT圖示。這是一個白色背景上的藍色小卷軸。雙擊這個圖示啟動你的一次性指令碼並收聽你的文字。恭喜，你剛剛建立了你的第一個指令碼。

現在，為了掌握竅門，試著用你想聽的任何文字建立更多的指令碼。或者，您可以右鍵單擊VBScript並選擇“開啟方式…”選項，然後選擇“記事本”來編輯同一檔案中的文字。

文字到語音指令碼

既然你已經知道如何編寫一個單次使用的指令碼，而且可能已經玩過幾次了，你可能會覺得有點無聊。這就是為什麼我們要把它提高一個檔次。

接下來我們將學習如何建立一個比一次性指令碼稍微高階一點的指令碼。這將建立一個對話方塊，您可以在其中鍵入文字，並讓您的電腦將其讀回給您。

首先再次開啟記事本並輸入此指令碼，或者複製並貼上到記事本視窗。

Dim message, sapi message=InputBox("What shall I say, your Geekness?","I speak for you.") Set sapi=CreateObject("sapi.spvoice") sapi.Speak message

輸入程式碼後，只需將檔案儲存為“Text to”語音.vbs“如前所示，完成指令碼。一旦它被儲存，導航到它所在的位置，然後雙擊它。你會注意到視窗名為“我為你說話”，輸入要發聲的文字的提示是“我該說什麼，你的怪胎？“你可以隨時改變這些，說任何你想說的話。

現在，讓我們輸入“極客將繼承地球”，然後按“確定”按鈕來執行指令碼並大聲聽到您的文字。

歡迎使用vbscript指令碼

這變得很有趣，但是你的電腦仍然不能和你很好的互動。現在我們將嘗試另一個簡單的指令碼，該指令碼考慮了一天中的時間以及對一天中的時間的適當響應。這個指令碼將讀取您的計算機的時間，並基於此，它將以某種方式問候您。

首先開啟你的記事本，**這個簡短的指令碼。你可以用任何你想聽到的短語替換包含當天問候語的部分，也可以用你自己的名字替換Geekmeister。

Set Sapi = Wscript.CreateObject("SAPI.SpVoice") dim str if hour(time) < 12 then Sapi.speak "Good Morning Geekmeister " else if hour(time) > 12 then if hour(time) > 16 then Sapi.speak "Good evening Geekmeister " else Sapi.speak "Good afternoon Geekmeister " end if end if end if

現在可以將文字文件儲存為VBS檔案。完成後，轉到儲存它的資料夾並雙擊它。根據你的電腦顯示的時間，它會說“早上好，下午好或者晚上好，Geekmeister。”

指令碼告訴它，如果時鐘在12點之前讀取任何內容，那麼它就是早晨，12點之後的任何內容都是下午；但是，它還有一個子句，說明即使是在12點之後，只要時間超過16:00（下午4點），它就變成晚上。

時間vbscript

如果您想更高階一點並接收時間，可以建立一個新的記事本並輸入此指令碼。

這個指令碼看起來可能很複雜，但它實際上是根據計算機時鐘上顯示的時間來告訴計算機該說什麼以及如何說。你總是可以用你想要的時間的任何介紹來代替“當前時間是”。

Set Sapi = Wscript.CreateObject("SAPI.SpVoice") Sapi.speak "The current time is" if hour(time) > 12 then Sapi.speak hour(time)-12 else if hour(time) = 0 then Sapi.speak "12" else Sapi.speak hour(time) end if end if if minute(time) < 10 then Sapi.speak "o" if minute(time) < 1 then Sapi.speak "clock" else Sapi.speak minute(time) end if else Sapi.speak minute(time) end if if hour(time) > 12 then Sapi.speak "P.M." else if hour(time) = 0 then if minute(time) = 0 then Sapi.speak "Midnight" else Sapi.speak "A.M." end if else if hour(time) = 12 then if minute(time) = 0 then Sapi.speak "Noon" else Sapi.speak "P.M." end if else Sapi.speak "A.M." end if end if end if

 

現在您只需要像前面步驟中那樣將檔案另存為VBScript，然後導航到該資料夾。如果一切順利，你應該能夠雙擊它，聽到電腦告訴你時間。

啟動問候語

既然你知道如何讓你的電腦問候你並告訴你時間，那麼當你開啟電腦的時候，如果電腦會這樣做會有多酷呢。如果你把這兩個指令碼組合在一起，把它們放在正確的地方，這實際上是很容易做到的。

首先開啟Microsoft記事本並將此程式碼複製到視窗中。它只是一個簡單的副本，這兩個程式碼組合為您。記住，你可以把問候語改成“你好，夥計，你好，主人，問候你全能的殿下”，或者任何你想讓你的電腦對你說的話。

Set Sapi = Wscript.CreateObject("SAPI.SpVoice") dim str if hour(time) < 12 then Sapi.speak "Good Morning Geekmeister " else if hour(time) > 12 then if hour(time) > 16 then Sapi.speak "Good evening Geekmeister " else Sapi.speak "Good afternoon Geekmeister " end if end if end if Sapi.speak "The current time is" if hour(time) > 12 then Sapi.speak hour(time)-12 else if hour(time) = 0 then Sapi.speak "12" else Sapi.speak hour(time) end if end if if minute(time) < 10 then Sapi.speak "o" if minute(time) < 1 then Sapi.speak "clock" else Sapi.speak minute(time) end if else Sapi.speak minute(time) end if if hour(time) > 12 then Sapi.speak "P.M." else if hour(time) = 0 then if minute(time) = 0 then Sapi.speak "Midnight" else Sapi.speak "A.M." end if else if hour(time) = 12 then if minute(time) = 0 then Sapi.speak "Noon" else Sapi.speak "P.M." end if else Sapi.speak "A.M." end if end if end if

一旦你將整個程式碼複製到記事本中，繼續並將其儲存為“Startup”問候語.vbs”. 它也可以被稱為任何你想要的東西，但是為了這個演示的目的，如果我們都在同一頁上，它會更容易。現在它已經儲存，您可以雙擊VBScript檔案來聽到它問候您並告訴您時間。

如果你想在開啟電腦時播放它，就像鋼鐵俠的賈維斯一樣，只需選擇檔案並用滑鼠將其拖到“開始按鈕”即可。不釋放滑鼠，將其移動到“所有程式”上，然後找到“啟動”資料夾並釋放滑鼠按鈕。

如果由於某種原因這對您不起作用，您也可以手動導航到啟動資料夾。您將首先轉到“啟動”資料夾問候語.vbs“已儲存並複製是的。是的下一步是在任何資源管理器視窗的頂部鍵入以下路徑，然後按“回車”。您只需將使用者名稱更改為您的計算機帳戶所使用的名稱。

C:\Users\USERNAME\AppData\Roaming\Microsoft\ Windows\Start Menu\Programs\Startup

一旦進入啟動資料夾，只要貼上vbs檔案，就可以開始了。現在，下次你啟動電腦並登入時，它會自動向你打招呼並通知你現在幾點了。

如果您在建立任何指令碼時遇到任何問題，都可以使用這些連結免費下載。

1. 極客測試
2. 招呼
3. 啟動問候語
4. 告訴時間
5. 文字到語音