如何用VB修改密码？ 我用VB6.0做了一个登陆页和一个密码更换的界面。

如何用VB修改密码？
我用VB6.0做了一个登陆页和一个密码更换的界面。密码更换的界面是 一个 原密码 一个新密码 还有一个保存 。
要输哪些代码才能更密码？
要完整的代码。

Function LoadPassWord() As String
'我不知道你的密码怎么读取的 你自己写过程
End Function
Sub SavePassWord(NewPassWorld As String)
'我不知道你的密码怎么编写的 你自己写过程
End Sub
然后再确定更改的那个Button的Click事件中 加入一下代码：
If 原密码框(我不知道你的密码框Name).Text=LoadPassFunction() Then SavePassWord(新密码框.Text)

''用一个原来的现有函数改造的。 ''如果有这方面的基础的话应该很快上手 '本函数可以实现点击网页中的某个链接，该链接有一个唯一的标记用以区分 '如果有多个链接需要点击，可以设为一类重复执行 '同样适用于网页中的按钮等。 '变通一下之后可以输入内容，实现自动填写表单的功能。 '填写表单采用：vtag.value = "填写内容" '首先在webbrowser1中打开指定网页 '成功返回1，不成功返回-1 private function clickcmd()   on error goto error   dim vdoc, vtag   dim i     as integer   set vdoc = webbrowser1.document   for i = 0 to vdoc.all.length - 1                 '检测所有标签  '***     if vdoc.all(i).tagname = "input" and vdoc.all(i).id = "un" then         vdoc.all(i)..value="123"'填写用户名     end if if vdoc.all(i).tagname = "input" and vdoc.all(i).id = "pwd" then         vdoc.all(i)..value="456"'填写密码     end if   next i clickcmd=1 exit function error:   clickcmd= -1 end function

密码等数据 是用数据库作为存储 还是文本文件