Sub ws_Connected
Dim maxTextSize As Long = 100000
Dim jo As JavaObject = ws
jo = jo.GetFieldJO("session").RunMethod("getPolicy", Null)
jo.RunMethod("setMaxBinaryMessageBufferSize", Array(maxTextSize))
jo.RunMethod("setMaxBinaryMessageSize", Array(maxTextSize))
jo.RunMethod("setMaxTextMessageBufferSize", Array(maxTextSize))
jo.RunMethod("setMaxTextMessageSize", Array(maxTextSize))
End Sub