vb inet控件在内网可以通过ftp下载，但是公网链接vpn后，无法下载，ftp可以登录，且可以手动将文件复制下来，但vpn链接后inet控件无法下载。甚是不解。还望遇到过此类问题的大师给予指点。。。。。。。。。。。。

特点：ftp://192.168.0.109/ 这个端口inet是可以通过公网vpn连接内网下载，在局域网中也可以下载上传ftp文件，可手动登陆复制文件，上传文件
           ftp://192.168.0.109:99/这个端口inet 不可以通过公网vpn连接内网下载，但在局域网中是可以下载上传ftp文件的，可手动登陆复制文件，上传文件

这是为什么。。。求大神指导。。。。。。。

没这样用过
确认inet已经和VPN服务器连接。
能不能把inet控件的属性设置贴上来看看

Dim str1 As String
    str1 = Adodc2.Recordset.Fields("id_图片") & "." & Adodc2.Recordset.Fields("图片格式")
    Call 自动检查文件夹
    Inet1.URL = "ftp://192.168.0.109:99/"
    Inet1.Protocol = icFTP
    Inet1.UserName = "admin"
    Inet1.Password = "wuyachao99"
     'Inet1.Execute "", "get  /图片/订单原始文件/" & str1 & "  c:\临时文件夹\" & str1 & ""
    Inet1.Execute , "get " & Chr(34) & "/图片/订单原始文件/" & str1 & Chr(34) & "  " & Chr(34) & "c:\临时文件夹\" & str1 & Chr(34)

    Label3.Caption = "正在下载原始文件，请稍候……"

    Frame5.Visible = True
   
   
   
line1:
    Do While Inet1.StillExecuting
        DoEvents: DoEvents: DoEvents: DoEvents
        GoTo line1
    Loop
   
    Frame5.Visible = False

    Inet1.Execute , "QUIT"
    str1 = "c:\临时文件夹\" & str1
    ShellExecute Me.hwnd, "open", str1, str1, vbNull, 3

这个端口和那个端口写法一模一样，但是不知道为什么不行？？

看代码FTP服务器的21端口改了？如果是主动模式，估计20端口也改了。
感觉是客户端防火墙造成的，能不能关了防火墙试试。
防火墙可能对内网和外网设定了不同的规则。
如果VPN模式下用FTP命令能操作，是不是FTP对防火墙来说是信任安全的。

客户端没装防火墙啊。。。。

windows防火墙都没有?

windows防火墙是关闭着的

本地局域网下用INET没问题，VPN下用FTP没问题，好象只能得到端口受限的结论。VPN下用INET时，FTP服务器有没有活动记录呢？FTP两种模式下必须的端口开放应该知道吧。
肯定VPN下不用INET文件共享也没问题吧。
另外一个不确定，客户端是不是在路由器之后，能不能直连公网或INET加代理属性试试。

[ 本帖最后由 lianyicq 于 2015-5-21 09:41 编辑 ]

抓包分析端口和返回的端口吧。感觉就是端口的问题，感觉客户端发出的数据包vpn处理好发，反之就感觉不正常。
没用过 VPN