主题：短信验证码

验证码界面容易完成，但是验证码数字需要发送到手机，然后再填入，可以在哪购买？代码怎么写？

方法一：

 

http://www.foxtable.com/webhelp/scr/2243.htm

 

方法二：

 

http://www.foxtable.com/webhelp/scr/2420.htm

 

方法三：

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52815&skin=0

 

购买：

 

http://apistore.baidu.com/astore/classificationservicelist/39.html

 

这个验证码怎么实现，需要购买吗？

你指图片验证码？图片验证码不需要购买，单独做一个生成图片的功能

 

先学一下gdi http://www.foxtable.com/webhelp/scr/1482.htm

 

直接做一个xxx.htm来生成验证码，然后把你要显示图片的路径设置成那个xxx.htm

 

4楼可以这样理解吗？

图片放到web目录下，网页指定好图片的路径

 

httpRequest做一个xxx.htm的判断，在里面写代码，生成图片，然后e.WriteFile(生成的图片路径)

 

 

p.Save(ProjectPath & "Images\myimg.jpg")

mark验证码

 

Select Case e.Path
    Case "login.htm"
        Dim wb As New weui
        wb.AddForm("","form1","login.htm")
        With wb.AddInputGroup("form1","ipg1","登录")
            If e.PostValues.ContainsKey("isj") AndAlso e.PostValues.ContainsKey("imm")  Then '判断是否是验证失败后的重新登录
                wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.
            End If
            With .AddInputCell("ic1")  '通过InputCell增加输入框(1表示突出显示,2表示红色警示图标)
                .AddLabel("lsj","手机",0)  '增加标签(0显示在左边)
                .AddInput("isj","text",1).PlaceHolder= "请输入手机号"  '增加输入框(0靠左显示,1居中显示,2靠右显示)
            End With
            With .AddInputCell("ic2")
                .AddLabel("lmm","密码",0)
                .AddInput("imm","password",1).PlaceHolder= "请输入密码"
            End With
            With .AddInputCell("ic5") '通过InputCell增加输入框
                .AddLabel("lyzm","验证码",0) '增加标签,0显示在左边
                .AddInput("yzm","text",1) '增加输入框,1表示显示在中间
                .AddImage("pim","/getVimg.htm",2).Attribute="onclick=""this.src = 'getVimg.htm?rand=' + Math.random() """ '增加一个图片,2比表示显示在右边
            End With
            'End With
            .AddSwitch("jizhumima","记住密码")
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "登录", "","submit") '"/index.htm")
            End With
            With wb.AddButtonGroup("form1","btg2", False)
                .Add("btn2", "免费注册","","/register.htm").Kind = 1
                .Add("btn3", "忘记密码","","/getback.htm").Kind = 1
            End With
        End With
        e.WriteString(wb.Build) '生成网页
    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
        'bmp.Save(ProjectPath & "Images\temp.jpg")
        'bmp.dispose
        'e.WriteFile(ProjectPath & "Images\temp.jpg")
        Dim ms As new IO.MemoryStream()
        bmp.Save(ms, ImageFormat.png)
        Dim buffer = ms.ToArray
        e.Response.ContentType = "image/Png"
        Dim output = e.response.OutputStream
        output.Write(buffer,0,buffer.Length)
        output.Close()
End Select

楼上代码产生4位随机数字