教你用vbs做一个Creeper接龙

1、创建一个记事本，另存为为vbs格式，选择ANSI编码。

2、右键刚刚新建的文档，选择“编辑”，此时蹦出一个空白的文本文档。

3、复制以下代码到空白文档里：

dim creeper

'新建一个变量，确认是否为指定文本

creeper=inputbox("请输入：Creeper?以开始接龙")

'用刚建完的变量制造一个输入框

if creeper="Creeper?" then

    dim cr1
    cr1=inputbox("Awwman!")

'检测输入文本是否为"Creeper?"

else

    msgbox "接龙失败！重新再来。"
end if

'如果输入错误会直接关闭程序

4、此为小编没有做完的半成品，供大家参考：

dim creeper

creeper=inputbox("来玩接龙游戏吧！输入:Creeper?")
if creeper="Creeper?" then
    dim cr1
    cr1=inputbox("Awwman!（首字母大写~）")
    if cr1="So we back in the mine" then
        dim cr2
        cr2=inputbox("Got our pickaxe swinging from side to side")
        if cr2="Side side to side" then
            dim cr3
            cr3=inputbox("This task,a grueling one")
            if cr3="Hope to find some diamonds tonight,night,night" then
                dim cr4
                cr4=inputbox("Diamonds tonight")
            else
                msgbox "接龙失败！重新再来。"
                end if
        else
            msgbox "接龙失败！重新再来。"
            end if
    else
        msgbox "接龙失败！重新再来。"
        end if
else
    msgbox "接龙失败！重新再来。"
end if