Try
Dim Params As String
Dim response As String=""
Dim jobClients As HttpJob
Params="Ticket=" & Main.Ticket & "&RegKey=" & Main.RegKey & "&whattodo=checkversion"
jobClients.Initialize("", Me)
jobClients.PostString(modFun.Url,Params)
Wait For(jobClients) JobDone(j As HttpJob)
If J.Success=False Then
ProgressDialogHide
MsgboxAsync(modFun.NoConnection(Main.SQL1),"HCMS")
Main.TestRet=True
Else
response =J.GetString
str_response=response
Main.TestRet=ApplyResponse(response)
If IsError=True Then
MsgboxAsync(MsgStr,"HCMS")
Wait For msgbox_result(MsgRes As Int)
End If
Log("CheckVersionOnServer " & Main.TestRet)
End If
J.release
CallSubDelayed(Me,"CheckVersionOnServe_Complete")
Catch
Log("CheckVersionOnServe " & LastException.Message)
modFun.ShowError("clsCheckVersion_CheckVersionOnServe " & LastException.Message)
End Try
End Sub