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

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

问题描述:

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

解析:

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

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

2、一个复制按钮

3、一个文本框

4、一个Timer控件

程序执行步骤：

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

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

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

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

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

'2个窗体(form1,form2) 2个textbox(text1,text2) 1个commandbutton (command1)

'text1 为账号框,text2为密码框,command1为登录按钮

Dim cCount As Long

Private Sub Command1_Click()

If LCase(Text1.Text) = "abc" And Text2.Text = "123" Then'账号abc(不区分大小写) ,密码123

cCount = 1

Form2.Show

'Unload Me

Else

If cCount = 3 Then

MsgBox "密码不正确且密码3次错误"

Unload Me

Else

MsgBox "密码不正确"

cCount = cCount + 1

End If

End If

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text2.PasswordChar = "*"

cCount = 1

End Sub

---