请问如何用VB编密码输入程序?

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

由于网上需输密码的情况越来越宽让多,以及木马等窃取密码的情况时有发生,我想到用VB编一个密码输入程序,在需输入密码等隐私资料时,可以通过这个程序输入,避免因键盘输入而造成密码被盗的现象,但因我初学VB,现有一个问题求助,即如缓悄何将该程序的焦点移至网页上的密码框内并输入字符,多谢指教.

解析:

输入总是能够被监视到的，我认为你应该做这样的一个程序：

1、生成一个键盘的界面，要随机排放按键的位置（模拟QQ）

2、一个复制按钮

3、一个文本框

4、一个Timer控件

程序执行步骤：

1、启动程序时生成随即键盘

2、用鼠标点击要输入的密码（此时文本框显示密码，要用*号）

3、点击复制按钮，将密码复制，同时启动Timer控件

4、将密码复制到要输入的地方

5、5秒慎哪局钟后他Timer控件清空复制的内容

ctr=0

const pass="123456"

do

if ctr=3 then

msgbox("已经达到认证上限, 认证程式关闭")

exit do

else

a=inputbox("请输入密码")

if a=pass then

msgbox("认做团证成功")

msgbox("(你可以在这里加一段成功后得到的资讯)")

exit do

else

ctr=ctr+1 '如果密码出错就增加一次错亮派误认证纯键橘计数

msgbox("认证出错, 请检查密码")

end if

end if

loop

用VB制作一个登陆框。如果你想制作个人软件，想设上帐号和密码，对了才可以使用。其实很前慧简单，我就不多说了 *** 作如下:

1.打开VB，创建两个text控件，输入帐号和密码用。

2.创建一个按钮，命名为登陆。

3.在text控件前填个Label控件提示添写帐号和密码

然后在按钮中填加以下代码，我简单的解释一下意思。

If Text1.Text = "123456" Then'当Text1内容等于123456 然后

If Text2.Text = "aaa" Then'当Text2内容等于aaa 然后

MsgBox "您成功登陆！", , "欢迎登陆"'这句是满足上面条件的时候提示登陆成功！

End If

Else

Text1.Text = "慧察答"

Text2.Text = ""

MsgBox "密码错误", , "提示"'当Text1和Text2为空的时候提示密码错误。

End If

在填加一个窗体，为Form2,让Form1帐号和密码正确时显示Form2。运行时候

Form2不显示。让1的帐号和密码正确是显示2。很简单，在按钮控件里加代码。好了，在

运行一下看看。看到没有出来了。就这么简单，在制作的时候把密码那设置为显示*号就

可以了。没旅

---