试试Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("https://kodakalaris.my.salesforce.com/00O16000007eXrD")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
dim getReader as new System.IO.StreamReader(web.DocumentStream, System.Text.Encoding.GetEncoding("gb2312"))
dim gethtml as string = getReader.ReadToEnd()
output.show(gethtml )