用VB的INET控件進(jìn)行文件的自動(dòng)上傳下載服務(wù)

本文格式為Word版，下載可任意編輯——用VB的INET控件進(jìn)行文件的自動(dòng)上傳下載服務(wù)用VB的INET控件進(jìn)行文件的自動(dòng)上傳下載服務(wù)

用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控件，這個(gè)控件封裝了http協(xié)議以及ftp協(xié)議，使用起來(lái)十分便利。所以大家經(jīng)常使用。然而大家尋常使用的只是其部分功能，接下來(lái)我們講一下它的全部詳細(xì)功能，看過(guò)之后你可能會(huì)有眼前一亮的感覺(jué)。會(huì)猛然覺(jué)得我們之前懂得的只是皮毛。

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

可以做到的大體方向

在應(yīng)用程序中添加FTP瀏覽器。

創(chuàng)立自動(dòng)從公共FTP站點(diǎn)下載文件的應(yīng)用程序。

分析WorldWideWeb站點(diǎn)中的圖形引用，并只下載圖形。

提供以自定義格式顯示從Web頁(yè)獲得的動(dòng)態(tài)數(shù)據(jù)?；静僮?/p>

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

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

將AccessType屬性設(shè)置為合法的代理服務(wù)器。

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

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

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

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

簡(jiǎn)單地說(shuō)，代理服務(wù)器是計(jì)算機(jī)和Internet之間的媒介。intranet上所有需要連接到Internet上的計(jì)算機(jī)，都必需通過(guò)代理服務(wù)器。代理行使intranet和Internet之間的防火墻功能，能夠阻止非法的最終用戶和外部請(qǐng)求，也就保護(hù)了intranet不受破壞。

要查找計(jì)算機(jī)中的代理設(shè)置值，請(qǐng)依照以下步驟執(zhí)行：開(kāi)啟控制面板的Internet選項(xiàng)。

在“Internet選項(xiàng)〞對(duì)話框中，單擊“連接〞。

在“代理服務(wù)器〞中，確認(rèn)選中了“通過(guò)代理服務(wù)器連接〞復(fù)選框。

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

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

Inet1.Proxy=\Inet1.AccessType=icNamedProxy

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

AccessType的設(shè)置值在下表中列出：

常數(shù)值描述

icUseDefault0（缺?。┯米魅笔??？丶褂米?cè)表中的缺省設(shè)置訪問(wèn)Internet。icDirect1直接連接Internet。該控件可直接連接到Internet。

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

調(diào)用OpenURL方法

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

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

Text1.Text=Inet1.OpenURL(\

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

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

Text1.Text=Inet1._

OpenURL(\

將獲得文件的實(shí)際文本，如下所示：

提醒在使用OpenURL或Execute方法時(shí)，不需要設(shè)置Protocol屬性。InternetTransfer控件會(huì)自動(dòng)按URL的協(xié)議部分確定的協(xié)議來(lái)設(shè)置。

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

DimstrURLAsString

s