本文目录
- 用VB编个输入密码程序（简单点的）
- vb做个密码输入
- 怎样利用VB编写登录密码程序，
- 想用VB写个密码生成器一样的程序，就是一个按键一个文本框点一下按键就能在文本框里生成我写好的密码
- vb设计密码登录器
- 请问如何用VB编密码输入程序
- 怎么做一个VB密码输入的程序
- 如何用VB制作自动登陆网站自动输入帐号密码
用VB编个输入密码程序（简单点的）
TextBox,Command各一个。——————以下为代码——————ConstPwd="123456"’改成密码PrivatesubCommand1_click()iftext1.text=pwdthenmsgbox"密码正确"elsemsgbox"密码错误"endif——————以上为代码——————
vb做个密码输入
’在Form1窗体上加入控件text1(帐号),text2(密码 passwordchar="*")及command1(确定)，然后复制下面代码即可。 ’这里假设另一个窗体为Form2 ’====代码部分==== Option Explicit Private Sub Command1_Click() If Text2.Text = "123456" Then form2.Show Else MsgBox "密码输入错误！", vbCritical, "提示" End If End Sub
怎样利用VB编写登录密码程序，
用VB制作一个登陆框。如果你想制作个人软件，想设上帐号和密码，对了才可以使用。其实很简单，我就不多说了操作如下:1.打开VB，创建两个text控件，输入帐号和密码用。2.创建一个按钮，命名为登陆。3.在text控件前填个Label控件提示添写帐号和密码然后在按钮中填加以下代码，我简单的解释一下意思。If Text1.Text = "123456" Then’当Text1内容等于123456 然后If Text2.Text = "aaa" Then’当Text2内容等于aaa 然后MsgBox "您成功登陆！", , "欢迎登陆"’这句是满足上面条件的时候提示登陆成功！End IfElseText1.Text = ""Text2.Text = ""MsgBox "密码错误", , "提示"’当Text1和Text2为空的时候提示密码错误。End If在填加一个窗体，为Form2,让Form1帐号和密码正确时显示Form2。运行时候Form2不显示。让1的帐号和密码正确是显示2。很简单，在按钮控件里加代码。好了，在运行一下看看。看到没有出来了。就这么简单，在制作的时候把密码那设置为显示*号就可以了。
想用VB写个密码生成器一样的程序，就是一个按键一个文本框点一下按键就能在文本框里生成我写好的密码
你的问题应该是采用随机数Rnd函数。如果密码位数随机，可采用fix(rnd()*11)+6 {我举例限定6-16位数字}，如果位数固定则不用。然后用Rnd生成密码 fix(rnd()*10^XX) {XX为上式生成的位数}
vb设计密码登录器
Private Sub Cmd_Ok_Click() Dim t As Integer t = t + 1 If t 》= 3 Then End ’登陆三次自动退出 If trim(Txt_username.text) = "a" And trim(Txt_password.text) = "b" Then Form2.Show Elseif trim(Txt_username.text) 《》 "a" and trim(Txt_password.text) = "b" theni = MsgBox("您输入的用户名错误", vbRetryCancel + 16, "错误") If i 《》 4 Then EndelseTxt_username.SelStart = 0Txt_username.SelLength = Len(Txt_username.text)End Ifelseif trim(Txt_username.text) = "a" and trim(Txt_password.text) 《》 "b" theni = MsgBox("您输入的密码错误", vbRetryCancel + 16, "错误") If i 《》 4 Then EndelseTxt_password.SelStart = 0Txt_password.SelLength = Len(Txt_password.text)elsei = MsgBox("您输入的用户名和密码都错误", vbRetryCancel + 16, "错误")If i 《》 4 Then EndelseTxt_username.text=""Txt_password.text=""End IfEnd If End Sub
请问如何用VB编密码输入程序
分类: 电脑/网络 》》 程序设计 》》 其他编程语言 问题描述: 由于网上需输密码的情况越来越多,以及木马等窃取密码的情况时有发生,我想到用VB编一个密码输入程序,在需输入密码等隐私资料时,可以通过这个程序输入,避免因键盘输入而造成密码被盗的现象,但因我初学VB,现有一个问题求助,即如何将该程序的焦点移至网页上的密码框内并输入字符,多谢指教. 解析: 输入总是能够被监视到的，我认为你应该做这样的一个程序： 1、生成一个键盘的界面，要随机排放按键的位置（模拟QQ） 2、一个复制按钮3、一个文本框 4、一个Timer控件 程序执行步骤： 1、启动程序时生成随即键盘 2、用鼠标点击要输入的密码（此时文本框显示密码，要用*号） 3、点击复制按钮，将密码复制，同时启动Timer控件 4、将密码复制到要输入的地方 5、5秒钟后他Timer控件清空复制的内容
怎么做一个VB密码输入的程序
ctr=0const pass="123456"doif ctr=3 thenmsgbox("已经达到认证上限, 认证程式关闭")exit doelsea=inputbox("请输入密码")if a=pass thenmsgbox("认证成功")msgbox("(你可以在这里加一段成功后得到的资讯)")exit doelsectr=ctr+1 ’如果密码出错就增加一次错误认证计数msgbox("认证出错, 请检查密码")end ifend ifloop
如何用VB制作自动登陆网站自动输入帐号密码
Private Declare Function timeGetTime Lib "winmm.dll" () As LongPrivate Sub Form_Load()***隐藏网址***End SubPrivate Function M_Dom_oncontextmenu() As BooleanM_Dom_oncontextmenu = False ’禁用右键End FunctionPrivate Sub Webbrowser1_DownloadComplete()Set M_Dom = WebBrowser1.DocumentEnd SubPrivate Sub Form_Resize()If Me.WindowState 《》 1 ThenWebBrowser1.Left = 10WebBrowser1.Width = Me.Width - 120WebBrowser1.Height = Me.Height - 800End IfEnd SubPrivate Sub Command1_Click()Dim Obj As ObjectSet Obj = WebBrowser1.DocumentObj.All.username.Value = Text1.TextObj.All.password.Value = Text2.TextObj.All.submit.ClickEnd Sub’这个是登录163通行证的代码，你去研究下！不明白Q我
