蜜臀98精品國產免費觀看,原创国产AV剧情丝袜秘书,伊人久久综合狼伊人久久

樹結(jié)構(gòu)圖

TOP 10

您現(xiàn)在的位置： > 技術(shù)沙龍 > 程序設(shè)計(jì) > VB > 用VB制作文件下載程序

相關(guān)軟件
>用VB制作文件下載程序　創(chuàng)建者：webmaster　更新時(shí)間：2005-05-18 00:00

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

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

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

　　Protocol屬性：設(shè)置Winsock控件使用的協(xié)議，tcP或uDP（一般設(shè)置為0）；

　　remotePort屬性：設(shè)置要連接的遠(yuǎn)端計(jì)算機(jī)端口（80為HttP??21為ftP，25為smtP）；

　　remoteHost 屬性：設(shè)置用于標(biāo)識(shí)遠(yuǎn)程計(jì)算機(jī)的名稱（remotePort 屬性如果為 80 則設(shè)置為“soHu．com”或“sina．com．cn”，如果為 25 則設(shè)置為“smtP．21cn．com”）；
connect方法：要求連接到遠(yuǎn)程計(jì)算機(jī)；

　　close方法：關(guān)閉連接；

　　senDData方法：將數(shù)據(jù)發(fā)送給遠(yuǎn)程計(jì)算機(jī)；

　　GetData方法：獲取當(dāng)前的數(shù)據(jù)塊并將其存儲(chǔ)在變體類型的變量中；

　　connect事件：當(dāng)一個(gè)connect操作完成時(shí)發(fā)生；

　　close事件：當(dāng)close操作完成時(shí)發(fā)生；

　　DataarriVal事件：接收數(shù)據(jù)時(shí)發(fā)生；

　　下面我們就來實(shí)現(xiàn)文件的下載功能，并以下載搜狐網(wǎng)站的首頁為例：

oPtion eｘPlicit
Dim myall as strinG
PriVate suB form＿loaD
建立連接
Winsock1．Protocol＝0
Winsock1．remoteHost ＝ "soHu．com如果想下載"新浪"首頁，則換為 sina．com．cn
Winsock1．remotePort ＝ 80
Winsock1．connect 開始提取數(shù)據(jù)
enD suB
PriVate suB Winsock1＿connect
Dim strcommanD as strinG
Dim strWeBPaGe as strinG
strWeBPaGe ＝ "Http//WWW．osHu．com/" 指定網(wǎng)頁，這里是指搜狐的首頁
strcommanD ＝ "Get " ＋ strWeBPaGe ＋ " HttP/1．0" ＋ VBcrlf
strcommanD ＝ strcommanD ＋ "accePt/" ＋ VBcrlf
strcommanD ＝ strcommanD ＋ "accePtteｘt/Html" ＋ VBcrlf
strcommanD ＝ strcommanD ＋ VBcrlf
Winsock1．senDData strcommanD 發(fā)送命令
end sub

[riVate suB Winsock1＿DataarriVal??ByVal Bytestotal as lonG

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

on error resume neｘt
Dim WebData as strinG
Winsock1．GetData WeBData VBstring myall ＝ myall ＋ WeBData 取得相關(guān)的網(wǎng)頁文件
enD suB
PriVate suB Winsock1＿close 當(dāng)下載完成時(shí)發(fā)生。

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

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

　　Winsock1．close 關(guān)閉 Winsock
　　enD suB

　　到此為止，相信你已了解如何在VB中通過 Winsock 控件下載文件了。本程序在 VB6.0、Win98 環(huán)境下運(yùn)行正常，如果你還有什么問題，可到 WWW．D1VB．com來，我們一起討論。相關(guān)文章
- 前一則: 再談VB程序的加密
- 后一則: VB中讓窗體始終處于最前面
本頁查看次數(shù):

日本欧美视频在线观看,一级片欧美一出一进免费,在线+免费+欧美,国产精品视频在线观看,国产成人精品一区二区,成人免费视频一区