VB 编写的 验证码功能 请求帮助

Question

VB 编写 验证码 功能， 请问谁有没有相关资料，或者是什么原理 教教小弟！ 谢谢了

Answer 1

1.窗体设计启动VB6并新建一个标准EXE工程，布置好控件并设置好名称。接着将两个图片框的AutoRedraw属性设置成True，txt_inp、cmd_browse的Enabled属性设置为False，txt_inp的Maxlength属性设置成10。然后单击“工程→部件”，勾选“Microsoft CommonDialog Control 6.0”。2.算法加密过程是程序的重点。在这里我们运用画线和画点函数来处理图片，在图片框上随机选两个点画直线，同时用随机函数确定它的颜色;再随机点一个点，同样用随机函数确定它的颜色。在这里我们还用随机取字体样式和背景色，不过要注意的是，背景和字体颜色的差别要搞大一些，由于每个RBG分量值越大颜色越深，因此我们用下面两条语句就可以增强颜色的对比度:pic_las.ForeColor = RGB(Rnd * 255， Rnd * 255， Rnd * 255)
pic_las.BackColor = RGB(Rnd * 55， Rnd * 55， Rnd * 55)
绘制图像的具体的代码如下:
Sub AddPas()
  On Error GoTo Err1
  pic_las.Print Space(10 - Len(Result)); Result
  Dim x， y， x1， x2， i As Integer
  '随机决定输出字体样式
  pic_las.FontItalic = Int(Rnd * 2)
  pic_las.FontUnderline = Int(Rnd * 2)
  pic_las.ForeColor = RGB(Rnd * 155 + 100， Rnd * 155 + 100， Rnd * 155 + 100)
  '为验证码添加随机直线
  For i = 1 To (Int(Rnd(1) * 8) + 1)
    x = Int(Rnd * pic_las.Width): y = Int(Rnd * pic_las.Height)
    x1 = Int(Rnd * pic_las.Width): Y1 = Int(Rnd * pic_las.Height)
    pic_las.Line (x， y)-(x1， Y1)， RGB(Rnd * 255， Rnd * 255， Rnd * 255)
  Next i
  '为验证码随机添加圆点
  For i = 1 To (Int(Rnd(1) * 200) + 100)
    pic_las.PSet (pic_las.Width * Rnd， pic_las.Height * Rnd)， _
      RGB(Rnd * 255， Rnd * 255， Rnd * 255)
  Next i
  '写入输出文件
  If chk_file.value = 1 Then
    SavePicture pic_las.Image， txt_outfile.Text
    MsgBox "验证码已经保存在:" & txt_outfile.Text， vbInformation
  End If
  Exit Sub
Err1:  '产生了错误
  MsgBox Err.Number & ":" & Err.Description， vbExclamation
End Sub
摘自
http://www.zhinfo.org/forum_view.asp?forum_id=28&view_id=2413

Answer 2

我有个例程，你可以参考一下，
[email protected]