零點(diǎn)起飛學(xué)Visual Basic之VB網(wǎng)絡(luò)游-Internet和

1、第16章 VB網(wǎng)絡(luò)游Internet和網(wǎng)絡(luò)編程開發(fā)互聯(lián)網(wǎng)在現(xiàn)代信息社會(huì)中起到越來越重要的作用。Visual Basic在應(yīng)用程序開發(fā)中完全考慮到網(wǎng)絡(luò)的發(fā)展，賦予程序強(qiáng)勁支持網(wǎng)絡(luò)的功能。學(xué)習(xí)本章，讀者可以掌握網(wǎng)絡(luò)編程中3個(gè)重要網(wǎng)絡(luò)傳輸控件Internet Transfer、網(wǎng)頁瀏覽控件WebBrowser和電子郵件控件MAPI的使用方法，熟悉網(wǎng)絡(luò)上傳、下載、登錄網(wǎng)站、收發(fā)電子郵件的開發(fā)技巧。16.1 傳輸網(wǎng)絡(luò)文件隨著網(wǎng)絡(luò)的日益普及網(wǎng)絡(luò)傳輸扮演著非常重要的角色。網(wǎng)絡(luò)傳輸控件Internet Transfer允許連接到其他計(jì)算機(jī)和傳輸文件。網(wǎng)絡(luò)傳輸包括兩個(gè)協(xié)議：HTTP協(xié)議（HyperText Tr

2、ansfer Protocol，超文本傳送協(xié)議），通過網(wǎng)絡(luò)使網(wǎng)絡(luò)瀏覽器與網(wǎng)絡(luò)服務(wù)器相互連接通信；FTP協(xié)議（ Protocol，文件傳輸協(xié)議），支持網(wǎng)絡(luò)互傳文件。本節(jié)分別介紹兩種不同協(xié)議的編程方法。16.1.1 檢索網(wǎng)頁Internet Transfer控件支持超文本傳輸協(xié)議（HTTP）。使用HTTP協(xié)議，可以連接全球信息網(wǎng)（World Wide Web）服務(wù)器，以檢索HTML文檔。Internet Transfer控件不是Visual Basic程序中的內(nèi)置控件，必須手動(dòng)添加到工具箱。選擇“工程”|“部件”命令，彈出“部件”對(duì)話框。選擇“控件”選項(xiàng)卡中的“Microsoft Internet

3、 Transfer Control 6.0”復(fù)選框，單擊“確定”按鈕，如圖16.1所示。圖16.1 添加部件窗體Internet Transfer控件包含以下重要屬性、方法、事件。1Protocol屬性Protocol屬性設(shè)置或返回一個(gè)值，指定和Execute方法一起使用的協(xié)議。標(biāo)準(zhǔn)語法如下：object.Protocol = integer參數(shù)說明：Object為必須項(xiàng)，表示對(duì)象表達(dá)式。Integer為必須項(xiàng)，為整數(shù)，數(shù)值表達(dá)式?jīng)Q定所用的協(xié)議，包括如表16.1所示的設(shè)置值。表16.1 protocol屬性設(shè)置值超文本傳輸協(xié)議設(shè)置protocol屬性為icHTTP。常 數(shù)值描 述icUnkno

4、wn0未知的icDefault1默認(rèn)協(xié)議icFTP2FTP。文件傳輸協(xié)議icReserved3為將來預(yù)留icHTTP4HTTP。超文本傳輸協(xié)議icHTTPS5安全HTTP2StillExecuting屬性該屬性返回一個(gè)值，指明此Internet Transfer控件是否處于忙碌狀態(tài)。如果該控件正在Internet網(wǎng)上檢索文件操作，將返回True。當(dāng)該控件處于忙碌狀態(tài)，不響應(yīng)其他數(shù)據(jù)請(qǐng)求。標(biāo)準(zhǔn)語法如下：object.StillExecuting = Boolean3StateChanged事件Internet Transfer控件連接中狀態(tài)發(fā)生改變引發(fā)該事件。標(biāo)準(zhǔn)語法如下：object_Stat

5、eChanged(ByVal State As Integer)參數(shù)說明：State參數(shù)包括如表16.2所示參數(shù)值。表16.2 state參數(shù)值該參數(shù)中最重要的是icError參數(shù)和icResponseCompleted參數(shù)。icError參數(shù)表明控件發(fā)生錯(cuò)誤。icResponseCompleted參數(shù)表明控件連接網(wǎng)絡(luò)服務(wù)器已經(jīng)完成，而且收到所有數(shù)據(jù)。常 數(shù)值描 述icNone0無狀態(tài)可報(bào)告icHostResolvingHost1該控件正在查詢所指定的主機(jī)的IP地址icHostResolved2該控件已成功地找到所指定的主機(jī)的IP地址icConnecting3該控件正在與主機(jī)連接icConne

6、cted4該控件已與主機(jī)連接成功icRequesting5該控件正在向主機(jī)發(fā)送數(shù)據(jù)icRequestSent6該控件發(fā)送數(shù)據(jù)已成功icReceivingResponse7該控件正在接收主機(jī)的響應(yīng)icResponseReceived8該控件已成功地接收到主機(jī)的響應(yīng)icDisconnecting9該控件正在解除與主機(jī)的連接icDisconnected10該控件已成功地與主機(jī)解除了連接icError11與主機(jī)通信時(shí)出現(xiàn)了錯(cuò)誤icResponseCompleted12該數(shù)據(jù)傳輸已經(jīng)完成，并且所有數(shù)據(jù)均已接收到4GetChunk方法從StateChanged事件中檢索數(shù)據(jù)。把Execute方法當(dāng)作GET

7、操作來調(diào)用之后使用該方法。在StateChanged事件中使用GetChunk方法。當(dāng)State屬性為icResponseCompleted時(shí)，使用GetChunk方法檢索緩沖區(qū)的內(nèi)容。標(biāo)準(zhǔn)語法如下：object.GetChunk( size ,dataType )5Execute方法該方法執(zhí)行對(duì)遠(yuǎn)程服務(wù)器的數(shù)據(jù)傳輸。只能發(fā)送對(duì)特定的協(xié)議有效的數(shù)據(jù)。標(biāo)準(zhǔn)語法：object.Execute url, operation, data, requestHeadersUrl參數(shù)為必需項(xiàng)，用于指定控件將要連接的網(wǎng)絡(luò)地址。Operation參數(shù)為字符串，用戶指定將要執(zhí)行的操作類型。它所支持的操作的列表如表

8、16.3所示。表16.3 opertion設(shè)置值（HTTP協(xié)議）Execute方法是非常重要的操作方法?？梢酝ㄟ^網(wǎng)絡(luò)發(fā)送和接收文件等多種操作。操 作說 明GET檢索由URL屬性指定的URL中的數(shù)據(jù)HEAD發(fā)送數(shù)據(jù)的標(biāo)頭POST傳遞數(shù)據(jù)給服務(wù)器。該數(shù)據(jù)在data參數(shù)中。這是GET的替代方法，附加的指令在data參數(shù)中指定PUTPut操作。被替代的頁面名在data參數(shù)中【示例16-1】 使用Internet Transfer控件檢索網(wǎng)頁。本節(jié)將使用Internet Transfer控件創(chuàng)建一個(gè)檢索的網(wǎng)頁并返回網(wǎng)頁文本內(nèi)容的窗體。實(shí)現(xiàn)過程如下：（1）新建一個(gè)工程，并新建一個(gè)窗體。（2）雙擊工具箱中的

9、Inet圖標(biāo)，在窗體中心添加一個(gè)網(wǎng)絡(luò)傳輸控件Inet1，使用默認(rèn)屬性。（3）雙擊工具箱中的TextBox圖標(biāo)，自動(dòng)在窗體中心添加一個(gè)文本框控件Text1，Text屬性為，其他屬性使用默認(rèn)值。（4）雙擊工具箱中的CommandButton圖標(biāo)，在窗體中心添加一個(gè)CommandButton控件，設(shè)置其Caption屬性為“檢索數(shù)據(jù)”，再添加一個(gè)文本框控件。（5）雙擊空白窗體，彈出代碼編輯窗口，輸入以下代碼：說明：該示例當(dāng)單擊“檢索數(shù)據(jù)”按鈕，執(zhí)行Execute()方法使用get參數(shù)檢索網(wǎng)絡(luò)地址中數(shù)據(jù)，判斷Inet控件的狀態(tài)，如果stillexecuting參數(shù)為True，使用Doevents語句繼

10、續(xù)等待程序結(jié)束。在StateChanged事件中用GetChunk()方法來檢索每塊數(shù)據(jù)，最后顯示到文本框內(nèi)。該示例使用Select Case語句來決定如何處理每種可能的狀態(tài)。（6）按下F5鍵運(yùn)行程序。運(yùn)行窗體如圖16.2所示。圖16.2 示例16-1的運(yùn)行結(jié)果16.1.2 傳輸文件Internet Transfer控件同樣支持文件傳輸協(xié)議（FTP）。使用FTP協(xié)議可以跨平臺(tái)在FTP服務(wù)器上登錄，可以下載和上傳數(shù)據(jù)文件。FTP協(xié)議使用方法與DOS命令非常相似。Internet Transfer控件傳輸文件時(shí)主要使用Execute方法。該方法執(zhí)行對(duì)遠(yuǎn)程服務(wù)器的數(shù)據(jù)傳輸。只能發(fā)送對(duì)特定的協(xié)議有效的

11、數(shù)據(jù)。標(biāo)準(zhǔn)語法如下：object.Execute url, operation, data, requestHeadersurl參數(shù)為必需項(xiàng)，用于指定控件將要連接的網(wǎng)絡(luò)地址。Operation參數(shù)為字符串，用戶指定將要執(zhí)行的操作類型。它所支持的操作的列表如表16.4所示。表16.4 operation設(shè)置值Execute()方法是非常重要的操作方法?？梢酝ㄟ^網(wǎng)絡(luò)創(chuàng)建目錄、復(fù)制、刪除文件等多種操作。操 作說 明CD file1改變目錄。改變到file1中指定的目錄CDUP改變到父目錄。等效于CDCLOSE關(guān)閉當(dāng)前的FTP連接DELETE file1刪除file1中指定的文件DIR file1目錄

12、。搜索file1中指定的目錄（允許用通配符，但要使用遠(yuǎn)程主機(jī)的語法）。如果沒有指定file1，將返回當(dāng)前的整個(gè)工作目錄。使用GetChunk()方法返回目錄數(shù)據(jù)GET file1 file2檢索file1中指定的遠(yuǎn)程文件，并創(chuàng)建file2中指定的新本地文件LS file1列表。搜索file1中指定的目錄（允許用通配符，但要使用遠(yuǎn)程主機(jī)的語法）。使用GetChunk()方法返回文件目錄數(shù)據(jù)MKDIR file1創(chuàng)建目錄。創(chuàng)建file1中指定的目錄。創(chuàng)建是否成功取決于用戶在遠(yuǎn)程主機(jī)上的權(quán)限PUT file1 file2復(fù)制file1指定的本地文件到file2指定的遠(yuǎn)程主機(jī)上PWD打印工作目錄。返回

13、當(dāng)前目錄名。使用GetChunk()方法返回?cái)?shù)據(jù)QUIT終止當(dāng)前用戶RECV file1 file2檢索file1中指定的遠(yuǎn)程文件，并創(chuàng)建file2中指定的本地新文件。等效于 GETRENAME file1 file2將file1中命名的遠(yuǎn)程文件重命名為file2中指定的新名稱。成功與否取決于在遠(yuǎn)程主機(jī)上的權(quán)限RMDIR file1刪除目錄。刪除file1中指定的遠(yuǎn)程目錄。成功與否取決于用戶在遠(yuǎn)程主機(jī)上的權(quán)限SEND file1 file2復(fù)制file1指定的本地文件到file2指定的遠(yuǎn)程主機(jī)上。等效于 PUTSIZE file1返回file1指定的目錄的大小【示例16-2】 使用Intern

14、et Transfer控件傳輸指定網(wǎng)頁的文件到指定路徑。實(shí)現(xiàn)方法如下：（1）新建一個(gè)工程，并新建一個(gè)窗體。（2）雙擊工具箱中的Inet圖標(biāo)，自動(dòng)在窗體中心添加一個(gè)網(wǎng)絡(luò)傳輸控件Inet1，其他屬性使用默認(rèn)值。（3）雙擊工具箱中的CommandButton圖標(biāo)，自動(dòng)在窗體中心添加一個(gè)CommandButton控件，設(shè)置Caption屬性為“傳輸文件”。（4）雙擊空白窗體，彈出代碼編輯窗口，輸入以下代碼：說明：該代碼指定userName和password屬性內(nèi)容，打開Microsoft公司ftp站點(diǎn)，使用Execute()方法get參數(shù)傳輸test.txt文件到c盤。（5）按下F5鍵運(yùn)行程序。運(yùn)行窗

15、體如圖16.3所示。圖16.3 示例16-2的運(yùn)行結(jié)果該實(shí)例只是一個(gè)演示程序，如果真正需要登錄到指定網(wǎng)站，必須擁有登錄該網(wǎng)站的用戶名和密碼。16.2 應(yīng)用程序顯示網(wǎng)頁開發(fā)人員在使用Visual Basic開發(fā)應(yīng)用程序時(shí)，可能需要將Internet瀏覽功能添加到標(biāo)準(zhǔn)程序中。用戶只需要單擊一個(gè)鏈接，可以自動(dòng)在程序中瀏覽網(wǎng)頁內(nèi)容。通過WebBrowser控件可以非常容易地實(shí)現(xiàn)該功能。WebBrowser控件不是Visual Basic中內(nèi)置控件，必須手動(dòng)添加到工具箱。選擇“工程”|“部件”命令，彈出“添加部件”窗體。選擇“Microsoft Internet Controls”復(fù)選框，如圖16.4所

16、示。圖16.4 添加WebBrowser控件窗體16.2.1 創(chuàng)建瀏覽器WebBrowser控件Windows系統(tǒng)默認(rèn)安裝Internet Explorer時(shí)已經(jīng)安裝WebBrowser控件。在Visual Basic應(yīng)用程序中，瀏覽網(wǎng)頁非常簡(jiǎn)單。WebBrowser控件包含以下幾個(gè)重要屬性和事件。1Busy屬性該屬性返回Boolean數(shù)值。如果瀏覽器在與網(wǎng)絡(luò)服務(wù)器通信時(shí)，該數(shù)值為True。如果空閑該數(shù)值為False。在應(yīng)用程序中可以在Timer控件中判斷Busy屬性。如果為False，可以更新或下載網(wǎng)頁內(nèi)容。2Stop屬性該屬性類似Internet Explorer中的stop圖標(biāo)。如果網(wǎng)頁

17、通信狀況不好，需要長(zhǎng)時(shí)間來顯示內(nèi)容，可以使用該屬性停止顯示網(wǎng)頁。3Navigate方法WebBrowser控件中最重要的方法，用于打開指定的網(wǎng)頁。標(biāo)準(zhǔn)語法如下：object.navigate url參數(shù)說明：url為必需項(xiàng)，表示指定打開網(wǎng)頁地址內(nèi)容。【示例16-3】 使用Navigate方法打開網(wǎng)頁地址。代碼如下：WebBrowser1.navigate 說明：該代碼打開網(wǎng)站首頁。16.2.2 登錄瀏覽器除了16.2.1節(jié)使用WebBrowser登錄網(wǎng)頁外，還可以編程實(shí)現(xiàn)從應(yīng)用程序中登錄網(wǎng)絡(luò)瀏覽器。用戶只要熟悉內(nèi)置瀏覽器的操作方法可以自由地操作網(wǎng)頁。從應(yīng)用程序中登錄瀏覽器需要URL的定義Uni

18、form Resource Location統(tǒng)一資源定位器，又被稱為Internet快捷方式。Internet快捷方式指向固定的網(wǎng)站，格式類似普通文本文件。文件結(jié)構(gòu)如下：InternetShortcuturl=用戶可以在應(yīng)用程序中動(dòng)態(tài)創(chuàng)建該文件?！臼纠?6-4】 從應(yīng)用程序中打開瀏覽器。代碼如下：Dim n Integernfile = FreeFileOpen App.Path & skyrising.url For Output As #nfilePrint #nfile, InternetShortcutPrint #nfile, url=Close #nfile說明：以上代碼在程序目錄

19、下創(chuàng)建一個(gè)名為skyrising.url的快捷方式，網(wǎng)站鏈接至百度網(wǎng)站，即網(wǎng)站首頁。在應(yīng)用程序中調(diào)用該快捷方式使用Windows API函數(shù)ShellExecute()（有關(guān)API函數(shù)的使用請(qǐng)參見第17章訪問API和OLE控件）。該API函數(shù)的簡(jiǎn)單語法如下：Length = ShellExecute(hwnd, Open, appurl, , , vbNormalFocus)該函數(shù)返回一個(gè)整數(shù)。如果length為小于0或大于32的整數(shù)。顯示已經(jīng)執(zhí)行調(diào)用程序。【示例16-5】 應(yīng)用程序登錄瀏覽器。本節(jié)將使用Windows API函數(shù)ShellExecute()函數(shù)來打開一個(gè)skyrising.u

20、rl的快捷方式。（1）新建一個(gè)工程，并新建一個(gè)窗體。（2）雙擊工具箱中的CommandButton圖標(biāo)，自動(dòng)在窗體中心添加一個(gè)CommandButton控件，設(shè)置其Caption屬性為“登錄網(wǎng)站”。（3）添加模塊，輸入以下聲明代碼。（4）雙擊空白窗體，彈出代碼編輯窗口，輸入以下代碼：（4）按下F5鍵運(yùn)行程序。單擊“登錄網(wǎng)站”按鈕，自動(dòng)調(diào)用內(nèi)置瀏覽器如圖16.5所示。圖16.5 示例16-5的運(yùn)行結(jié)果16.3 電子郵件編程電子郵件已經(jīng)成為現(xiàn)代社會(huì)不可缺少的信息聯(lián)系方式。Visual Basic應(yīng)用程序開發(fā)中提供了對(duì)電子郵件開發(fā)的MAPI控件。消息處理應(yīng)用程序接口（Messaging Applic

21、ation Programming Interface，簡(jiǎn)稱MAPI）控件可用于創(chuàng)建具有電子郵件功能的Visual Basic應(yīng)用程序。在Visual Basic中，MAPI控件可用于與Windows內(nèi)置的消息系統(tǒng)進(jìn)行交互。如果使用該控件，必須安裝適應(yīng)MAPI的電子郵件系統(tǒng)，如Microsoft Exchange或者M(jìn)icrosoft Outlook。MAPI控件在運(yùn)行時(shí)是不可見的。MAPI控件不是Visual Basic中內(nèi)置控件，必須手動(dòng)添加。選擇“工程”|“部件”命令，彈出“部件”對(duì)話框。選擇“控件”選項(xiàng)卡中的“Microsoft MAPI Controls 6.0”復(fù)選框，單擊“確定”

22、按鈕，如圖16.6所示。工具箱中自動(dòng)添加兩個(gè)控件：MAPIsession和MAPImessages控件。圖16.6 添加部件窗體16.3.1 訪問郵箱使用MAPI控件操作電子郵件要建立Visual Basic與電子郵件系統(tǒng)之間的鏈接。建立鏈接需要使用MAPIsession控件。MAPIsession控件包含以下重要屬性和方法。1UserName和Password屬性用來向基本的消息系統(tǒng)提供合法的用戶名和密碼?？梢栽谠O(shè)計(jì)時(shí)設(shè)置這些屬性，也可以在運(yùn)行時(shí)提示用戶輸入。2LoginUI屬性需要向用戶提供基本的電子郵件系統(tǒng)登錄對(duì)話框時(shí)，將LoginUI屬性設(shè)置為True。如果不存在這樣的對(duì)話框，則忽略該

23、屬性。3NewSession屬性指定是否需要建立新的電子郵件會(huì)話。如果已經(jīng)建立了合法的會(huì)話，通過設(shè)置NewSession屬性可使兩個(gè)會(huì)話并發(fā)運(yùn)行。4DownloadMail屬性指定在當(dāng)前會(huì)話開始時(shí)，是否自動(dòng)下載該用戶的電子郵件。該值設(shè)置為True，可以把該用戶所有電子郵件下載到收件箱。根據(jù)不同的電子郵件系統(tǒng)速度和電子郵件數(shù)量，該操作有可能是很耗時(shí)的操作。通過將該屬性設(shè)置為False，用戶可以選擇是否等到以后再下載電子郵件，或者設(shè)置自動(dòng)下載電子郵件的時(shí)間間隔。5SignOn和SignOff方法設(shè)置了UserName和Password屬性后，可以在運(yùn)行時(shí)使用SignOn方法啟動(dòng)MAPI會(huì)話?！臼纠?/p>

24、16-6】 使用SignOn啟動(dòng)MAPI會(huì)話。mapiSession.SignOn說明：會(huì)話建立后，該會(huì)話的句柄被保存在SessionID屬性中。根據(jù)NewSession屬性的值，該會(huì)話句柄可能指向新創(chuàng)建的會(huì)話，也可能指向已經(jīng)存在的會(huì)話?！臼纠?6-7】 使用SignOff終止MAPI會(huì)話。Mapisession.Signoff6SessionID屬性使用SignOn方法成功地建立了消息處理會(huì)話后，SessionID屬性將返回一個(gè)唯一的消息處理會(huì)話句柄。SessionID的值可被MAPIMessages控件用來創(chuàng)建與合法消息處理會(huì)話的關(guān)聯(lián)。按照默認(rèn)規(guī)定，該值為0。16.3.2 收發(fā)電子郵件使用

25、MAPISession控件在消息處理會(huì)話中建立與郵件服務(wù)器的鏈接后，可以使用MAPIMessages控件接收、發(fā)送或閱讀收件箱中的消息。MAPIMessages控件提供了完成基本電子郵件任務(wù)的屬性和方法。這些基本任務(wù)有：收郵件、發(fā)送郵件、附加文件。1關(guān)聯(lián)SessionID屬性MAPIMessages控件的SessionID屬性包含了MAPISession控件的SessionID屬性返回的消息處理會(huì)話句柄。要使MAPIMessages控件與有效的消息處理會(huì)話相關(guān)聯(lián)，需要將該屬性設(shè)置為成功登錄的MAPISession控件的SessionID。mpmMessage.SessionID = mpsSe

26、ssion.SessionID2管理電子郵件登錄到電子郵件服務(wù)器后，可以訪問和管理注冊(cè)用戶的電子郵件。注冊(cè)用戶由MAPISession控件的UserName和Password屬性指定。電子郵件信箱保存所有郵件，包括已收和未收郵件。管理電子郵件是MAPIMessages控件的最基本的功能。編寫、發(fā)送、接收和刪除電子郵件等操作。表16.5列出了應(yīng)用于電子郵件的MAPIMessages()方法。表16.5 MAPIMessages控件方法3編寫電子郵件使用Compose()方法可以創(chuàng)建新電子郵件。使用Compose()方法后，編寫緩沖區(qū)被清空，并且MsgIndex屬性被設(shè)置為1。mapiMessag

27、e.Compose編寫電子郵件包括：收件人地址、郵件主題以及內(nèi)容。（1）收件人地址設(shè)置收件人的姓名和地址，可使用RecipDisplayName和RecipAddress屬性。其中，RecipDisplayName是收件人的有效姓名，如天空飛翔。RecipAddress屬性包含了收件人的電子郵件地址?！臼纠?6-8】 設(shè)置收件人姓名和地址。代碼如下：mpmMessage.RecipDisplayName = 天空飛翔mpmMessage.RecipAddress = （2）郵件主題和文本MsgSubject屬性指定了消息的主題。包括Null字符在內(nèi)，在主題中最多可以輸入64個(gè)字符。郵件文本信息包含在MsgNoteText屬性中?！臼纠?6-9】 設(shè)置郵件主題和文本。代碼如下：mpmMessage.MsgSubject = 關(guān)于具體問題回復(fù)mpmMessage.MsgNoteText = 問題已經(jīng)解決4發(fā)送電子郵件發(fā)送電子郵件可使用Send方法。Send方法在發(fā)送消息過程中允許與用戶進(jìn)行交互。該值設(shè)置為True，將顯示基本的電子郵件系統(tǒng)（如Microsoft Exchange）的編寫郵件對(duì)話框。其設(shè)置為False，則在發(fā)送消息過程中，不顯示撰寫消息