Sub JobDone (Job As HttpJob)
ProgressDialogHide
Dim user_id As String ' should be a global var and not only local
If Job.Success = True Then
log("Result from PHP: "&Job.GetString
Select Job.JobName
Case "checklogin"
user_id = Job.GetString
if user_id > 0 then
Msgbox("login successfully with the id " & user_id,"")
end if
End Select
Else
Msgbox("invalid username or password","")
End If
Job.Release
End Sub