谁会用vb6.0做一个带有验证码识别的登陆界面
建一个form，三个写有用户名、密码、验证码的label，三个text作输入框，一个图片域和一个确定按钮。
双击按钮，在弹开窗口里写验证的代码
新建工程，添加一个picturebox，一个textbox，两个command button
Dim vCode As String
Private Sub Command1_Click()
drawvc
End Sub
Private Sub drawvc() '显示校验码
Dim i, vc, px, py As Long
Dim r, g, b As Byte
Randomize '初始化随机种子
'生成随机校验码
vc = CLng(8999 * Rnd + 1000)
vCode = vc
'显示校验码
Picture1.Cls
Picture1.Print vc
'添加噪点（防止自动图像识别）
For i = 0 To 2000 '画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)
Next
End Sub
Private Sub Command2_Click()
If Text1.Text = vCode Then
MsgBox ("正确")
Else
MsgBox ("错误")
drawvc
End If
End Sub
Private Sub Form_Load()
Picture1.FontSize = 12
Picture1.FontBold = True
Picture1.AutoRedraw = True
drawvc
End Sub
Dim vCode As String
Private Sub Command1_Click()
drawvc
End Sub
Private Sub drawvc() '显示校验码
Dim i, vc, px, py As Long
Dim r, g, b As Byte
Randomize '初始化随机种子
'生成随机校验码
vc = CLng(8999 * Rnd + 1000)
vCode = vc
'显示校验码
Picture1.Cls
Picture1.Print vc
'添加噪点（防止自动图像识别）
For i = 0 To 2000 '画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)
Next
End Sub
Private Sub Command2_Click()
If Text1.Text = vCode Then
MsgBox ("正确")
Else
MsgBox ("错误")
drawvc
End If
End Sub
Private Sub Form_Load()
Picture1.FontSize = 12
Picture1.FontBold = True
Picture1.AutoRedraw = True
drawvc
End Sub
你也可以自己画点其他的东西，增加识别难度
如何用VB 6.0编辑这个程序,请在程序旁边注明这步的作用,我是初学者...
将下面函数复制到VB6中 不过看问题描述,输入的N并没有参与计算,只进行判断,每次输出的S应该都相同=1 sub calc()dim ans as string dim s as integer dim i as integer ans=prompt("请输入一个正整数")' 输入一个正整数 if isnumeric(ans) then '判断输入的数是不是正整数 if val(ans)<=...
用VB 6.0制作下列程序
Me.Cls Call gcd(10)End Sub Function gcd(ByVal sl As Long)Dim j As Long, n As Long, nn(10) As Long, k As Long, mm As Long mm = 200 For j = 1 To sl Randomize nn(j) = 20 + Rnd() * 180 If mm >= nn(j) Then mm = nn(j)End If Print j & vbTab & nn...
用VB6.0设计一个小学数学出题系统
private sub_command1.click()command1.caption="OK"text3.text=""form1.caption="小学数学出题系统"dim num1 as integer dim num2 as integer dim flag as single dim sign as string dim result as single flag=rnd()select case flag case 0 to 0.25 sign ="+"case 0.25 to 0.5 si...
我想用vb6.0做一个类似于QQ密码输入框那样的,用这个●符号代替,但是在...
呃，好像不行吧。我以前试过，VB6是不支持PassWordChar属性输入●的，只好用*了。不过VB2008可以输入●。
谁能帮我做一份VB6.0作业,内容为小游戏,最好是自己写的,代码要稍微多一...
很简单，做一个打地鼠的游戏，放9个按钮，然后int(RND*10)select case判断，然后command.enable=1，然后当点击command.enable=0，需要有个Timer控件，用来设定打地鼠的延迟，如果你为了更好一下，你可以收集一些图片的素材，然后给按钮设置
VB6.0麻烦看一下,怎么在这个猜数字游戏里做一个计
Private Sub Command2_Click()score = 0 limit = Val(Text2.Text)Randomize magic = Int(Rnd() * 101)Do While (magic Mod 2) = 0 '修改部分 DoEvents magic = Int(Rnd() * 101)Loop Label7.Caption = "计时开始了!" + Chr(10) + Chr(13) + "猜猜看吧！"Command1.Enabled = ...
用VB6.0设计简单程序
VB6.0测试通过 '利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出。'1．将随机产生的60个整数按每行10个数输出到窗体或文本框中。'2．将排好序的偶数和奇数分别输出到两个文本框中。Dim RndArray(6, 10) As Integer Di...
vb6.0现在想要实现一个功能,就是用MSFlexGrid控件显示vb中的数据(记...
回答之前，先建议你去学习.Net，对初学者刚开始学起，VB6与VS2008其实是一样的。VB6虽然仍然可用，但没办法再创造辉煌了。以下看是不是你希望的代码，对于你的信息显示，用文本框会简单很多。在界面拉三个按钮，一个文本框，文本框的MultiLine属性设为True Option Explicit '界面装载代码，这些正常情况...
、在VB6.0中,编制一个应用程序的过程主要是
2、属性、事件、方法 26、val()28、dim a(1 to 10) as integer 29、dim a(0 to 5) as string ...
vb6.0,编了个程序,用command$接受命令行参数,以便关联的文件被双击时...
当文件路径中含有长文件名（包括文件夹名和文件名）时，就会带有双引号，否则的话，如果里面含有空格，会被误以为是多个文件。如果文件路径中的文件夹名和文件名都是8.3的短文件名结构，则不会出现双引号。
仲长冠畅邦： 建一个form,三个写有用户名、密码、验证码的label,三个text作输入框,一个图片域和一个确定按钮.双击按钮,在弹开窗口里写验证的代码
永春县18934542292： 谁回用vb6.0来编一个QQ盗密器 - ？
仲长冠畅邦： 盗QQ主要用hook 找到登录界面的句柄,获得号码和密码的句柄,纪录号码和密码. 我有一个拦截键盘的hook的代码,你参考下吧~! —————————————————————————————— '以下在.Bas Option Explicit Declare ...
永春县18934542292： 如何用VB6.0设计一个密码器？
仲长冠畅邦： 将VB程序做成软件启动的标志,把软件启动的标志改成不容易识别的图标; 这样就可以用VB来验证和改密码;之后调用软件启动的标志就可以了 ``````````````````````````````````````````````````````````` 你用一个txt来保存修改的密码或读取核对密码;每次修改了的密码再写入文本就可以了~
永春县18934542292： 怎么用VB6.0设计密保卡？
仲长冠畅邦： 放一个 Textbox 和 CommandButtun再放代码 代码要你自己加工 Private Sub Command1_Click() Select Case Text1.Text Case ＂A1＂ msgbox ＂61＂ Case ＂A2＂ MsgBox ＂85＂Case ＂A3＂ MsgBox ＂68＂............ End Select End Sub
永春县18934542292： 用vb6.0做一个小游戏 - ？
仲长冠畅邦： 你说的贪吃蛇、推箱子都不简单,涉及到很多方面的设计,要花不少时间的.这里估计很少有人能帮得上你.祝你好运.帮你做了一个简单的猜数游戏,代码如下: '只需给窗体添加一个Command1的控件,单击它即可执行,允许多次执行 ...
永春县18934542292： vb6.0想做个利用硬盘序列号实现软件注册的程序 - ？
仲长冠畅邦： 给你个思路吧,你可以将这个用MD5加密,然后提前MD5特定位置的拼凑成注册码,第一这样可以保证只有你知道算法,第二因为MD5的不可逆,保证了安全性,你也可以加入其他的算法,来配合这个
永春县18934542292： 如何利用VB6.0编写一个用户登录窗口 - ？
仲长冠畅邦： 进入VB6.0软件,双击“标准EXE”显示的页面如图.预设正确的用户名和密码为aaa和abc123.先从控件栏选择标签控件在form1窗体的相应位置画两个大小适合的标签,再从控件栏选择文本框控件在form1窗体的相应位置画两个大小适合的文...
永春县18934542292： 用VB6.0编辑一个密码程序,如果密码真确,打开计算机中的某个文件 - ？
仲长冠畅邦： Private Sub Command1_Click() a = InputBox(＂请输入密码＂, ＂请输入＂) If a = ＂123＂ Then Shell ＂Notepad.exe＂, vbNormalFocus End Sub
永春县18934542292： 请高手用VB6.0给设计一个能直接打开已知密码的word文档的程序! 要求点击按钮就能打已知密码的word文档. - ？
仲长冠畅邦： dim ap as new word.application ap.documents.Open(FileName:=＂文件路径和名称＂, passworddocument:=＂密码＂) 注意括号里面的冒号等于 或者写 dim ap as new word.application ap.documents.Open(＂文件路径和名称＂,,,,＂密码＂) 写4个西文半角逗号就可以了 另外工程必须引用word的Object lib
永春县18934542292： 请问你们谁有一个比较有意思的用VB6.0编辑的程序?我想参考一下,麻烦发我邮箱! - ？
仲长冠畅邦： 编写一个简单动画程序,实现以下功能1) 红色小球自动从图片框的左侧移动到右侧,反复运行.2) 拖动滚动条滑块可以调节小球的运行速度.3)...
