Dim web As new System.Windows.Forms.WebBrowser web.ScriptErrorsSuppressed = True web.Navigate("http://t.qq.com/waxjcy?preview") Do Until web.ReadyState = 4 Application.DoEvents Loop 'Dim getReader = new System.IO.StreamReader(web.DocumentStream, Encoding.utf8) 'Dim str = getReader.ReadToEnd() output.show(web.DocumentText)
|