'Ctrl+B and add HU2_PUBLIC as a build symbol
Private Sub SetOkHttpProtocolToHttp1_1
Dim jo As JavaObject = HttpUtils2Service.hc
Dim builder As JavaObject = jo.RunMethod("sharedInit", Array("hc"))
Dim protocol As JavaObject
protocol.InitializeStatic("okhttp3.Protocol")
Dim protocols As List = B4XCollections.CreateList(Array(protocol.RunMethod("valueOf", Array("HTTP_1_1"))))
builder.RunMethod("protocols", Array(protocols))
jo.SetField("client", builder.RunMethod("build", Null))
End Sub