用InternetReadFileByte下载文件的困惑。

之前用的域名下载很正常，换了域名后就像神经病一样。
1、在win7 VB6环境下运行，文件下载到137K左右就不动了，此时j=135，呈死机状态。
2、在win7编译后运行，结果一样死机。
3、在win8 VB6环境下运行，一切正常。
2、在win8编译后运行，结果hfile结果一直为零，取得的文件大小为零。就是到第一行就结束了。

请各位大师帮忙！

部分代码如下：

       pData.cFileName = String$(MAX_PATH, 0)
      hFile = FtpFindFirstFile(hConnection, Trim$(strFile), pData, 0, 0)

      if hFile = 0 Then GoTo csErr

      hRet = InternetFindNextFile(hFile, pData)
            SizeFile = pData.nFileSizeLow

    GetFiles = True

    If vMode = 0 Then  '
        Transfer = FTP_TRANSFER_TYPE_ASCII
    Else
        Transfer = FTP_TRANSFER_TYPE_BINARY
    End If
    InProgress = True

    hFile = FtpOpenFile(hConnection, Trim(strFile), GENERIC_READ, Transfer, 0)

    Open strNewFile For Binary Access Write As #2

    bDoLoop = True
    StopTransfert = False

    Dim J As Long
    For J = 1 To SizeFile / 1024

      ......

        bDoLoop = InternetReadFileByte(hFile, sReadBuffer(0), 1024, lNumberOfBytesRead)

        Sum = Sum + lNumberOfBytesRead

        Call ProgressBar(lngFileSize, Str(Sum), strFile)
        Put #2, , sReadBuffer

        If Not CBool(lNumberOfBytesRead) Then Exit For
    Next J InternetReadFileByte ftp 下载 vb6 --------------------编程问答-------------------- 已经搞了一周了，一直都是只能下载130多k，网上关于InternetReadFileByte的资料很少，哪位大师和版主给帮帮忙？实在是太痛苦了！ --------------------编程问答-------------------- hConnection 的api里面有个从缓存读取或直接下载的参数设置
查查, 改成直接下载,不读缓存试试 --------------------编程问答-------------------- 自己稍微搞明白了一点。
1和2的问题：win7是单位笔记本电脑的系统，拿回家试就好了，说明是公司网管设置的问题。但又带来新的疑问，我如何突破这个网管的限制呢？我不可能到人家单位说，你帮我改改设置吧。
3、4的问题：我的是excel加载项中的一部分程序，需要以管理员模式运行excel下载就没问题了。又是新的疑问，哪个用户每次是以管理员模式运行excel呢？

请教各位大师，以上2个新问题该如何解决？

补充：VB ,  网络编程