Sub Service_Create
Dim jo As JavaObject = HttpUtils2Service.hc
Dim builder As JavaObject = jo.RunMethod("sharedInit", Array("hc"))
builder.RunMethod("followRedirects", Array(False))
builder.RunMethod("followSslRedirects", Array(False))
jo.SetField("client", builder.RunMethod("build", Null))
End Sub