利用VB訪問Internet

2019-11-18 17:45:27

字體：大中小

來源：轉載

供稿：網友

當前,有許多構造模塊可以幫助用戶創建名為超客戶端(richclient)的Internet應用,其中包括VisualBasic(以下簡稱VB)的ActiveX控件集合。它們可以提供SMTP和POP郵件服務、FTP、Newsgroup和Web訪問等功能。另外,利用OLE也可以實現Web訪問的自動化。本文向大家介紹這兩種方法。

在應用中嵌入ActiveX控件

利用Crescent的InternetToolpak(Internet工具包)符合HTTP協議的控件,可以將VB應用連接到Web站點,向站點傳送數據,并從站點獲取HTML頁面。CrescentHTTP控件不能實際顯示出下載的HTML頁面,但能使應用程序以字符串的形式使用頁面數據。例如,如果服務器產生一個名叫Myresult.html的HTML文件答復來自客戶端的請求,客戶端應用能夠通過與服務器建立的CrescentActiveX連接來獲取并下載這個文件。建立連接的代碼段如下:

CIHTTP1.HostName="myresult.myhost.com"CIHTTP1.URL="results/myresult.html"CIHTTP.ParseIncomingData=TrueCIHTTP1.ConnectToServer一旦ActiveX控件與服務器建立連接,它就會觸發HTTPServerConnection事件。這時,應用程序發出命令CIHTTP1.GET,檢索URL屬性中指定的頁面,然后該控件激活FileClosed事件取回指定的頁面。應用程序通過ActiveX的屬性HTMLPageTextWithTags(主頁不嵌有HTML代碼時用屬性HTMLPageTextWithOutTags)讀頁面文本。代碼如下:

mytext=CIHTTP1.HTMLPageTextWithTags如果不想用控件下載整個主頁,可以通過控件的PacketReceived事件的Packet參數快速掃描頁面數據。每當控件接受到服務器的數據后都會激活PacketReceived事件。

另外,客戶端應用還可以使用HTTP控件提取來自標準瀏覽器的Web頁面數據。例如,ActiveX控件在幕后與Web建立連接并下載正在發布的頁面,讓傳統的客戶端應用不斷接收最新Web信息,更改原有內容。

為進一步簡化處理,在ActiveX控件與Web頁面相連之前需設置好屬性。Crescent的HTTP控件還可以把下載頁面的URL地址、圖像文件的地址和所有HTML命令文件分別添加到指定的三個列表框中。

用OLE實現Web訪問的自動化

除了ActiveX控件以外,還有一種方法可以實現應用程序與Web的交互自動化,這就是OLE自動化,即利用OLEAutomation建立傳統應用,再通過瀏覽器的OLEAutomation服務器接口進行自動Web連接。NetscapeNavigator和MicrosoftInternetExplorer3.0以上版本都支持OLEAutomation。

NetscapeNavigator的OLEAutomation接口是專為這一目的而設計的。例如,通過OLEAutomation接口讓Navigator打開一個Web頁面,它不會在自身的瀏覽器窗口中顯示這個頁面,而是下載該頁面的內容,復制到服務器對象的數據緩沖區中,讓客戶端的應用程序去訪問這些內容。

例如,假設需要Navigator在Excel中打開一個Web頁面,首先必須使用Excel的"引用"對話框引用Navigator程序目錄中的Netscape.TLB庫,然后把Navigator對象作為一個實例,并完成打開頁面的功能。代碼如下:

DimNavasObject,resultasBooleanDimurl$ConsturlGet=0ConsturlPost=1url$=http://www.microsoft.com/indev/default.htmsetNav=CreatObject("netscape.network")result=Nav.Open(url$,urlGet,",",0,"")如果自動化對象的屬性IsFinished設置為True,就可以通過對象緩沖區仔細處理頁面中的內容。->

上一篇：在VB中操縱OLE服務器應用程序

下一篇：VB開發通訊軟件