'*****B4A Version 10.0 ~ 11.0 No Errors , Only version 11.5 error (Same OkHttpUtils2 Version 3.00)*****
Dim StrMyHTTPS As String
StrMyHTTPS = "https://www.~~/~~?access_token=" & StrToken & user_screen_name = " & StrID & " & user_password = " & StrPassSHA256"
Dim HttpMyJob As HttpJob
HttpMyJob.Initialize("MyLogin", Me)
HttpMyJob.PostString(StrMyHTTPS, "")
HttpMyJob.GetRequest.Timeout = 10000
Wait for (HttpMyJob) JobDone(MyResp As HttpJob)
If MyResp.Success Then
Msgbox("OK","") '*****B4A Version 10.0 ~ 11.0 No Errors , Only version 11.5 error (Same OkHttpUtils2 Version 3.00)*****
HttpMyJob.Release
Else
Dim StrMyError As String=MyResp.ErrorMessage
HttpMyJob.Release
Msgbox(StrMyError,"Error") '*****B4A Version 11.5 Error (Version 10.0 ~ 11.0 No Errors)*****
'Error Message : javax.net.ssl.SSLHandShakeException Handshake failed
End If
Dim StrMyHTTPS As String
StrMyHTTPS = "https://www.~~/~~?access_token=" & StrToken & user_screen_name = " & StrID & " & user_password = " & StrPassSHA256"
Dim HttpMyJob As HttpJob
HttpMyJob.Initialize("MyLogin", Me)
HttpMyJob.PostString(StrMyHTTPS, "")
HttpMyJob.GetRequest.Timeout = 10000
Wait for (HttpMyJob) JobDone(MyResp As HttpJob)
If MyResp.Success Then
Msgbox("OK","") '*****B4A Version 10.0 ~ 11.0 No Errors , Only version 11.5 error (Same OkHttpUtils2 Version 3.00)*****
HttpMyJob.Release
Else
Dim StrMyError As String=MyResp.ErrorMessage
HttpMyJob.Release
Msgbox(StrMyError,"Error") '*****B4A Version 11.5 Error (Version 10.0 ~ 11.0 No Errors)*****
'Error Message : javax.net.ssl.SSLHandShakeException Handshake failed
End If