下載文件是每個網(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事件
onerrorresumenext
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來,我們一起討論。
->新聞熱點(diǎn)
疑難解答
圖片精選