' sample 1
Dim hj As HttpJob
Dim mypar As String = "ws_parameter=A+B"
Dim bData() As Byte
dim wsEndpoint As String = "http://xxx.xxx.xxx.xxx/fn_1"
bData = mypar.GetBytes("UTF8")
hj.Initialize("j",Me)
hj.PostBytes(wsEndpoint,bData) 'KO (from webServer log: ws_parameter = A B)
-----------------------
' sample 2
Dim hj As HttpJob
Dim mypar As String = "ws_parameter=A+B"
dim wsEndpoint As String = "http://xxx.xxx.xxx.xxx/fn_1"
hj.Initialize("j",Me)
hj.PostString(wsEndpoint,mypar) 'KO (from webServer log: ws_parameter = A B)
-----------------------
' sample 3
Dim hj As HttpJob
Dim mypar As String = "ws_parameter=A+B" ' sending + as HTML encoded
dim wsEndpoint As String = "http://xxx.xxx.xxx.xxx/fn_1"
hj.Initialize("j",Me)
hj.PostString(wsEndpoint,mypar) 'KO'
-----------------------
' sample 4
Dim hj As HttpJob
Dim mypar As String = "ws_parameter=A\u002BB" ' sending + as JS escape
dim wsEndpoint As String = "http://xxx.xxx.xxx.xxx/fn_1"
hj.Initialize("j",Me)
hj.PostString(wsEndpoint,mypar) 'KO'
-----------------------