I've sent my Question in fiddler google group to, so i'have my answer, thanks you Tsviatko Yovtchev
Response is here : https://groups.google.com/forum/#!topic/httpfiddler/zXiHPOprR5s
My code is here :
Imports
Fiddler
Imports
Fiddler.Utilities
Imports
System.Text.Encoding
[... more code]
Public
Sub
OnWebSocketMessageHandler(Sender
As
Object
, e
As
WebSocketMessageEventArgs)
If
Not
e.oWSM.IsOutbound
And
e.oWSM.PayloadData.Any
Then
Dim
FirstByte
As
New
BitArray(
New
Byte
() {e.oWSM.ToByteArray(0)})
'Get first byte from header
Dim
UseDeflate
As
Boolean
= FirstByte.
Get
(FirstByte.Length - 2)
'Get 2nd bit value (RSV1)
Dim
Response
As
String
=
Nothing
If
UseDeflate
Then
Response = UTF8.GetString(DeflaterExpand(e.oWSM.PayloadData))
Else
Response = e.oWSM.PayloadAsString()
End
If
If
Not
Response =
String
.Empty
Then
ReadResponse(Response)
#If DEBUG Then
Debug.Print(Response)
#End If
End
If
End
If
End
Sub