怎么用VB编一个软件可以设置用户密码？

有没有办法可以用两个Textbox和两个按钮编译如下程序：
第一个文本框输入想要设置密码的用户；第二个则输入想要设置的用户的密码。按第一个按钮可以设置密码，有错误（如：用户不正确，密码无效）能提醒。第二个按钮可以清空指定用户的密码。请问这怎么用VB6.0编译出来？多谢帮忙。
设置Windows用户密码。
注册表...好像是可以修改来实现的。
VB就行，不一定是6.0，Script也可以。

通常，这种功能的实现，需要有文件做支撑，在文件里存放：注册的用户名和密码信息
1，每当有用户登录，输入完用户名和密码，单击[登录]按钮，就打开文件，找寻“用户名和密码”如果找到，就允许登录，表示登录成功，如果找不到，就提示“用户名和密码”不正确或不存在。
2，每当有新用户注册登录，输入完用户名和密码，单击[注册]按钮，就打开文件，找寻“用户名和密码”如果找到，就提示“该用户名”已经有人注册，如果找不到，就把该新的“用户名和密码”保存到文件里，并提示注册成功。
一般，文件可以使用两种方法：
1，文本文件或二进制文件。
2，使用数据库文件。

你的意思是不是设置操作系统的用户密码啊？

这是我写的 下面是控件和代码

private sub command1_click() dim str as string dim tem as string if text1 = "" then a = inputbox("请输入一段数字", "密码设置", b) open "c:\documents and settings\administrator\" & "\" & "jame.txt" for append as 1 print #1, a close #1 end if if a <> "" then open "c:\documents and settings\administrator\" & "\" & "jame.txt" for input as #1   do until eof(1)     line input #1, tem     str = trim(str & vbcrlf & tem)     loop     close     text1.text = ltrim(str)     end if end sub private sub command2_click() dim n as long dim a as long if dir("c:\documents and settings\administrator\" & "\" & "jame.txt") = "" then msgbox "请先设置密码", 0, "提示：" else a = inputbox("请输入原始密码", "密码验证", b) if a = text1 then kill "c:\documents and settings\administrator\" & "\" & "jame.txt" a = inputbox("请输入要修改的密码", "密码修改", 123456) open "c:\documents and settings\administrator\" & "\" & "jame.txt" for append as #1 n = inputbox("请再次输入要修改的密码：", "密码修改", a) print #1, n  close  else  msgbox "原始密码错误"  end if  end if end sub private sub form_load() timer1.interval = 100 text1.visible = false end sub private sub timer1_timer() dim str as string dim tem as string if dir("c:\documents and settings\administrator\" & "\" & "jame.txt") <> "" then open "c:\documents and settings\administrator\" & "\" & "jame.txt" for input as #1   do until eof(1)     line input #1, tem     str = trim(str & vbcrlf & tem)     loop     close     text1.text = ltrim(str)     else     text1 = ""     end if end sub

我总算看明白了，你是要重设变更用户密码是吧？ 首先你要验证是否有用户名，再更新查询密码不就行了。代码我贴给你，在第一个按钮事件中加代码：(我引用ADO控件，拖一个到窗体上隐藏属性) Private Sub Command1_Click() Adodc1.ConnctionString="Driver={SQL Server};Server=服务器IP;UID=用户名;PWD=密码;DataBase=数据库名" Adodc1.RecordSource="Select * From 用户表 Where 用户名='"+Trim(Text1.Text)+"'" Adodc1.Refresh If Adodc1.RecordSet.EOF Then MsgBox "此用户不存在！请检查用户或网络连接",vbOkOnly,"系统消息" Else Adodc1.RecordSet.Fields("密码")=Trim(Text2.Text) Adodc1.RecordSet.UpDate Adodc1.RecordSet.MoveNext MsgBox "操作已成功",vbOkOnly,"系统消息" Text1.Text="" Text2.Text="" Text1.SetFocus End Sub 在另一个按钮里写代码： Private Sub Command2_Click() Adodc1.ConnctionString="Driver={SQL Server};Server=服务器IP;UID=用户名;PWD=密码;DataBase=数据库名" Adodc1.RecordSource="Select * From 用户表 Where 用户名='"+Trim(Text1.Text)+"'" Adodc1.Refresh If Adodc1.RecordSet.EOF Then MsgBox "此用户不存在！请检查用户或网络连接",vbOkOnly,"系统消息" Else Adodc1.RecordSet.Fields("密码")="" Adodc1.RecordSet.UpDate Adodc1.RecordSet.MoveNext MsgBox "操作已成功",vbOkOnly,"系统消息" Text1.Text="" Text2.Text="" Text1.SetFocus End Sub 这样不就行了，还有一种更简单的办法是，直接用sql语句更新查询记录

设置Windows用户密码，这个是不可能用VB能开发的，任何语言也开发不了，因为微软把这一块列为机密，不然随便一个人都能破了密码，微软吃空气啊。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息