Question

VB不用WebBrowser1控件获取网页文本

用控件是这样 Text1.Text = WebBrowser1.Document.body.innertext
请问不用WebBrowser1控件可以获取吗/
可以的话发下代码，谢谢

Answer 1

不用控件就可以，代码如下：
Private Sub Command1_Click()
URL = "http://www.qq.com"
Set xmlHttp = CreateObject("Msxml2.ServerXMLHTTP")
xmlHttp.open "GET", Trim(URL), False
xmlHttp.send
text1.text=BytesToBstr(xmlHttp.responsebody, "UTF-8")
End Sub

'远程获取网页编码格式转换
Function BytesToBstr(body, charset) '转换成需要的编码格式
Dim objstream
Set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.open
On Error Resume Next
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.charset = charset
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
End Function

Answer 2

用TIME控件对文本框进行监控！