用InternetReadFileByte下载文件的困惑。

Question

之前用的域名下载很正常，换了域名后就像神经病一样。
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 JInternetReadFileByteftp下载vb6

Answer 1

已经搞了一周了，一直都是只能下载130多k，网上关于InternetReadFileByte的资料很少，哪位大师和版主给帮帮忙？实在是太痛苦了！

Answer 2

hConnection 的api里面有个从缓存读取或直接下载的参数设置
查查, 改成直接下载,不读缓存试试

Answer 3

自己稍微搞明白了一点。
1和2的问题：win7是单位笔记本电脑的系统，拿回家试就好了，说明是公司网管设置的问题。但又带来新的疑问，我如何突破这个网管的限制呢？我不可能到人家单位说，你帮我改改设置吧。
3、4的问题：我的是excel加载项中的一部分程序，需要以管理员模式运行excel下载就没问题了。又是新的疑问，哪个用户每次是以管理员模式运行excel呢？请教各位大师，以上2个新问题该如何解决？