利用VB訪問Internet

利用VB訪問Internet

當前,有許多構造模組可以協助使用者建立名為超用戶端(rich client)的Internet應用, 其中包括Visual Basic(以下簡稱VB)的ActiveX控制項集合。它們可以提供SMTP和POP郵件服務、FTP、Newsgroup和Web訪問等功能。另外,利用OLE也可以實現Web訪問的自動化。本文向大家介紹這兩種方法。 在應用中嵌入Active X控制項 利用Crescent的Internet Toolpak(Internet 工具包)符合HTTP協議的控制項,可以將VB應用串連到Web網站,向網站傳送資料,並從網站擷取HTML頁面。Crescent HTTP控制項不能實際顯示出下載的HTML頁面,但能使應用程式以字串的形式使用頁面資料。例如,如果伺服器產生一個名叫Myresult.html的HTML檔案回覆來自用戶端的請求,用戶端應用能夠通過與伺服器建立的Crescent Active X串連來擷取並下載這個檔案。建立串連的程式碼片段如下: CIHTTP1.HostName="myresult.myhost.com"CIHTTP1.URL="results/myresult.html"CI HTTP.ParseIncomingData = TrueCIHTTP1.ConnectToServer一旦Active X控制項與伺服器建立串連,它就會觸發HTTPServerConnection事件。這時,應用程式發出命令CIHTTP1.GET,檢索U RL屬性中指定的頁面,然後該控制項啟用FileClosed事件取回指定的頁面。應用程式通過Acti ve X的屬性HTMLPageText WithTags(首頁不嵌有HTML代碼時用屬性HTMLPageTextWithOutTa gs)讀頁面文本。代碼如下: mytext= CIHTTP1. HTMLPageTextWithTags如果不想用控制項下載整個首頁,可以通過控制項的PacketReceived事件的Packet參數快速掃描頁面資料。每當控制項接受到伺服器的資料後都會啟用PacketReceived事件。 另外,用戶端應用還可以使用HTTP控制項提取來自標準瀏覽器的Web頁面資料。例如,Acti veX控制項在幕後與Web建立串連並下載正在發布的頁面,讓傳統的用戶端應用不斷接收最新We b資訊,更改原有內容。 為進一步簡化處理,在ActiveX控制項與Web頁面相連之前需設定好屬性。Crescent的HTTP 控制項還可以把下載頁面的URL地址、影像檔的地址和所有HTML命令檔案分別添加到指定的三個列表框中。 用OLE實現Web訪問的自動化 除了ActiveX控制項以外,還有一種方法可以實現應用程式與Web的互動自動化,這就是OLE 自動化,即利用OLE Automation建立傳統應用,再通過瀏覽器的OLE Automation伺服器介面進行自動Web串連。Netscape Navigator 和Microsoft Internet Explorer 3.0 以上版本都支援OLE Automation。 Netscape Navigator的OLE Automation介面是專為這一目的而設計的。例如,通過OLE Automation介面讓Navigator開啟一個Web頁面,它不會在自身的瀏覽器視窗中顯示這個頁面 ,而是下載該頁面的內容,複製到伺服器對象的資料緩衝區中,讓用戶端的應用程式去訪問這些內容。 例如,假設需要Navigator在Excel中開啟一個Web頁面,首先必須使用Excel的"引用"對話方塊引用Navigator程式目錄中的Netscape.TLB庫,然後把Navigator對象作為一個執行個體,並完成開啟頁面的功能。代碼如下: Dim Nav as Object, result as BooleanDim url$Const urlGet=0Const urlPost=1ur l$=http://www.microsoft.com/indev/default.htmset Nav=CreatObject("netscape.netw ork")result=Nav.Open(url$,urlGet,",",0," ")如果Automation 物件的屬性IsFinished設定為 True,就可以通過對象緩衝區仔細處理頁面中的內容