WebBrowser1が文字化けするとき

WebBrowser1.DocumentTextを参照して適当にアレしようとしたんだけど文字化けでまいっちんぐだったので調べてみた。

webサイトがshift-jisを送ってくる場合に明示的に文字コード指定してstring型に押し込む方法。

Dim cnvstring As String
Dim buff(WebBrowser1.DocumentStream.Length - 1) As Byte
WebBrowser1.DocumentStream.Read(buff, 0, WebBrowser1.DocumentStream.Length)
cnvstring = System.Text.Encoding.GetEncoding(932).GetString(buff)

vb.netです。