下載文件是每個網(wǎng)友都經(jīng)常做的事，大家一般都是用一些專用軟件如“網(wǎng)絡(luò)螞蟻”來完成。但是，如果要自己編寫一個程序，實(shí)現(xiàn)下載一個特定的文件（如下載相關(guān)的網(wǎng)頁并顯示出來）又該怎么做呢？不要急，看了下面的介紹你就會知道實(shí)現(xiàn)文件的下載其實(shí)是很簡單的。

　　在VB中有一個Winsock控件，通過它可以實(shí)現(xiàn)文件的下載。下面我首先介紹一下該控件的主要屬性、方法和事件：

　　localPor屬性：設(shè)置本地計(jì)算機(jī)使用的端口（一般設(shè)置為0）；

　　strcommanD＝strcommanD＋VBcrlf
Winsock1．senDDatastrcommanD發(fā)送命令
endsub

[riVatesuBWinsock1＿DataarriVal??ByValBytestotalaslonG

　　開始下載，收到數(shù)據(jù)時，發(fā)生DataarriVal事件

onerrorresumeneｘt
DimWebDataasstrinG
Winsock1．GetDataWeBDataVBstringmyall＝myall＋WeBData取得相關(guān)的網(wǎng)頁文件
enDsuB
PriVatesuBWinsock1＿close當(dāng)下載完成時發(fā)生。

　　自己定義相關(guān)的操作

　　myall是下載的網(wǎng)頁，你可以把它顯示在文本框中，也可把它保存為文件，也可通過一些自定義的函數(shù)進(jìn)行信息的提取，限于篇幅，這里就不介紹了。

　　Winsock1．close關(guān)閉Winsock
　　enDsuB

　　到此為止，相信你已了解如何在VB中通過Winsock控件下載文件了。本程序在VB6.0、Win98環(huán)境下運(yùn)行正常，如果你還有什么問題，可到WWW．D1VB．com來，我們一起討論。