短信验证码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

回7楼，这是需要显示验证的页面：

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("ic3")

.AddLabel("lyz","验证码",0)

.AddInput("iyz","number",1).PlaceHolder= "请输入验证码"

.AddVcodeButton("vyz","获取验证码",2) '0靠左显示,1居中显示,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

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

End Select

这是一段2个随机数字相加的图片，问如何写入上述代码？

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics

Dim Val1 As string = Rand.Next(10) '生成0到10之间的随机整数

Dim Val2 As string = Rand.Next(10) '生成0到10之间的随机整数
Dim fnt As New Font("宋体",16)
Dim msg As String = " & Val1 & + & Val2 & ="

g.DrawString(msg,fnt,Brushes.Red,10,10)
p.Repaint()

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

[此贴子已经被作者于2017/3/20 17:33:38编辑过]

主题：短信验证码