问大家一个问题。

Question

我想做一个自动登录的软件。
也就是，比如我们每次登录，qq，联众等，都需要输入用户名和密码等。我想学习做一个自动登录的，请问那里有这方面的参考代码，或者资料，谢谢。

Answer 1

用Access作为数据库
（需要建立一个test.mdb，一个数据表：user，两个字段：Uname(文本类型),Passwd(文本类型)）
一个窗体，上面放两个TextBox(Text1,Text2)，一个CommandButton(Command1)'引用ADO("工程"/"引用"/Microsoft ActiveX Data Object 2.X Library)
Private Sub Command1_Click() '登陆验证
    On Error GoTo Err
    If Text1.Text = "" Then
        MsgBox "请输入操作员！", vbInformation, "提示"
        Exit Sub
    End If
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    '连接C:\test.mdb数据库
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Persist Security Info=False"    
    cn.Open
    rs.CursorLocation = adUseClient    Dim strName As String, strPWD As String
    strName = UCase(Trim(Text1.Text))
    strPWD = UCase(Trim(Text2.Text))    rs.Open "select * from [user] where  UCase(Uname)='" & strName & "'", cn, 1, 1
    
    If rs.EOF Then
        MsgBox "该用户尚未注册！", vbOKCancel, "提示"
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
        Exit Sub
    Else
        If strPWD <> Trim(rs!Passwd) Then
        MsgBox "密码不正确，请重输！！！", vbQuestion, "提示"
        Text2.Text = ""
        Text2.SetFocus
        Exit Sub
    End If
    MsgBox "通过了验证！"
    Exit Sub
Err:
    MsgBox Err.Description
End Sub