Sub Save(Item As SinglePassword)
Dim Data() As Byte
Dim ser As B4XSerializator
Data = ser.ConvertObjectToBytes(Item)
Dim Job As HttpJob
Job.Initialize("",Me)
Job.Username = Main.Username
Job.Password = Main.Password
Job.PostBytes("https://" & Main.Server & "/request/save",Data) '?cmd=save
Wait For (Job) JobDone(Job As HttpJob)
If Job.Success Then
Else
xui.MsgboxAsync("Save Failed","Error")
End If
Job.Release
End Sub