VB程序编写账号和密码的验证程序

Private Sub Command1_Click()

If IsNumeric(Text1.Text) And Len(Text1.Text) = 6 And Text2.Text = "good" Then

 MsgBox "输入正确，验证通过", vbOKCancel, "验证通过"

Else

 If MsgBox("账号或密码错误", vbRetryCancel, "验证错误") = vbRetry Then

    Text1.Text = ""

    Text2.Text = ""

    Text1.SetFocus

 Else

    End

 End If

End If

End Sub

Private Sub Form_Load()

Text1.PasswordChar = "*"

End Sub

我会C#.net的，不过逻辑应该一样，给你看下吧第一步： 创建生成随机字符的方法private string CreateValidate(int count)

{

//定义验证码中所有的字符

string allchar = "1,2,3,4,5,6,7,8,9,0,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,W,X,Y,Z"

//将验证码中所有的字符保存在一个字符串数组中

string[] allchararray = allchar.Split(',')

//初始化一个随机数

string randomcode = ""

int temp = -1

//生成一个随机对象

Random rand = new Random()

//根据验证码的位数循环

for (int i = 0i <counti++)

{

//主要是防止生成相同的验证码

if (temp != -1)

{

//加入时间的刻度

rand = new Random(i * temp * ((int)DateTime.Now.Ticks))

}

int t = rand.Next(35)

if (temp == t)

{

//相等的话重新生成

return CreateValidate(count)

}

temp = t

randomcode += allchararray[t]

}

//在Session中保存随机验证码

Session["Valid"] = randomcode

//返回生成的随机字符

return randomcode

}第二步：创建生成图片的方法：private void CreateImageM(string validateCode)

{

//图像的宽度-与验证码的长度成一定比例

int iwidth = (int)(validateCode.Length * 11.5)

//创建一个长20，宽iwidth的图像对象

System.Drawing.Bitmap image = new System.Drawing.Bitmap(iwidth, 20)

//创建一个新绘图对象

Graphics g = Graphics.FromImage(image)

//绘图用的字体和字号

Font f = new System.Drawing.Font("Arial", 10, System.Drawing.FontStyle.Bold)

//绘图用的刷子大小

Brush b = new System.Drawing.SolidBrush(Color.White)

//清除背景色，并以深橄榄绿的颜色填充

g.Clear(Color.DarkOliveGreen)

//格式化刷子属性-用指定的刷子、颜色等在指定的范围内画图

g.DrawString(validateCode, f, b, 3, 3)

//创建铅笔对象

Pen blackPen = new Pen(Color.Black, 0)

//创建随机对象

Random rand = new Random()

//随机画线

for (int i = 0i <5i++)

{

int y = rand.Next(image.Height)

g.DrawLine(blackPen, 0, y, image.Width, y)

}

//输出绘图

System.IO.MemoryStream ms = new System.IO.MemoryStream()

//将图像保存到指定的流

image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

Response.ClearContent()

//配置输出类型

Response.ContentType = "image/Jpeg"

//输出内容

Response.BinaryWrite(ms.ToArray())

//清空不需要的资源

g.Dispose()

image.Dispose()

}第三步：在page_Load事件中调用CreateImageM(CreateValidate(4))第四步：判断服务器端的验证码是否与用户输入的相同protected void Button1_Click(object sender, EventArgs e)

{

//判断服务器端的验证码是否与用户输入的相同

if (TextBox1.Text == Session["Valid"].ToString())

{

//相同则提示欢迎信息

Response.Write("<script language='javascript'>alert('欢迎光临')</script>")

}

else

{

//不相同则提示错误信息

Response.Write("<script language='javascript'>alert('对不起，验证码错误')</script>")

}

}

在窗体上添加一个PictureBox,代码: Private Sub Picture1_Click() Dim YZM As String Randomize Picture1.Cls Picture1.FontSize = 15 Picture1.FontBold = True YZM = Chr(Int(Rnd * 26) + 65) &Chr(Int(Rnd * 26) + 65) &Chr(Int(Rnd * 26) + 65) &Chr(Int(Rnd * 26) + 65) Picture1.Print YZM '验证码 Picture1.Line (Int(Rnd * 500), Int(Rnd * 500))-(Int(Rnd * 500), Int(Rnd * 500)) '产生干扰 Picture1.Line (Int(Rnd * 500), Int(Rnd * 500))-(Int(Rnd * 500), Int(Rnd * 500)) Picture1.Line (Int(Rnd * 500), Int(Rnd * 500))-(Int(Rnd * 500), Int(Rnd * 500)) Picture1.Line (Int(Rnd * 500), Int(Rnd * 500))-(Int(Rnd * 500), Int(Rnd * 500)) Picture1.Line (Int(Rnd * 500), Int(Rnd * 500))-(Int(Rnd * 500), Int(Rnd * 500)) Picture1.Line (Int(Rnd * 500), Int(Rnd * 500))-(Int(Rnd * 500), Int(Rnd * 500)) End Sub

---