使用vb脚本实现QQ空间相册好友查验功能

使用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