用VB的INET控件進行文件的自動上傳下載服務

本文格式為Word版，下載可任意編輯——用VB的INET控件進行文件的自動上傳下載服務用VB的INET控件進行文件的自動上傳下載服務

用VB的INET控件做FTP的上傳文件：sys_time=CDate(Now)

sys_time=Replace(sys_time,\sys_time=Replace(sys_time,\Inet1.UserName=\Inet1.Password=\Inet1.Protocol=icFTP

Inet1.RemoteHost=\Inet1.RemotePort=\

Inet1.Execute,\

Inet控件也叫InternetTransfer控件，這個控件封裝了http協(xié)議以及ftp協(xié)議，使用起來十分便利。所以大家經(jīng)常使用。然而大家尋常使用的只是其部分功能，接下來我們講一下它的全部詳細功能，看過之后你可能會有眼前一亮的感覺。會猛然覺得我們之前懂得的只是皮毛。

InternetTransfer控件實現(xiàn)了兩種廣泛使用的Internet協(xié)議：超文本傳送協(xié)議（HyperTextTransferProtocol）(也就是HTTP)和文件傳送協(xié)議（FileTransferProtocol）(即FTP)。使用InternetTransfer控件可以通過OpenURL或Execute方法連接到任何使用這兩個協(xié)議的站點并檢索文件。

可以做到的大體方向

在應用程序中添加FTP瀏覽器。

創(chuàng)立自動從公共FTP站點下載文件的應用程序。

分析WorldWideWeb站點中的圖形引用，并只下載圖形。

提供以自定義格式顯示從Web頁獲得的動態(tài)數(shù)據(jù)。基本操作

InternetTransfer控件的功能依靠于將要使用的協(xié)議。由于所支持的兩種協(xié)議工作起來不盡一致，所能夠進行的操作就依靠于正在使用的協(xié)議。例如，GetHeader方法只能用于HTTP（HTML文檔）協(xié)議。

然而，有些過程對兩個協(xié)議是通用的。最基本的，假使要使用任何一個協(xié)議，則必需：

將AccessType屬性設置為合法的代理服務器。

用合法的URL調(diào)用OpenURL方法。

用合法的URL和協(xié)議支持的命令調(diào)用Execute方法。

用GetChunk方法從緩沖區(qū)獲取數(shù)據(jù)。設置AccessType屬性：使用代理服務器

為了與Internet建立任何形式的連接，必需確定計算機如何連接到Internet上。假使在intranet上，可能需要提供代理服務器才能連接到Internet上。

簡單地說，代理服務器是計算機和Internet之間的媒介。intranet上所有需要連接到Internet上的計算機，都必需通過代理服務器。代理行使intranet和Internet之間的防火墻功能，能夠阻止非法的最終用戶和外部請求，也就保護了intranet不受破壞。

要查找計算機中的代理設置值，請依照以下步驟執(zhí)行：開啟控制面板的Internet選項。

在“Internet選項〞對話框中，單擊“連接〞。

在“代理服務器〞中，確認選中了“通過代理服務器連接〞復選框。

假使選中了，則單擊“設置〞。在該對話框中可以找到能夠用于多種協(xié)議的代理服務器的名稱。假使沒有定義代理服務器，請與系統(tǒng)管理員聯(lián)系，以獲得可用的代理服務器。

假使希望使用對話框中未列出的代理服務器，可將AccessType屬性設置為icNamedProxy(2)。然后將Proxy屬性設置為代理服務器的名稱，如下面的代碼所示：

Inet1.Proxy=\Inet1.AccessType=icNamedProxy

另一方面，假使希望使用缺省代理服務器（由計算機的注冊表決定），則可以忽略Proxy屬性，而只需將AccessType設置為icUseDefault(0)。

AccessType的設置值在下表中列出：

常數(shù)值描述

icUseDefault0（缺省）用作缺省?？丶褂米员碇械娜笔≡O置訪問Internet。icDirect1直接連接Internet。該控件可直接連接到Internet。

icNamedProxy2命名的代理服務器。指示該控件使用Proxy屬性確定的代理服務器。

調(diào)用OpenURL方法

設置完AccessType屬性后，最基本的操作就是用合法的URL調(diào)用OpenURL方法。使用OpenURL方法時，操作所得到的結果將依靠于目標URL。例如下面的URL將返回在.中找到的HTML文檔：

'名為“Text1〞的TextBox控件保存了'該方法的結果。Internet傳輸'控件的名稱是“Inet1〞。

Text1.Text=Inet1.OpenURL(\

作為結果，TextBox控件保存了HTML源碼，它看上去應和下圖顯示的相像：

在這種狀況下，缺省操作返回的是URL定位的HTML文檔。然而，假使URL被改為指向文本文件，則將獲得實際的文件。例如，下面的代碼：

Text1.Text=Inet1._

OpenURL(\

將獲得文件的實際文本，如下所示：

提醒在使用OpenURL或Execute方法時，不需要設置Protocol屬性。InternetTransfer控件會自動按URL的協(xié)議部分確定的協(xié)議來設置。

最終，可以用包含附加數(shù)據(jù)的URL調(diào)用OpenURL方法。例如，好多Web站點提供了探尋數(shù)據(jù)庫的能力。要探尋數(shù)據(jù)庫，則需要在發(fā)送的URL中包含探尋條件。例如下面的代碼用條件“find=Maui〞調(diào)用名為“search.exe〞的探尋引擎。

DimstrURLAsString

s