| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4844 人关注过本帖, 1 人收藏
标题:如何用VB编写随机验证码
只看楼主 加入收藏
猪肉
Rank: 1
等 级:新手上路
帖 子:96
专家分:1
注 册:2007-3-8
收藏(1)
 问题点数:0 回复次数:18 
如何用VB编写随机验证码
我想在VB编写一个可以随机生成的如网站注册或登陆时都需要输入成的随机验证码,
验证码可以由26个字母大小写 A TO Z,0 TO 9 构成,验证码生成在一个 text 文本框中,而且每隔30秒就会自动在文本框中随机生成并更改原来的验证码,VB能不能做到啊。



搜索更多相关主题的帖子: 随机 验证 编写 文本 text 
2007-03-08 13:22
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
可以的.

我的msn: myfend@
2007-03-08 13:28
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 

这个想法不错,可以解决自动登陆那些验证码为英文字母或数字的网站,这样不要随机了好,用循环,一般验证码就几位,几秒种就搞定了


雁无留踪之意,水无取影之心
2007-03-08 15:13
猪肉
Rank: 1
等 级:新手上路
帖 子:96
专家分:1
注 册:2007-3-8
收藏
得分:0 

有没有人愿意给出这个随机出验证码的源码,感谢。。。

2007-03-08 23:41
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
收藏
得分:0 
1。构成验证码的字符集放在数组里
2。定义验证码的位数
3。使用一个时间间隔为30秒的timer

全局变量:
dim Size as integer '验证码位数 一般是四位
dim a(36) as string

timer的代码:

dim i as integer,j as integer, VerifyString as string

VerifyString = ""
for i = 1 to Size
Randomize()
j = Int((36 * Rnd()) + 1)
VerifyString = VerifyString + a(j)
next i

TextBox1.Text = VerifyString

2007-03-09 10:04
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 
使用一个时间间隔为30秒的timer
那人都疯了,30微秒吧

雁无留踪之意,水无取影之心
2007-03-09 10:27
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
30秒挺正常的..
你的30微秒..你看都没看到清楚.又换了..你觉得很有意思?..

我的msn: myfend@
2007-03-09 10:29
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 
我以为是去搞自动登陆网站,所以快点好,可能是我理解错了楼主的意思

雁无留踪之意,水无取影之心
2007-03-09 11:02
猪肉
Rank: 1
等 级:新手上路
帖 子:96
专家分:1
注 册:2007-3-8
收藏
得分:0 
老大,不行啊,能不能把源码提供下载。。万分感谢
2007-03-09 14:33
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 
a(36) 你给他赋值没有?没有就赋值

雁无留踪之意,水无取影之心
2007-03-09 15:01
快速回复:如何用VB编写随机验证码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016945 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved