If e.User IsNot Nothing Then
e.Success = True '允许登录
For Each u As UserInfo In Users
If u.Name <> e.User.Name Then
If u.Group > "" Then
e.Buddies.Add(u.Group & "." & u.Name)
Else
e.Buddies.Add(u.Name)
End If
End If
Next
End If
Dim dr As DataRow = DataTables("Users").Find("Name = '" & user.name & "'")
If dr Is Nothing OrElse dr("Password") <> e.OldPassword Then
e.ReturnMessage = "原密码不符!"
Else
dr("Password") = e.NewPassword
dr.Save()
e.ReturnMessage = "OK" '返回约定的字符,通知客户端,密码修改成功
End If
Dim OldPassword As String = e.Form.Controls("txtOld").Text
Dim NewPassword1 As String = e.Form.Controls("txtNew1").Text
Dim NewPassword2 As String = e.Form.Controls("txtNew2").Text
If OldPassword = "" Then
Popmessage("请输入原密码!", "提示", 0, 5)
Return
End If
If NewPassword1 <> NewPassword2 Then
Popmessage("新密码输入不一致!", "提示", 0, 5)
Return
End If
Dim msg As String = QQClient.ChangePassword(OldPassword, NewPassword1) '向服务端提交更改密码的申请
If msg = "OK" Then
Popmessage("恭喜,密码修改成功!", "提示", 0, 5)
e.Form.close()
ElseIf msg > "" Then
Popmessage("密码修改失败,原因: " & vbcrlf & msg, "提示", 0, 5)
Else
Popmessage("未获得服务器回应,无法判断密码是否修改成功!", "提示", 0, 5)
End If
总是提示原密码不符，老师帮忙看一下
加好友 
发短信
Post By：2018/1/19 14:31:00 [只看该作者]
