2023年11月25日发(作者：)VBS教程 首先，我说一下什么是VBS，VBS，就是VBScript的简称，是微软Visual Basic（VB）
的简化版，VBS脚本文件的扩展名为“.vbs”，VBS脚本能给我们日常的学习生活带来
莫大的好处，可是，VBS也是黑客入侵的一个漏洞，“VBS病毒”就是VBS脚本所编写
的病毒。
废话不说，咱先进入正题。
第一课：msgbox
打开记事本，输入 msgbox"你好" ，点“文件”——“保存”，或者按Ctrl+s，弹出“另
存为”对话框，选择要保存的路径，输入“”，点“保存”（的“1”是文
件名，可以改，但是“.vbs”是分隔符和文件扩展名，不能改。），双击运行，效果如
下：
你会发现，怎么没有标题？
接下来，就教你设置标题。
打开记事本，输入 msgbox"你好",,"你好" ，然后保存（保存方法在第五行已经讲明，
不再复述），双击运行，效果如下：
可能会遇到这个错误：
这是因为引号在中文输入法下输入，应该切换为英文输入法，即
msgbox{显示内容},{参数},{标题}
现在，我讲一下msgbox函数的参数
0：只有一个确定按钮
1：有一个确定按钮和取消按钮
2：有终止、重试、忽略按钮
3：有是、否、取消按钮
4：只有是、否按钮
5：只有重试、取消按钮
16：提示框类型为系统错误信息
32：有一个问号图标
48：提示框类型为系统警告信息
64：有一个感叹号图标
第二课：inputbox
这个函数是弹出一个文本框。
打开记事本，输入 inputbox"输入文字：","文字" ，然后保存，双击运行，效果如下：
inputbox{显示内容}，{标题}
第三课：常量与变量
上一课学习了inputbox函数，弹出一个文本框。
然后，你可能会问：能不能弹出一个文本框，当别人输入文本然后点确定时，用msgbox
函数显示出输入的文本？
我的回答是：完全可以！
1、常量
例如语句 msgbox"你好" 中的"你好"是一个常量，带引号的都是常量（字符串）。
2、变量
例如语句
dim a
a=inputbox("输入文字：","文字" )
msgbox a,,"文字"
效果为：
输入“你好”
VBS中，dim函数要引用多个变量，用逗号分隔，例如 dim a,b,c
变量中，引用函数的常量或变量要用括号，例如
dim a
a=msgbox("1",1)
msgbox a
点“确定”，显示值： 1
点“取消”，显示值： 2
还有 & 号分隔符
例如
msgbox "a" & "b"
显示“ab”
变量的用途就是来显示输出的值。
第四课：do函数 do函数的用处是无限循环某段语句，适合制作整人程序。
打开记事本，输入
do
msgbox"你好"
loop
然后保存，双击运行。
会弹出无数个“你好”对话框
。
do
{代码}
loop
遇到特殊情况要终止do，就使用 exit do 语句
打开记事本，输入
do
msgbox"你好"
exit do
loop
只弹出一个“你好”对话框。
但是如果结束“”进程，它自然也就不运行了。
第五课：for函数
for函数主要是循环某个语句特定的次数
打开记事本，输入
for a=1 to 10
msgbox"你好!"
next 然后保存，双击运行。
会弹出十个“你好！”对话框。
如果遇到特殊情况要停止循环，加入 exit for 语句。
例如
for a=1 to 10
msgbox"你好!"
exit for
next
只弹出一个“你好”对话框。
for 变量=1 to 次数
{语句}
next
第六课：if函数
if函数的作用是判断变量的值
例如
a=1
if a=1 then
msgbox"k"
end if
然后保存，双击运行
只弹出“k”
把代码变换一下：
a=2
if a=1 then msgbox"k"
end if
就不弹出“k”了
if {变量}{=或<或>}{值} then
{语句}
end if
再教一个例子：
dim a
a=inputbox("文本内容:","文本")
if a=5 then
msgbox"yes",,"文本"
else
msgbox"no",,"文本"
end if
第七课：VBS运行特定文件
这一节课，教你怎么用VBS运行特定文件
打开记事本，输入 createobject("").run "" ，然后保存，
双击运行
会打开“记事本”程序
把代码变换一下：
createobject("").run "",0
会后台打开记事本程序
createobject("").run "{程序名}“,"{参数}"
下面我来讲一下它的参数： 0：后台运行
1：前台运行
2：最小化运行
3：最大化运行
4：虽然运行，但目标不在程序上
第八课：VBS错误处理
打开记事本，输入 a ，然后保存，双击运行
肯定不用说，这是一个错误的程序
把代码变换一下：
on error resume next
a
不会弹出错误的信息
on error resume next
这一行语句的作用是屏蔽错误信息
再把代码变换一下：
on error resume next
a
msgbox
会显示出“13”
“13”就是这个VBS脚本的错误代码
这行语句表示上一句错误语句的错误代码
第九课：VBS修改注册表
先教你写注册表 打开记事本，输入
set a=createobject("")
te"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun
jisuanqi",""
然后保存，双击运行，重新启动电脑
一开始就运行“计算器”程序
把代码变换一下：
set a=createobject("")
ete("HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRu
njisuanqi")
然后保存，双击运行，重新启动电脑
不运行“计算器”程序了
再把代码变换一下：
set a=createobject("")
msgbox d("HKEY_LOCA
L_MACHINESOFTWAREMicrosoftInternet
ExplorerMainStart Page")
然后保存，双击运行
弹出一个对话框，内容是你浏览器的主页
第十课：VBS操作文件
VBS操作文件需要用到FSO对象，即FileSystemObject对象
先说一下如何写入文件
打开记事本，输入 set a=createobject("stemobject")
set b=textfile("D:")
然后保存，双击运行
这样，就创建了一个文本文件在D:
把代码变换一下：
set a=createobject("stemobject")
set b=textfile("D:")
ine("你")
ine("好")
然后保存，双击运行
打开D:，看看它的内容
同样，也有一些特殊功能键：
^是Ctrl键
+是Shift键
%是Alt键
{up}是上键
{down}是下键
{left}是左键
{right}是右键
如果是其他的一些特殊键，那么
set a=createobject("")
ys "{键名}"
例如
set a=createobject("")
ys "{enter}"
就按下了回车键，依次类推
发布评论