private Sub hc_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
#if debug
Log("TaskID-"&TaskId)
#end if
' File.WriteString(File.DirApp , "login.html",Response.ContentEncoding)
If TaskId = 1 Then
Response.GetAsynchronously("koniec", File.OpenOutput(folder, "login.html", False),True,TaskId)
#if debug
Log("Coocie OK")
#end if
' Response.Release
End If
End Sub
private Sub koniec_StreamFinish (Success As Boolean, TaskId As Int)
#if debug
Log(Success &" "&TaskId)
#end if
If TaskId = 1 Then
GetAccount
End If
End Sub