维克苗综合站

使用WebBrowser控件
Dim doc, objhtml As Object
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createTextRange()
RichTextBox1.Text = objhtml.htmlText
或：
WebBrowser1.Document.body.innerHTML

一男赶集卖猪，天黑遇雨，二十头猪未卖成，到一农家借宿。
少妇说：家里只一人不便。男：求你了大妹子，给猪一头。

女：好吧，但家只有一床。

男：我也到床上睡，再给猪一头。

女：同意。半夜男商女，我到你上面睡，女不肯。

男：给猪两头。

全文阅读 »