用VB编程制作简单易学的验证码

简单易学的用VB制作验证码，不含有api函数。只需掌握简单的VB知识就可学会制作。第一步，建立一个新的标准exe文件。然后在form1上拉出一个picture框。用于输出验证码。第二步，建立一个commmand控件，用于进行验证码的获取和刷新第三步，创建一个textbox，用于输入验证验证码的载入第四步，建立command2，用于验证所输入验证验证码是否正确第五步，进行代码编写Dimk(1To4)AsLongPrivateSubCommand1_Click()Command1.Caption="刷新验证码"Picture1.ClsRandomizeForj=1To4l=200*Rndo=200*Rndp=200*RndPicture1.ForeColor=RGB(l,o,p)Picture1.FontSize=30+Int(Rnd*24)a=Int(Rnd*2)b=Int(Rnd*2)c=Int(Rnd*2)Ifa=1ThenPicture1.FontBold=TrueElsePicture1.FontBold=FalseEndIfIfb=1ThenPicture1.FontStrikethru=TrueElsePicture1.FontStrikethru=FalseEndIfIfc=1ThenPicture1.FontItalic=TrueElsePicture1.FontItalic=FalseEndIfPicture1.CurrentX=-0.35*j+0.7Picture1.CurrentY=1g=Int(Rnd*3)SelectCasegCase1k(j)=(Int(Rnd*10)+48)Picture1.PrintChr(k(j))Case0k(j)=(Int(Rnd*24)+97)Picture1.PrintChr(k(j))Case2k(j)=(Int(Rnd*24)+65)Picture1.PrintChr(k(j))EndSelectNextjFori=1To1000Picture1.DrawWidth=2x=Rnd*2-1y=Rnd*2-1r=135*Rnd+100b=135*Rnd+100g=135*Rnd+100Picture1.PSet(x,y),RGB(r,b,g)NextiEndSubPrivateSubCommand2_Click()IfLen(Text1.Text)<>4Thenmystr=MsgBox("验证码错误"，1+48,"提示")Elsec1=Mid(Text1.Text,1,1)c2=Mid(Text1.Text,2,1)c3=Mid(Text1.Text,3,1)c4=Mid(Text1.Text,4,1)If(Chr(k(4))=LCase(c1)OrChr(k(4))=UCase(c1))And(Chr(k(3))=UCase(c2)OrChr(k(3))=LCase(c2))And(Chr(k(2))=UCase(c3)OrChr(k(2))=LCase(c3))And(Chr(k(1))=UCase(c4)OrChr(k(1))=LCase(c4))Thenmystr=MsgBox('验证码正确"，1+64,"提示")Elsemystr=MsgBox("验证码错误"，1+48,"提示")EndIfEndIfEndSubPrivateSubForm_Load()Picture1.Scale(-1,1)-(1,-1)EndSub第六步，已经完成编写。直接运行即可。