网页下载问题（200分）

Question

或者，您想拉整个网页的话
去下一个webzipwww.newhua.com
www.zhtx.net
www.shycn.com这样的话全部连接都会被拉回来的。

Answer 1

你是不是想按 某种规律拉下网站的一些内容吗？我写了一个 的 以前用来拉旧版CSDN的论坛网页的代码很少的 ：）
等下找给你

Answer 2

Private Sub Command1_Click()
Dim i As Integer
For i = Text2 To Text3
Text1 = Text4 & Format(i, "0000") & Text6
Text1.Refresh
Download Text4 & Format(i, "0000") & Text6, Text5 & Format(i, "0000") & Text7
Next
End Sub
 
Private Sub Download(UrtFile As String, LocalFile As String)
Dim bData() As Byte      '数据变量
Dim intFile As Integer   '可用文件变量
Dim i As Integer
Dim ttt As String
    intFile = FreeFile()      '将 intFile 设置为未使用的文件
    ' OpenURL 方法的结果首先传入 Byte 数组，
    '然后将 Byte 数组保存到磁盘。
    On Error Resume Next
    Kill LocalFile
    On Error GoTo 0
    bData() = Inet1.OpenURL(UrtFile, icByteArray)
    Open LocalFile For Binary Access Write As #intFile
        Put #intFile, , bData()
    Close #intFile
    Exit Sub
err1:
MsgBox "error!"
Resume
End Sub
以上是全部代码  你可以修改一下就可以了  
Inet1是 Microsoft Internet Transfer 控件

Answer 3

另存为是可行的，但是无法再浏览。可以用编辑器打开网页看到原文。文字好像是用java控制的，无法像正常网页一样处理，包括右键。想办法去除不必要的控制符，把网页主要内容分离出来。