如何才能够用MSTHML解析Internet Transfer控件OpenURL取得的HTML源代码

[Napoleo]

Option Explicit

Dim HTMLDoc As HTMLDocument
Dim htmlCode As String

Private Sub Form_Load()

htmlCode = Inet1.OpenURL("http://www.google.com")

'下面这样显然是不行的,但是,怎样才能让HTMLDoc的内容为htmlcode呢?
Set HTMLDoc.All = htmlCode

End Sub

[13161795500]

给点分儿吧！

[tanyx]

保存到磁盘上，然后用SHELLEXECUTE打开（浏览器）。
其实如果只是为了浏览，不要用这个控件，用WEBBROWSER控件。

[Garfield]

to 楼上：
搂主说的是用MSHTML解析HTML格式而不是读出html内容。。

以前做过，忘了。。
找不出源代码。。遗憾。。