VB Winsock控件使用方法參考模板

1、用VB制作文件下載程序2001-12-22 20:19作者：出處：Yesky責(zé)任編輯：下載文件是每個(gè)網(wǎng)友都經(jīng)常做的事，大家一般都是用一些專(zhuān)用軟件如“網(wǎng)絡(luò)螞蟻”來(lái)完成。但是，如果要自己編寫(xiě)一個(gè)程序，實(shí)現(xiàn)下載一個(gè)特定的文件（如下載相關(guān)的網(wǎng)頁(yè)并顯示出來(lái)）又該怎么做呢？不要急，看了下面的介紹你就會(huì)知道實(shí)現(xiàn)文件的下載其實(shí)是很簡(jiǎn)單的。在VB中有一個(gè) Winsock 控件，通過(guò)它可以實(shí)現(xiàn)文件的下載。下面我首先介紹一下該控件的主要屬性、方法和事件：localPor屬性：設(shè)置本地計(jì)算機(jī)使用的端口（一般設(shè)置為0）；Protocol屬性：設(shè)置Winsock控件使用的協(xié)議，tcP或uDP（一般設(shè)置為0）；remote

2、Port屬性：設(shè)置要連接的遠(yuǎn)端計(jì)算機(jī)端口（80為HttP21為ftP，25為smtP）；remoteHost 屬性：設(shè)置用于標(biāo)識(shí)遠(yuǎn)程計(jì)算機(jī)的名稱（remotePort 屬性如果為 80 則設(shè)置為“soHucom”或“sinacomcn”，如果為 25 則設(shè)置為“smtP21cncom”）；connect方法：要求連接到遠(yuǎn)程計(jì)算機(jī)；close方法：關(guān)閉連接；senDData方法：將數(shù)據(jù)發(fā)送給遠(yuǎn)程計(jì)算機(jī)；GetData方法：獲取當(dāng)前的數(shù)據(jù)塊并將其存儲(chǔ)在變體類(lèi)型的變量中；connect事件：當(dāng)一個(gè)connect操作完成時(shí)發(fā)生；close事件：當(dāng)close操作完成時(shí)發(fā)生；DataarriVal事件：接

3、收數(shù)據(jù)時(shí)發(fā)生；下面我們就來(lái)實(shí)現(xiàn)文件的下載功能，并以下載搜狐網(wǎng)站的首頁(yè)為例：oPtion ePlicitDim myall as strinGPriVate suB formloaD建立連接Winsock1Protocol0Winsock1remoteHost "soHucom如果想下載"新浪"首頁(yè)，則換為 sinacomcnWinsock1remotePort 80Winsock1connect 開(kāi)始提取數(shù)據(jù)enD suBPriVate suB Winsock1connectDim strcommanD as strinGDim strWeBPaGe as str

4、inGstrWeBPaGe "Http/WWWosHucom/" 指定網(wǎng)頁(yè)，這里是指搜狐的首頁(yè)strcommanD "Get " strWeBPaGe " HttP/10" VBcrlfstrcommanD strcommanD "accePt/" VBcrlfstrcommanD strcommanD "accePttet/Html" VBcrlfstrcommanD strcommanD VBcrlfWinsock1senDData strcommanD 發(fā)送命令end sub2 / 3ri

5、Vate suB Winsock1DataarriValByVal Bytestotal as lonG開(kāi)始下載，收到數(shù)據(jù)時(shí)，發(fā)生DataarriVal事件on error resume netDim WebData as strinGWinsock1GetData WeBData VBstring myall myall WeBData 取得相關(guān)的網(wǎng)頁(yè)文件enD suBPriVate suB Winsock1close 當(dāng)下載完成時(shí)發(fā)生。自己定義相關(guān)的操作myall 是下載的網(wǎng)頁(yè)，你可以把它顯示在文本框中，也可把它保存為文件，也可通過(guò)一些自定義的函數(shù)進(jìn)行信息的提取，限于篇幅，這里就不介紹了。Winsock1close 關(guān)閉 WinsockenD suB到此為止，相信你已了