使用vb脚本实现QQ空间相册好友查验功能
1.思路
a.需要创建一个变量(执行方法)
b.需要使用输入框方法,用来接受用户输入的内容
c.给予用户输入的内容进行判断
d.当判断结果为true时,弹出一个消息框提示成功进入,
结束当前判断程序
当判断结果为false时,弹出一个消息框输入有误
然后再次进入查验界面---->意味着重新执行b、c、d操作
2.基础语法
2.1 定义变量----接受用户从消息框输入的内容
dim 变量名
2.2 输入框方法
inputbox("需要查验的问题","查验界面标题内容")
'带括号的都是方法
2.3 弹出消息框
msgbox "显示的提示(成功||失败)",,"消息框标题内容"
2.4 不知道循环次数,使用死循环
do
loop
'当某一条件为真时,用exit do的方法进行退出
2.5 跳出当前循环的关键字是什么?
exit 循环的首字母单词
'例如for循环的首单词为for;
'do---loop的死循环的首单词为do
2.6 vb脚本的程序如何编写?
a.直接新建一个记事本
b.更改它的文件拓展名为.vbe
c.然后设为它的编码格式为ANSI,用来防止中文乱码问题
此步骤的具体操作过程见后面常见问题中4.1的内容
d.编写vb脚本的语句
3.每一步的具体实现过程
3.1 步骤a–需要创建一个变量(执行方法)
dim a
'定义变量a来执行后面操作的方法
3.2 步骤b–需要使用输入框方法,用来接受用户输入的内容
a=inputbox("查验问题内容","查验界面标题的内容")
'变量a接受用户在输入框输入的内容 注意:createobject、wscript.shell这两部分是不能随便定义的
3.3 步骤c–给予用户输入的内容进行判断
if 用户输入值=问题答案 then
'条件为真时的语句
else
'条件为假时的语句
end if
'因为只有两种情况,所以用if条件判断最佳
3.4 步骤d–实现判断条件为真和为假的两种情况
if 输入内容="默认答案" then
‘消息框提示成功进入
'正确就跳出do...loop这个死循环
exit do
end if
‘消息框提示答案错误,请重新输入答案
4.常见问题分析
4.1 在vb脚本中出现中文乱码的显示问题
解决方案如下
a.打开文件扩展名为.vbe的文件
b.修改编码格式
点击完另存为就进入了如下图所示的界面
c.确认替换原文件
4.2 如何跳出当前循环?
默认关键字为exit
4.源代码
dim a
do
a=inputbox("请问我最爱吃的食物是啥???","问题验证")
if a="胡萝卜" then
msgbox "成功进入",,"正确界面"
'正确就跳出do...loop这个死循环
exit do
end if
msgbox "答案错误,请重新输入",,"错误界面"
loop