用VB編程制作簡單易學的驗證碼

簡單易學的用VB制作驗證碼，不含有api函數。只需掌握簡單的VB知識就可學會制作。第一步，建立一個新的標準exe文件。然后在form1上拉出一個picture框。用于輸出驗證碼。第二步，建立一個commmand控件，用于進行驗證碼的獲取和刷新第三步，創(chuàng)建一個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第六步，已經完成編寫。直接運行即可。