谁会用vb6.0做一个带有验证码识别的登陆界面
发布网友
发布时间：2022-04-26 00:40
我来回答
共1个回答
热心网友
时间：2023-08-24 12:15
新建工程，添加一个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
你也可以自己画点其他的东西，增加识别难度
跪求一个VB6.0Z制作管系统登录界面代码,要能使用用户名及密码输入验证...
MsgBox "请输入密码", vbOKOnly, "错误"Exit Sub End If UserName = Trim(Text1.Text)PassWord = Trim(Text2.Text)Int1 = Check_Password(UserName, PassWord)Select Case Int1 Case 0 a = MsgBox("登陆成功", vbOKOnly, "成功")Load Mainfrm Mainfrm.Show Unload Me Case 1 a = MsgBox("...
aippt自动生成工具
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图、条形...
怎样用VB编写一个登陆系统,可以注册账号的那种
1）1）首先需要用数据库软件（如ACCESS软件）建立一个数据库，新建几个表，用以记录帐号密码的表、登录日志表和其他与此有关的所需要的表等。2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。3）然后在FORM1窗体中添加ADO数据控件，右键-ADODC1控件属性页-使用...
在VB6.0上做一个登陆窗口账号密码都为ADMIN要求输错三次自动关闭窗口该...
Private Sub Command1_Click()If Text1.Text = "" Or Text2.Text = "" Then MsgBox "账号或密码不能为空"Else If Text1.Text <> "admin" And Text1.Text <> "ADMIN" Or Text2.Text <> "admin" And Text2.Text <> "ADMIN" Then MsgBox "账号或密码输入错误，请重新输入"i = i ...
【菜鸟提问用】用VB6.0制作登陆网页界面 可以直接登陆邮箱
v 添加2个text，一个command，一个 WebBrowser Dim vDoc, vTag Dim i As Integer Private Sub Command1_Click()Set vDoc = WebBrowser1.Document For i = 0 To vDoc.All.length - 1 If UCase(vDoc.All(i).tagName) = "INPUT" Then Set vTag = vDoc.All(i)If vTag.Type = "tex...
用vb6.0来编写一个用户注册界面的代码,该如何写啊?要完整版的,麻烦告诉...
首先合法性验证 没问题就往你的数据库中的表插入数据不就行了
vb.net如何使用HttpWebRequest模拟登陆带验证码的网站
一般登陆网站时候首先要打开一个网页对吧？那首先要 GET 一个网址。GetResponse后，得到的流就是这个页面的源码。源码里肯定会包含这个验证码的提问段（可能是个图片的网址，也可能是个 5+5=？ 之类的字符串之类的），可以分析一下这段代码出现的位置，让程序自动寻找。找到这个图片的网址，把这个图片...
想用VB做一个登陆界面如何和access相连接?
1、首先在部件-控件里找到MicrosoftADODataControl6.0，打勾，然后在窗体上添加Adodc1。2.添加两个文本输入框text1,text2，分别用来接收用户输入用户名和密码。3、在Adodc1控件的属性窗口中单击Connectionstring右侧的…按钮，打开ADO的属性页，选择“使用连接字符串”，单击“生成”按钮，打开数据链接属性...
我有一个网页的登陆界面代码,用VB6.0如何实现在用户名处输入“123...
vTag.Value = "填写内容"'首先在webbrowser1中打开指定网页'成功返回1，不成功返回-1Private Function ClickCmd() On Error GoTo Error Dim vDoc, vTag Dim i As Integer Set vDoc = WebBrowser1.Document For i = 0 To vDoc.All.Length - 1 '检测所有标签 '*** If v...
怎么用vb6.0版本做一个帐号一wmm密码123 登录 密码要显示为***的登录...
窗体控件属性：窗体截图：代码：Public LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() LoginSucceeded = False Me.HideEnd SubPrivate Sub cmdOK_Click() If txtPassword = "123" Then '检查密码 MsgBox "密码正确!", , "登录" '正确 LoginSucceeded = True Unload Me ...
VB6.0界面设计
VB做界面最方便。全部是用图片堆起来的，图片框就是一个筐，什么都可以向里装。标题栏也是图片，默认窗体的标题栏不让它显示就可以了。按钮也是图片仿造的，按钮显示的图片，可以根据鼠标事件随时更换
