用VB的INET控件进行文件的自动上传下载服务VIP免费

用VB的INET控件进行文件的自动上传下载服务用VB的INET控件做FTP的上传文件：sys_time=CDate(Now)sys_time=Replace(sys_time,":","")sys_time=Replace(sys_time,"","")Inet1.UserName="ll"Inet1.Password="ll"Inet1.Protocol=icFTPInet1.RemoteHost="10.10.200.21"Inet1.RemotePort="27"Inet1.Execute,"PUTDial.wav"+""+newNameInet控件也叫InternetTransfer控件，这个控件封装了http协议以及ftp协议，使用起来非常方便。所以大家经常使用。然而大家通常使用的只是其部分功能，接下来我们讲一下它的全部详细功能，看过之后你也许会有眼前一亮的感觉。会猛然觉得我们之前懂得的只是皮毛。InternetTransfer控件实现了两种广泛使用的Internet协议：超文本传送协议（HyperTextTransferProtocol）(也就是HTTP)和文件传送协议（Protocol）(即FTP)。使用InternetTransfer控件可以通过OpenURL或Execute方法连接到任何使用这两个协议的站点并检索文件。可以做到的大体方向在应用程序中添加FTP浏览器。创建自动从公共FTP站点下载文件的应用程序。分析WorldWideWeb站点中的图形引用，并只下载图形。提供以自定义格式显示从Web页获得的动态数据。基本操作InternetTransfer控件的功能依赖于将要使用的协议。由于所支持的两种协议工作起来不尽相同，所能够进行的操作就依赖于正在使用的协议。例如，GetHeader方法只能用于HTTP（HTML文档）协议。然而，有些过程对两个协议是通用的。最基本的，如果要使用任何一个协议，则必须：将AccessType属性设置为合法的代理服务器。用合法的URL调用OpenURL方法。用合法的URL和协议支持的命令调用Execute方法。用GetChunk方法从缓冲区获取数据。设置AccessType属性：使用代理服务器为了与Internet建立任何形式的连接，必须确定计算机如何连接到Internet上。如果在intranet上，可能需要提供代理服务器才能连接到Internet上。简单地说，代理服务器是计算机和Internet之间的媒介。intranet上所有需要连接到Internet上的计算机，都必须通过代理服务器。代理行使intranet和Internet之间的防火墙功能，能够阻止非法的最终用户和外部请求，也就保护了intranet不受破坏。要查找计算机中的代理设置值，请按照以下步骤执行：打开控制面板的Internet选项。在“Internet选项”对话框中，单击“连接”。在“代理服务器”中，确认选中了“通过代理服务器连接”复选框。如果选中了，则单击“设置”。在该对话框中可以找到能够用于多种协议的代理服务器的名称。如果没有定义代理服务器，请与系统管理员联系，以获得可用的代理服务器。如果希望使用对话框中未列出的代理服务器，可将AccessType属性设置为icNamedProxy(2)。然后将Proxy属性设置为代理服务器的名称，如下面的代码所示：Inet1.Proxy="myProxyName"Inet1.AccessType=icNamedProxy另一方面，如果希望使用缺省代理服务器（由计算机的注册表决定），则可以忽略Proxy属性，而只需将AccessType设置为icUseDefault(0)。AccessType的设置值在下表中列出：常数值描述icUseDefault0（缺省）用作缺省。控件使用注册表中的缺省设置访问Internet。icDirect1直接连接Internet。该控件可直接连接到Internet。icNamedProxy2命名的代理服务器。指示该控件使用Proxy属性确定的代理服务器。调用OpenURL方法'名为“Text1”的TextBox控件保存了'该方法的结果。Internet传输'控件的名称是“Inet1”。Text1.Text=Inet1.OpenURL("icrosoft.com")作为结果，TextBox控件保存了HTML源码，它看上去应和下图显示的相似：在这种情况下，缺省操作返回的是URL定位的HTML文档。然而，如果URL被改为指向文本文件，则将获得实际的文件。例如，下面的代码：Text1.Text=Inet1._OpenURL(".microsoft.com/disclaimer.txt")将获得文件的实际文本，如下所示：提示在使用OpenURL或Execute方法时，不需要设置Protocol属性。InternetTransfer控件会自动按URL的协议部分确定的协议来设置。最后，可以用包含附加数据的URL调用OpenURL方法。例如，很多Web站点提供了搜索数据库的能力。要搜索数据库，则需要在发送的URL中包含搜索条件。例如下面的代码用条件“find=Ma...