如何從VB的WebBrowser控件中獲取網頁文字

Function?HtmlStr$(Url$)?'提取網頁源碼函數

Dim?XmlHttp

Set?XmlHttp?=?CreateObject("Microsoft.XMLHTTP")

XmlHttp.Open?"GET",?Url,?False

XmlHttp.send

If?XmlHttp.ReadyState?=?4?Then?HtmlStr?=?StrConv(XmlHttp.ResponseBody,?vbUnicode)

Set?XmlHttp?=?Nothing

End?Function

Private?Sub?Form_Load()

Text1?=?""

Text1?=?HtmlStr("/")

End?Sub

上一篇:openwrt怎麽安裝石象鬼

下一篇:scf是騙局嗎?