用VB编写“密码校验”程序的设计 VB设计实现登录验证功能的应用程序
Dim NCount As Integer
Private Sub Form_Load()
'初始化控件信息
Caption = "密码校验"
Label1.Caption = "请输入密码:"
Text1.Text = ""
Label2.ForeColor = &HFF&
Label2.Alignment = 2
Label2.FontName = "宋体"
Label2.FontSize = 15.75
Label2.AutoSize = True
Label2.Visible = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) > 6 And KeyAscii <> 8 And KeyAscii <> 13 Then
KeyAscii = 0
End If
If KeyAscii = 13 And Text1.Text = "1234567" Then
Label2.Caption = "欢迎光临!"
Label2.Visible = True
ElseIf KeyAscii = 13 Then
If NCount <> 1 Then
Label2.Visible = True
Label2.Caption = "密码不符，请再输入一遍!"
Text1.Text = ""
NCount = NCount + 1
Else
Label2.Visible = True
Label2.Caption = "非法用户，请推出程序!"
Text1.Text = ""
Text1.Enabled = False
End If
End If
End Sub
你在自己写的方法里
加个
static
关键字。这样就可以直接通过
类名来调用了。也就是像调用系统函数那样，不用new直接通过类名就可以调用了。
vb设计一个检测密码程序~
Private Sub Form_click()
Do
pwd = InputBox("请输入密码:")
If pwd = "123456" Then '默认密码:123456
Print "欢迎您使用本系统!"
counts = 0
Exit Sub
Else
counts = counts + 1
If counts = 3 Then
MsgBox "对不起，您不能使用本系统!"
End
End If
MsgBox "密码错误！请重新输入密码."
End If
Loop
End Sub
添加如下控件
Private Sub Command1_Click()If Text1 = "" Then MsgBox "用户名为空！", 64 Text1.SetFocusElse If Text2 = "" Then MsgBox "密码为空！", 64 Text2.SetFocus Else If Text3 = "" Then MsgBox "附加码为空！", 64 Text3.SetFocus Else If Text1 "test" Then '用户名 MsgBox "用户名错误！", 64 Text = "" Text1.SetFocus Else If Text2 "test" Then '用户名 MsgBox "密码错误！", 64 Text2 = "" Text2.SetFocus Else If Text3 Label4.Caption Then MsgBox "附加码错误！", 64 Label4.Caption = fjm '附加码错误刷新附加码 Text3 = "" Text3.SetFocus Else MsgBox "登录成功！", 64 End If End If End If End If End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Label1.Caption = "用户名："Label2.Caption = "密 码："Label3.Caption = "附加码："Label4.Caption = fjmText1 = ""Text2 = ""Text3 = ""Text2.PasswordChar = "*"Command1.Caption = "提 交"Command2.Caption = "退 出"End SubFunction fjm() As StringRandomizefjm = Int(Rnd(1) * 900) + 100End FunctionPrivate Sub Label4_Click() Label4.Caption = fjmEnd Sub
求高手指点vb中的几个问题
答：我也想有路由器的密码哈,,我已经考虑过了,,但存在一些大的技术瓶颈 A, 路由器的操作系统不是windows也不是什么linux等等的常见系统 如果只是从命令行传数据过去暴破好像不行.B,路由器上面一般都有流量控制,你如果不停的连接连接,可能直接就被封了,C,路由器上面密码校验机制不清楚.你觉得我讲的东西...
高手来vb调用加密的WINRAR,如何把加密WINRAR里面文件调出来
答：首先你要知道密码是多少.例:假设1.rar密码为123,里面含有一个setup.exe.把rar.exe复制到你的VB程序目录下.在窗体上新建一个按钮,输入以下代码 rar e -p123 1.rar setup.exe : rar后空格,跟着e,再空格,跟着-p后面没有空格,紧跟密码,然后空格,输入要解压的RAR文件,空格,再输入要解压的具体...
请大家提供一本合适的vb参考书
答：5) 自己随便设计一个程序, 应用今天的知识四篇(共六篇):大家好, 昨天我休息了一天, 所以今天写第4章:循环结构我们先来看一道题:商场进行每日结算, ...设定密码为常量, 不可变更doa=inputbox("请输入密码")if a=pass thenmsgbox("密码校验成功")exit doend ifloop这个程序会一直不停的问你密码, 知道...
加密锁和加密狗有区别吗 谁能详细介绍一下他们的相关信息
答：二、常用的解密方法 1、反汇编后静态分析： W32Dasm、IDA Pro 2、用调试工具跟踪动态分析：SoftICE、TRW2000 3、针对各种语言的反汇编工具：VB、Delphi、Java等 4、其他监视工具：FileMon、RegMon 等 三、如何提高加密强度 下面，我们以Sentinel SuperPro加密锁为例，详细介绍一下使用如何在编程的过程中...
信息技术的教学反思
答：程序设计教学目标是让学生掌握编程基础知识,培养其分析解决实际问题的能力。根据该目标要求,关于VB程序设计应改变传统教学方法,从学生实际出发,合理设计课堂教学活动。在教学过程中,教师必须遵循学生认知规律,综合运用多种教学方法,激发学生的学习兴趣,才能实现程序设计教学目标。 信息技术教学反思3 本学期我担任小学四年级...
VB 使用ShellExecute 调用RAR进行解压
答：就按照你的 1.rar 举个例子：解压C盘下面的1.rar压缩文件，到C盘根目录 直接Shell "rar e C:\1.rar"如果要解压当前目录下的1.rar(必须是和VB的exe程序在同一目录下)Shell "rar e 1.rar"当当前目录下面有同名的文件要覆盖原有文件解压，添加o+开关就是 Shell "rar e o+ 1.rar"在Text控件...
vb怎么解压rar
答：可以调用WinRar文件夹里自带的RarExt.dll库文件，里面有一些函数，可以完成压缩与解压缩功能，函数的使用方法可以参考相关资料。
怎样用VB发送和接收邮件?
答：StatusTxt = "校验用户密码" 'Server Answer 334 UGFzc3dvcmQ6 Case MAIL_LOGIN m_State = MAIL_FROM tcpMailServer.SendData "MAIL FROM: <" & Trim...简单啦··VB中有相应的东东··LABEL控件是自己随便加的,我写的是LABEL2是网址,LABEL4是邮件这个是直接转到网址和发邮件的我还有份“邮件数据管理程序”...
关于网页代码
答：骗过.入侵者设计出了可以将trojan的校验和调整到原文件的校验和的程序. MD5是被大多数人推荐的,MD5使用的算法目前还没人能骗过. Login后门 在Unix里,...C++ VB 都是编程软件 还有就是原代码:你把鼠标放在一个页面上然后点击鼠标右键 可以看到有一项查看原代码 这个原代码就是此页面的代码 呵呵 具体我也懂...
VB 运行中出现 [Microsoft][ODBC驱动程序管理器]未发现数据源名称并且...
答：首先检查你的ODBC数据源是否设置完成，然后是你的代码中缺少数据源的链接信息 Dim cnn As New ADODB.Connection ’设置到数据源的链接信息 Dim rst As New ADODB.Recordset ‘设置记录源 Dim s As String s = "dsn=（ODBC数据源中的用户数据源名称）;uid=（用户名）;pwd=（密码）"'例如 s...
