关于webbrowser控件的问题

[Super_XS]

二个问题，实现同样一个目的.
1.当WebBrowser.Navigate URL 后
怎么得到webbrowser返回的HTML代码。就是得到控件返回的源文件
2.有时候Inet控件只返回一半。比如各位试一下
text1.text=inet1.openurl("http://www.soucai.com",0)
就得到一半或一半一上的源码，我晕，不知道怎么回事

[Super_XS]

自己解决了。我晕死
WebBrowser1.Document.body.createtextrange.htmltext

[xiaoyaolz]

'用法 call winsockdown
Const host1 = "www.baidu.com"
Const Url1 = "/"
Dim sockdgetdata As String

Function winsockdown()
Winsock1.RemoteHost = host1 '"www.xcinfo.ha.cn" '"nease.com"
Winsock1.RemotePort = 80
Winsock1.Connect
End Function

Private Sub Winsock1_Connect()
Dim strCommand As String
strCommand = "GET " + Url1 + " HTTP/1.0" + vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
strCommand = strCommand + "Accept: text/html" + vbCrLf
strCommand = strCommand + vbCrLf
Winsock1.SendData strCommand
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim webData As String
Winsock1.GetData webData, vbString
sockdgetdata = sockdgetdata + webData
End Sub

Private Sub Winsock1_Close()
Winsock1.Close
MsgBox sockdgetdata
End Sub

[xiaoyaolz]

Dim webstart As Boolean'开始下载
Dim downpageok As Boolean'下载完成
'用法 call downbywebbrowser("http://baidu.com")
'控件: web1 是:webbrowser

Function downbywebbrowser(byurl)
webstart = True
web1.navigate Url 'http://baidu.com"
End Function

Private Sub web1_DocumentComplete(ByVal pDisp As Object, Url As Variant)
If webstart Then
webstart = False
downpageok = True
End If
End Sub

[xiaoyaolz]

downpageok = True 后加 msgbox Webr1.Document.body.createtextrange.htmltext

[Super_XS]

怎么给分给你？