在vb中如何得到网页的源代码？

[zzlcn]

在vb中如何得到网页的源代码？
不是本地文件，直接访问网上的页面

[playyuer]

How to retrieve a file from the Web through a proxy server.
http://www.vbip.com/winsock/winsock_http_03_01.asp

Download Simple HTTP Reader sample project (wsc_http_reader_03.zip, 5KB)
http://www.vbip.com/winsock/files/wsc_http_reader_03.zip

[playyuer]

上边是从 Web Server 上取!
这里是从本地 IE 窗口里取:
'引用 Microsoft Internet Controls
Option Explicit
Private Sub Command1_Click()
'从本地 IE 窗口中,取得标题栏中含有 "中" 字符的第一个 IE 窗口的 HTML 源!
Text1.Text = GetSourceOfHTMLPage("*中*")
End Sub

'该函数是用来从本地 IE 窗口中,取得标题栏中含有 TitlePattern 字符的的第一个 IE 窗口的 HTML 源!
Public Function GetSourceOfHTMLPage(TitlePattern As String) As String
Dim x As New SHDocVw.ShellWindows
Dim i As Long
Dim j As Long
For i = 0 To x.Count - 1
If VBA.TypeName(x.Item(i).Document) = "HTMLDocument" Then
If x.Item(i).Document.Title Like TitlePattern Then
'Debug.Print x.Item(i).Document.documentElement.outerhtml
GetSourceOfHTMLPage = x.Item(i).Document.documentElement.outerhtml
Exit For
End If
End If
Next i
End Function

[VBxxz]

我试著做过，如果要，给我来信
[e-mail]

[btbq]

up

[zzlcn]

我用的是

WebBrowser 控件

那该怎么用呢？