工具/原料
VisualBasic
方法/步骤
1、打开VB。
2、绘制控件:TextBox,PictureBox,Label,CommandButton。
3、添加代码：DimvCodeAsStringPriv瞢铍库祢ateSubdrawvc()'伍啪怪顼显示校验码Dimi,vc,px,pyAsLongDimr,g,bAsByteRandomize'初始化随机种子'生成随机校验码vc=CLng(8999*Rnd+1000)vCode=vc'显示校验码Picture1.ClsPicture1.Printvc'添加噪点（防止自动图像识别）Fori=0To2000'画2000个噪点'画点随机位置px=CLng(Picture1.Width*Rnd)py=CLng(Picture1.Height*Rnd)'画点随机颜色r=CByte(255*Rnd)g=CByte(255*Rnd)b=CByte(255*Rnd)Picture1.Line(px,py)-(px+1,py+1),RGB(r,g,b)NextEndSubPrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)drawvcEndSubPrivateSubCommand2_Click()IfText1.Text=vCodeThenMsgBox"验证码正确。",vbInformation+vbSystemModal,"正确"frmLand.MousePointer=13Timer1.Enabled=TrueElseMsgBox"验证码错误。",vbCritical+vbSystemModal,"错误"Text1.Text=""drawvcEndIfEndSubPrivateSubForm_Load()Picture1.FontSize=12Picture1.FontBold=TruePicture1.AutoRedraw=TruedrawvcEndSub
4、完成。