vbs一些基礎文法（語音播報,msgbox彈窗,控制結構以及vbs惡搞例子）

目的

桌面的文本檔案.txt字尾改為.vbs就可以直接運作，我對這個語言的知識沒怎麼了解，做個筆記。

内容

語音播報

CreateObject("SAPI.SpVoice").Speak "123"  '語音播報123
           

關于彈出方式，我見他人大多用的都是msgbox彈窗，是以上網找了關于這個的參數和傳回值，如下：

參數

第二個參數Buttons:可選的參數，為數值表達式的值之和，指定顯示的按鈕的數目及形式、使用的圖示樣式、預設按鈕及消息框的強制回應等，可以此定制消息框。若省略該參數，則其預設值為0。設定值見下表。

傳回值

控制結構

條件和循環：

if (判斷條件) then
(判斷條件為true執行的語句)
else 
(判斷條件為fasle時執行的語句)
end if '結束if判斷

Select Case (判斷條件)
Case (判斷條件等于這個值時) (執行語句)
Case (判斷條件等于這個值時) (執行語句)
end Select '結束Select Case判定

do while (判斷條件)
(執行語句)
loop '傳回到do while語句再次進行判定，失敗則退出，成功則繼續循環

For i = 1 To 10 step 2 '循環10次，步長為2，通過使用 Step 關鍵詞，我們可以規定計數變量遞增的步進值，
(執行語句)
Next 'i=i+step并傳回到for語句再次進行判定，失敗則退出，成功則繼續循環
           

例子：

For i = 1 To 10
If msgbox ("世上若無君，何處可為家？你覺得我說的對不對~",4,"相關事宜") =6 Then
msgbox "英雄所見略同，不愧是你"
Exit For
else
msgbox "？？？"
msgbox "我再給你一次機會"
i=i-1
End if
Next

'無限循環語音播報外加文字嘲諷以For循環為例
For i = 1 To 10
  i=i-1
  msgbox "你是豬嗎？"
  CreateObject("SAPI.SpVoice").Speak "沙雕網友"
Next

'無限循環語音播報外加文字嘲諷以do while為例
do while true
  msgbox "你是豬嗎？"
  CreateObject("SAPI.SpVoice").Speak "沙雕網友"
loop
           

PS：大概就這樣了。請自由組合成喜歡的vbs腳本去玩吧