用VB編程制作簡(jiǎn)單易學(xué)的驗(yàn)證碼

簡(jiǎn)單易學(xué)的用VB制作驗(yàn)證碼，不含有api函數(shù)。只需掌握簡(jiǎn)單的VB知識(shí)就可學(xué)會(huì)制作。第一步，建立一個(gè)新的標(biāo)準(zhǔn)exe文件。然后在form1上拉出一個(gè)picture框。用于輸出驗(yàn)證碼。第二步，建立一個(gè)commmand控件，用于進(jìn)行驗(yàn)證碼的獲取和刷新第三步，創(chuàng)建一個(gè)textbox，用于輸入驗(yàn)證驗(yàn)證碼的載入第四步，建立command2，用于驗(yàn)證所輸入驗(yàn)證驗(yàn)證碼是否正確第五步，進(jìn)行代碼編寫Dimk(1To4)AsLongPrivateSubCommand1_Click()Command1.Caption="刷新驗(yàn)證碼"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("驗(yàn)證碼錯(cuò)誤"，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('驗(yàn)證碼正確"，1+64,"提示")Elsemystr=MsgBox("驗(yàn)證碼錯(cuò)誤"，1+48,"提示")EndIfEndIfEndSubPrivateSubForm_Load()Picture1.Scale(-1,1)-(1,-1)EndSub第六步，已經(jīng)完成編寫。直接運(yùn)行即可。