以下是我的代码,为何我抓取的网页内容,保存到文件中只有一部分呢?    Dim bData() As Byte      '数据变量
    Dim intFile As Integer   '可用文件变量
    intFile = FreeFile()      '将 intFile 设置为未使用的文件
    'inetUp.AccessType = icHTTP
    bData() = inetUp.OpenURL(strURL, icByteArray)
    Open strPath & "\" & strFile For Binary Access Write As #intFile
    Put #intFile, , bData()
    Close #intFile

解决方案 »

  1.   


        Dim bData() As Byte      '数据变量
        Dim intFile As Integer   '可用文件变量
        intFile = FreeFile()      '将 intFile 设置为未使用的文件
        'inetUp.AccessType = icHTTP
        bData() = inetUp.OpenURL(strURL, icByteArray)
        Open strPath & "\" & strFile For Binary Access Write As #intFile
        Put #intFile, , bData()
        Close #intFile我觉是Binary这个是读取字节的,与中文是字符的有关