VBScript学习笔记(一)
0x00 简介
VBScript是一种脚本语言，而脚本语言是一种轻量级的编程语言。
VBScript是微软的编程语言Visual Basic的轻量级的版本。
0x01 变量
变量：必须以字母开头，不能包含点号，不能超过255个字符。
变量的生存期：
1.变量的生存期是指它可以存在的时常。
2.当在一个子程序中声明变量时，变量只能在此程序内进行访问。当退出此程序时，变量也会失效。这样的变量称为本地变量。因此可以在不同的程序中使用相同名称的本地变量，因为每个变量只能在声明它的程序内得到识别。
3.如果在程序以外声明了一个变量，那么在页面上的所有的程序都可以对这个变量进行访问，而这类变量的生存期始于它们被声明的时候，而终止于页面关闭的时候。
注：该语言对于大小写不敏感。
在Windows系统中，使用txt文档便能写代码，当然后缀要由txt改为vbs。其中在VBScript中，dim name1，name2，...就是定义变量的，dim会自动识别变量的类型。
demo.vbs
dim name,age name="an" age="18" msgbox name msgbox age
保存之后，双击该文件便能看到两个弹框。
demo1.vbs
dim name1 name1=inputbox("input your name") msgbox name1
运行之后，会弹出一个输入框请求输入，然后输出先前输入的内容。
0x02 常量
定义常量的方式：const name1=value，name2=value，...
对于常量就不多bb了，学过编程语言的，都清楚。
demo2.vbs
dim s,r const pi=3.14 r=inputbox("Please enter the radius") s=pi*r*r msgbox s
我这里有点问题就是在inputbox中出现中文便会报错或是乱码，这个问题以后再解决，暂时用英语，权当练习英语。
0x03 注释及数学运算
在VBS中，注释代码或文字有两种方式，一是在代码或文字之前添加rem，二是在代码或文字之前添加一个单引号。
数学运算大体上和python差不多，单纯就是关键字变了而已。
demo3.vbs
dim a,b,c a=2 b=3 c=a*b+b msgbox c
输出为9。
补充：
1.在VBS中，取余的方式是用mod，而不是python等语言中的%。
2.在VBS中，将一个分数只取其整数部分，使用int()即可。举一个例子：
demo4.vbs
dim a,b,c a=2 b=3 c=b/a msgbox int(c)
那么不使用int()的话，输出的会是1.5，但使用了int()之后，输出的则是1。因为int表示只取其整数部分。
0x04 布尔类型和if判断语句
布尔类型就是false和true的问题。
demo5.vbs
dim a,b a=10 b=5 msgbox a>b '输出为true if a>b then msgbox "a>b" '输出为a>b end if
demo5中的msgbox a>b就是布尔类型的一种表现。
if的判断语句大致分为
一种可能：
if 条件 then 输出 end if
两种可能：
if 条件 then 输出 else 输出 end if
三种可能：
if 条件 then 输出 else if 条件 then 输出 else 输出 end if end if
此处有两个end if的原因是因为else if也需要用end if来结束。
demo6.vbs
dim a a=inputbox("Please enter a number greater than 100") a=int(a) if a>100 then msgbox "correct" else if a=100 then msgbox "equal" else msgbox "error" end if end if
这就是一个简单比大小的程序，只是为了了解if语句。
使用if判断语句的易错点：
demo7_1.vbs
dim a,b,c,d a=inputbox("Please enter a value") b=inputbox("Please enter a value") c=inputbox("Please enter a value") d=a+b if c=d then msgbox "correct" else msgbox "error" end if
这串代码，当a=1、b=1、c=11时，会输出correct，也就是正确。因为inputbox默认返回的类型是字符串，而d=a+b便变成了两个字符串的“1”相加，变成了“11”，所以会输出correct。
demo7_2.vbs
dim a,b,c,d a=inputbox("Please enter a value") b=inputbox("Please enter a value") c=inputbox("Please enter a value") d=a+b c=int(c) if c=d then msgbox "correct" else msgbox "error" end if
这串代码多了一个c=int(c)，也就是将c的类型由字符串转变为数值类型。那么demo7_1的输入方式就会报错，因为字符串类型怎么能够和数值类型的作比较，必然是error。
demo7_3.vbs
dim a,b,c,d a=inputbox("Please enter a value") b=inputbox("Please enter a value") c=inputbox("Please enter a value") d=a*2+b c=int(c) if c=d then msgbox "correct" else msgbox "error" end if
这串代码的区别是d=a+b变成了d=a*2+b，那么如果输入a=2、b=2、c=6时，就会返回correct，因为在vbs中，一旦进行了数学运算，那么返回的类型就是数值类型，而c也被转变为数值类型，所以就会返回correct。
当然在VBS中，if中的判断条件可以用and、or等逻辑运算符，这和python差不多。
0x05 多种条件判断
话不多说，直接例子走起。
demo8.vbs
dim a a=inputbox("Please enter Numbers") a=int(a) select case a case 1 msgbox "one" case 2 msgbox "two" case 3 msgbox "three" case 4 msgbox "four" case else msgbox "error" end select
这个例子相信只要学过编程的，都大致可以看的懂。
0x06 循环结构do loop
demo9.vbs
do msgbox "Hello" loop
运行之后就会循环输出Hello，然后用任务管理器将其结束。
demo10.vbs
dim password const pass="123" do password=inputbox("Please enter your password") if password=pass then msgbox "success" exit do end if loop
demo10就是一个简单的密码验证的作用，通过do loop来达到验证的目标。exit do是跳出循环。也就是结束整个的循环。
demo11.vbs
dim password pass="qwe123" num=1 do password=inputbox("Please enter your password") if password=pass then msgbox "success" exit do else if num=3 then msgbox "Error 3 times, the program will close" exit do else num=num+1 msgbox "Password mistake" end if end if loop
这串代码的大致作用是验证密码的正确性，一旦密码错误达3次，程序将会退出。
