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

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

问题描述:

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

解析:

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

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

2、一个复制按钮

3、一个文本框

4、一个Timer控件

程序执行步骤：

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

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

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

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

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

这个要用数据库Private db As ADODB.Connection

Private rs As ADODB.RecordsetPrivate Sub cmdCancel_Click()

Unload frmlogin

End SubPrivate Sub cmdOK_Click()

Dim i As Integer

For i = 1 To rs.RecordCount

rs.AbsolutePosition = i

If Trim(rs("用户名")) = txtUserName.Text And Trim(rs("密码")) = txtPassword.Text And Trim(rs("权限")) = cmbUserType.Text Then

Select Case Trim(rs("权限"))

Case "管理员"

toper.Show

Unload frmlogin

Exit For

Case "教师"

teacher.Show

Unload frmlogin

Exit For

Case "学生"

student.Show

Unload frmlogin

Exit For

End Select

Else

If i = rs.RecordCount Then

MsgBox "错了，请重试!", , "登陆"

End If

End If

Next

End SubPrivate Sub cmdReset_Click()

txtUserName.Text = ""

txtPassword.Text = ""

cmbUserType.Text = ""

End SubPrivate Sub Form_Load()

Set db = New ADODB.Connection

'connection.open [provider,data source]

'provider：数据库驱动引擎，data source 数据库路径及库名

db.Open "provider= microsoft.jet.oledb.3.51data source=" &App.Path &"\ems.mdb"

Set rs = New ADODB.Recordset

rs.Open "login", db, adOpenKeyset, adLockOptimisticEnd Sub

楼上说的是数据库登陆。

我们用简单的就能实现

Private

Sub

Command1_Click()

If

Text1.Text

=

"624475210"

Then

'当输入的值等于624475210提示成功

'如果要执行程序的话就用shell

"c:\1.exe"

MsgBox

"登陆成功！",

vbInformation,

"信息"

Else

'否则提示错误

MsgBox

"错误密码！",

vbCritical,

"信息"

End

If

'---------------------------

'用到的控件text

1个，command

1个

'---------------------------

'

http://wwww.hbats.cn/bbs

End

Sub

---