以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助][讨论]验证码验证问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132477)
--  作者：lhpc120
--  发布时间：2019/3/22 15:47:00
--  [求助][讨论]验证码验证问题

验证码获取代码

        Case "getVimg.htm"
            Dim bmp As new bitmap(70, 40)
            Dim g As Graphics = Graphics.FromImage(bmp)
            Dim Val1 As Double = Rand.Next(10000)
            Dim fnt As New Font("宋体",16)
            Dim msg As String = format(val1, "0000")
            g.DrawString(msg,fnt,Brushes.Red,10,10)
            e.AppendCookie("yanzhengma", msg)  \'校对这个cookie
            Dim ms As new IO.MemoryStream()
            bmp.Save(ms, ImageFormat.png)
            Dim buffer = ms.ToArray
            e.Response.C
            Dim output = e.response.OutputStream
            output.Write(buffer,0,buffer.Length)
            output.Close()
            \'这里测试weui


我希望在输入完验证码后，系统进行验证，输入的验证码正确可以点击按钮，输入不正确，弹出提示，请问老师怎么做呢？
--  作者：lhpc120
--  发布时间：2019/3/22 15:48:00
--  
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Select Case ym
            With .AddInputCell("ic5") \'通过InputCell增加输入框
                .AddLabel("lyzm","验证码",0) \'增加标签,0显示在左边
                .AddInput("yzm","text",1) \'增加输入框,1表示显示在中间
                .AddImage("pim","/getVimg.htm",2).Attribute=""" \'增加一个图片,2比表示显示在右边
            End With
        End With
End Select

这里是填写验证码的部分
[此贴子已经被作者于2019/3/22 15:48:16编辑过]
--  作者：有点蓝
--  发布时间：2019/3/22 20:37:00
--  
不是已经把验证码写入cookie了吗，把用户填的内容和这个cookie核对就行呀

e.AppendCookie("yanzhengma", msg)  \'校对这个cookie