F2 初识脚本语言
vbs 基本语法
cmd 基本命令
Note
✌ 的意思为或
HelloWorld
第一个程序
做一个 HelloWorld 弹框吧
- 桌面
🖱️右键-> 点击新建文本文档 - 修改输入法为英文模式
- 打开新建的文本文档，输入以下内容
msgbox("Hello,World!")
- 点击左上角
文件-> 点击保存✌ 按Ctrl + S - 右键单击文件 -> 点击
重命名✌ 按F2-> 改为01-HelloWorld.vbs - 点击运行, 弹出内容为
HelloWorld的弹框。 - 更改窗口位置：
Win + ⬅️，方便程序调试。
扩展名不显示？
- 按
Win + E打开文件资源管理器 - 在菜单栏中点击
查看 - 勾选右侧
文件扩展名
扩展名是什么
仅仅是一些字母的集合, 修改了扩展名后, 就变成了可运行的程序？
- 为什么要有扩展名？
在不读取文件内容的情况下, 系统无法得知该文件需要用什么软件打开。
使用中文
- 右键编辑 -> 修改内容为中文
msgbox("你好, 世界！")
- 运行发现报错 ✌ 乱码
- 百度寻找解决办法
VBS 语法
循环
如何恶搞用户，让他关不掉这个窗口呢？
脚本语言的代码是一行一行执行的，
每次关掉后执行下一行代码。
' 写入无限多的 msgbox
msgbox("你好, 世界！")
msgbox("你好, 世界！")
...
有没有更简单的方法？
' 这是一行注释, 用法如其名, 计算机不会执行这行东西。
' 未来的编程之路将会经常用到他
do
msgbox("关掉？你在想Peach")
loop
如何关闭
- 任务栏单击鼠标右键 ✌ 按
Ctrl + Alt + Del - 选择
任务管理器 - 找到
MicroSoft ® ...并选中 - 点击右下角
结束任务✌ 重启电脑
条件循环
倒数 10 个数的窗口
每次运行前判断条件是否满足
' 定义一个变量名字叫i, 值为10
dim i
' 这和数字怎么不需要"括起来呢？
' 只有字符串需要用"括起来
i=10
' 持续执行下面的代码, 直到i不大于0
do while i>0
msgbox(i)
i=i-1
loop
' = 等于
' <> 不等于
' > 大于
' < 小于
条件判断
加入恶搞用户的交互
根据条件决定是否运行
dim answer
' 一个输入框, 输入的结果命名为answer
answer = inputbox("说“我是猪”")
' 判断说输入的值是否为 我是猪
if answer = "我是猪" then
msgbox("哈哈哈, 你是猪")
elseif answer = "I'm a pig" then
msgbox("hahaha, you are a pig")
else
do
msgbox("你在想Peach")
loop
end if
以上就是编程中最常用的三种表达式了
更多？
制作一个有破坏作用恶搞程序
为类生产一个实例，并调用实例中的方法
这些东西编程语言已经为你实现好了, 我们所作的就是决定他的用用途。
未来能够自己编写类的时候，就可以理解了。
' 一个输入框, 输入的结果命名为answer
answer = inputbox("说“我是猪”")
' 判断说输入的值是否为“我是猪”
if answer = "我是猪" then
msgbox("哈哈哈, 你是猪")
elseif answer = "I'm a pig" then
msgbox("hahaha, you are a pig")
else
' 使用 set 创建一个可以调用的实例
' 汽车 = 制造(图纸)
set ws = createobject("Wscript.shell")
' 汽车.发动('去曹县')
ws.run("cmd.exe /c shutdown -s -t 10" )
msgbox("10s后就会关机")
end if
课后
作业
- 根据教案，实现一下课堂中的例子，并保存好代码。
- 做一个小的恶搞程序，发给室友 ✌ 同学，拍个小视频。