主题：页面打开即开始计时，页面保持一分钟后，允许点击按钮！求助1、多文本框怎么设定不可修改；2、怎么设定时间，不满足条件不允许点击按钮！

Select Case e.Path

    Case "test.htm"

        Dim wb As New weui

        wb.AddForm("","form1","test.htm")

        With wb.AddInputGroup("form1","ipg1","基本资料")

            .AddInput("xm","姓名","text")

            .AddInput("nl","年龄","number")

            .AddInput("rq","日期","date")

            .AddSwitch("vip","VIP客户")

        End With

        With wb.AddInputGroup("form1","ipg2","备注")

            .AddTextArea("bz",5).Readonly=True

        End With

        With wb.AddButtonGroup("form1","btg1",True)

            .Add("btn1", "确定", "submit")

        End With

        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>",True)

        wb.AppendHTML("<script>document.getElementById('btn1').disabled=true;document.getElementById('btn1').style.backgroundColor = '#b2b2b2';var cnt = 60;setTimeout(countDown,1000);</script>")

        e.WriteString(wb.Build) '生成网页

End Select