用VB做/多个用户名密码登录程序

帮忙做个一个很简单的VB用户名密码登陆程序。内有详细...~

Private Sub Command1_Click()
If Text1.Text = "abc" And Text2.Text = "123" Then '自己改姓名和学号
MsgBox "欢迎你"
Else
MsgBox "非法用户"
End If
End Sub


Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub


Private Sub Form_Load()
Label1.Caption = "&User"
Label2.Caption = "&Password"
Command1.Caption = "确定[&E]"
Command2.Caption = "取消[&S]"
Text1.Text = ""
Text2.Text = ""
End Sub

这个不能一概而论，得具体的游戏具体分析。一般windows程序都有句柄。
如果有句柄就好办了。
微软有API函数，sendmessage，和postmessage。
这两个API函数都可以发送模拟键盘信息，可以模拟发送到输入框里面。
具体的还有好多办法，你可以百度一下，模拟键盘事件。等等会有好多结果的。慢慢学。
当然这些的前提条件是得获取到句柄，游戏游戏界面根本就没有句柄。那就得想别的办法了。
比如flash里面的一些控件，句柄我就没有研究透。一直处于烦恼中。
希望对你有帮助。

这样更简洁清楚一些：

Private Sub cmdOK_Click()
If txtUserName.Text = "vb01" And txtPassword.Text = "123" Or _
txtUserName.Text = "vb02" And txtPassword.Text = "123" Then
t1 = MsgBox("登陆成功", , "系统提示")
frmLogin.Hide
Form1.Show
Else
t2 = MsgBox("用户名或密码不对", , "系统提示")
End If
End Sub

2次判断当然出现2次提示。改成顺序判断。如下方式：

Private Sub cmdOK_Click()
If txtUserName.Text = "vb01" And txtPassword.Text = "123" Then
t1 = MsgBox("vb01登陆成功", , "系统提示")
frmLogin.Hide
Form1.Show
ElseIf txtUserName.Text ="vb02" and txtPassword.Text = "123" Then
t2 = MsgBox("vb02登陆成功", , "系统提示")
frmLogin.Hide
Form2.Show
Else
t2 = MsgBox("用户名或密码不对", , "系统提示")
End If
End Sub

---

红山区13628347450： 用VB做/多个用户名密码登录程序 - ？
方黄注射： 2次判断当然出现2次提示.改成顺序判断.如下方式:Private Sub cmdOK_Click() If txtUserName.Text = ＂vb01＂ And txtPassword.Text = ＂123＂ Then t1 = MsgBox(＂vb01登陆成功＂, , ＂系统提示＂) frmLogin.Hide Form1.Show ElseIf ...

红山区13628347450： VB 制作输入不同的用户名密码,打开不同的网页 - ？
方黄注射： Private Sub Command1_Click() If Text1.Text = ＂1＂ And Text2.Text = ＂1＂ Then Shell ＂explorer http://www.baidu.com＂ ElseIf Text1.Text = ＂2＂ And Text2.Text = ＂2＂ Then Shell ＂explorer http://www.qq.com＂ End If End Sub 还可以继续添加Elseif

红山区13628347450： 怎么用VB设计一个登陆程序,能实现“用户名和密码从文件中读取”,简单解释一下？
方黄注射： 你这是要代码?还是怎的,建一个窗体,弄俩文本框,一个账户一个密码,然后在文本框做判断,读取文件,先从用户名判断 不对则提示错误,完后累计次数,累加一下,账户通过读文本密码,密码错误的话继续累计.累计3次直接退出.Unload me

红山区13628347450： 如何用VB制作自动登陆网站自动输入帐号密码 - ？
方黄注射： Private Declare Function timeGetTime Lib ＂winmm.dll＂ () As Long Private Sub Form_Load() WebBrowser1.Navigate ＂ http://reg4.163.com/CheckUser.jsp＂ End SubPrivate Function M_Dom_oncontextmenu() As Boolean M_Dom_...

红山区13628347450： vb用户登录实例中数据库里有很多用户名和相对应的密码如何编写代码可以一一对应登录 - ？
方黄注射： Public conn As New ADODB.Connection Public rs1 As New ADODB.Recordset Private Sub Command1_Click() cnstr = ＂Provider=SQLOLEDB;Data Source=数据库服务器名;DATABASE=数据库;UID=数据库用户名;pwd=密码＂ conn.Open...

红山区13628347450： vb多用户登录代码？
方黄注射： 你的rs.movefirst之后.怎么没rs.movenext 了..... 你这样只会读取一条记录....要添加一个循环... rs.movefirst for 或 do 或 while...if (...) thenrs.movenext

红山区13628347450： vb功能代码:多个身份认证,类似QQ登陆界面,无需联网登陆,帮忙给些具体代码谢谢 - ？
方黄注射： 本地身份验证啊,做程序的登陆界面?方法很多啊1. 对用户名,密码自己编写加密算法,生成固定长度字串写入系统注册表2. 对用户名,密码加密,生成固定长度字符串写入某隐秘的INI文件中.3. 直接写入本地的ACC数据库中.具体代码挺长...

红山区13628347450： vb代码;登录窗口输入用户名和密码 - ？
方黄注射： 设Command1是登陆按钮,Text1是用户名框,Text2是密码框,代码如下. ------------------------------- Private Sub Command1_Click() If Not (Text1.Text = 改为用户名 And Text2.Text = 改为密码) Then MsgBox ＂输入错误＂ Text1.Text = ＂＂ Text2.Text = ＂＂ End If End Sub

红山区13628347450： 求一个用vb编写账号密码验证程序的代码!急.谢谢？
方黄注射： 单击Command1后开始运行.(注意大写ABC不等于小写abc)代码如下. ---------------------------- Private Sub Command1_Click() a = InputBox(＂账号＂) If a = ＂ABC＂ Then pass: If t = 3 Then End Else p = InputBox(＂密码＂) If p = ＂123＂ Then '这里写登陆系统的代码 Else t = t + 1 GoTo pass End If End If Else End End If End Sub

红山区13628347450： 用VB写一个登录界面,密码和用户名都储存在txt文档中 - ？
方黄注射： '你所得太简略了,我给你一种情况的方法dim Na '用户名 dim Pa '密码 '假设储存的时候: open “” for output as #out write #out , na , pa close #out '那么登陆的时候: open ＂＂ for input as #in input #1,Na , Pa close #in 'open 后面跟的是文件路径