Dim JobChgPwd As HttpJob
JobChgPwd.Initialize("JobChgPwd", Me)
JobChgPwd.PostString(Starter.URILink & "/api/customer/UpdatePassword", "UserLoginID=" & Starter.kvs2.GetSimple("CurrUserLoginID") & "&" & "NewPassword=" & txtConfirmPassword.Text.trim)
JobChgPwd.GetRequest.SetHeader("Authorization","Bearer " & Starter.kvs2.GetSimple("CurrUserTokenAccess"))
JobChgPwd.GetRequest.SetContentType("application/json")
Wait For (JobChgPwd) JobDone(JobChgPwd As HttpJob)
If JobChgPwd.Success Then
Log(JobChgPwd.GetString)
Dim jNDparser As JSONParser
jNDparser.Initialize(JobChgPwd.GetString)
Dim root As Map = jNDparser.NextObject
Dim result As String = root.Get("result")
Dim data As String = root.Get("data")
Dim resultset As List = root.Get("resultset")
If resultset.IsInitialized=True Then
Msgbox(data,"Change Password")
End If
End If
JobChgPwd.Release