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脚本去玩吧