vbs简单语法及简单案例

一、简单语法

1、变量

语法：	dim 变量名

例：

dim a,b
a=1
b=2
msgbox a+b

运行：

2、输入

语法：InputBox(Prompt,[Title],[Default],[XPos],[YPos],[Helpfile],[Context])

Prompt：必需的。作为对话框消息出现的字符串表达式
Title： 可选的。显示对话框标题栏中的字符串表达式
Default：可选的。显示文本框中的字符串表达式

例：

dim str
str=inputbox("你的名字是?","标题")
msgbox str

运行：

3、输出

语法：MsgBox (Prompt,[Buttons],[Title],[Helpfile,Context])

输出基本与输入相同，上面案例也均用到了输出

4、选择语句

语法：
if 判断语句 then执行语句
end if 

例：

dim str
str=msgbox("你喜欢我吗?",vbYesNo,"喜欢")
if str=vbYes thenmsgbox "我也喜欢你"
elsemsgbox "又是愉快的一天呢"
end if

vbYesNo，是buttons属性中的，只显示“是”和“否”按钮，vbYes即选中“是”
运行：

5、循环

语法：
do执行语句
loop

例：

domsgbox"停不下来"
loop

运行：（不断循环关不掉）

想要关掉的话可以通过任务管理器，找到该进程结束进行即可

一种do—loop结束方法 until
例：

dim str
do until str="yes"msgbox"你喜欢我？"str=inputbox("yes or no","遵从内心的选择")
loop

很显然循环结束的条件是输入yes，否则就一直循环

二、用记事本编译中文乱码问题

问题：用记事本编写vbs脚本时，发现输出的中文为乱码

解决：
只需要另存为，将原来的编码UTF-8改为ANSI即可

三、制作一个简单vbs脚本表白

1. 新建一个文本文档

2. 复制以下代码到文本文档中

   MsgBox "            十年相遇"
   MsgBox "            百年回眸"
   MsgBox "          千年同船渡"
   MsgBox "       我愿以万年的等待"
   MsgBox "          百世的轮回"
   MsgBox "       换你今朝一世情缘"
   MsgBox "              可否"
   dim a(5)
   a(0)="    天大，地大，女友最大"
   a(1)="          工资上交"
   a(2)="           房写你名"
   a(3)="          帮清购物车"
   a(4)="        永远宠着你"
   a(5)="        你就答应我把^o^"
   Dim j
   Do
   Select Case msgbox ("姑娘，做我女朋友吧",4)
   Case 6 
   MsgBox "                ----          ----"+Chr(10)+"             /         \     /        \"+Chr(10)+"           /             \/             \"+Chr(10)+"        /                 I                \ "+Chr(10)+"         \           LOVE             /"+Chr(10)+"            \            U             /"+Chr(10)+"              \          xx         /" +Chr(10)+"                 \       xx      / "+Chr(10)+"                   \     xx   /"+Chr(10)+"                      \     /"+Chr(10)+"                        \/",4096 ,"             此心似我心"
   MsgBox "         you are my girlfriend，" + Chr(13)+"    from this day until to my last days.",,"                        "
   exit do
   Case 7
   msgbox a(i)
   i=i+1
   if i >= 6 then
   i = 0
   end ifend Select
   Loop
   

3. 把粘贴好的文件另存为，编码格式改为ANSI（解决中文乱码），文件名后缀改为vbs即可

   
   运行：