【正文】 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高。 軟件系統(tǒng)： Windows 9x 或更高版本 、 Visual Basic 中文版。其它正在進(jìn)行的 P2P 應(yīng)用還有， IBM、微軟、 Ariba也在合作開 展一個(gè)名為 UDDI的項(xiàng)目以將 B2B電子商務(wù)標(biāo)準(zhǔn)化； Eazel正在建立下一代的 Linux 桌面； Jabber 已經(jīng)開發(fā)了一種基于 XML、開放的即時(shí)訊息標(biāo)準(zhǔn)， Jabber 被認(rèn)為是建立了未來使用 P2P 數(shù)據(jù)交換的標(biāo)準(zhǔn)；由 Lotus Notes的開發(fā)者創(chuàng)建的 Groove 試圖 “ 幫助人們以全新的方式溝通 ” ；英特爾也在推廣它的 P2P 技術(shù)以幫助更有效地使用芯片的計(jì)算能力。 參與 P2P 峰會(huì)的有媒體不斷報(bào)道的那些提供文件交換服務(wù)如 Napster、Gnutella、 Free 的開發(fā)者，也有那些試圖挖掘 P2P分布計(jì)算能力的公司和組織如 Popular Power、 SETIhome、 等的開發(fā)者。如果他們能夠有機(jī)會(huì)交流思想， P2P 將會(huì)更快地發(fā)展。 今年 8月， O’Reilly又組織另一次峰會(huì)來幫助人們認(rèn)識(shí) P2P 的潛力和消除 Napster、 Gnutella 造成的P2P 是盜版技術(shù)的負(fù)面影響。開放源碼將人們從有缺陷的軟件、鎖定效應(yīng)和傳統(tǒng)的軟件分發(fā)渠道中 解脫出來。當(dāng)時(shí)著名出版人 O’reilly 組織了一次自由軟件峰會(huì)重新定義自由軟件，將自由軟件改名為開放源碼軟件 (open source software)。事實(shí)上 Free 更多的應(yīng)該指自由地探索想法、在軟件中表達(dá)出來和共享軟件?？梢哉f人們對(duì) P2P的理解是被誤導(dǎo)的和不完全的。 P2P 每個(gè)具有劃時(shí)代意義的創(chuàng)新出現(xiàn)的時(shí)候它往往可能被人們誤讀。 可以這樣看待P2P 帶來的轉(zhuǎn)變， “ 內(nèi)容位于中心 ” 模式較好的適應(yīng)了互聯(lián)網(wǎng)初期的情況，個(gè)人電腦性能太差因而需要有專門的服務(wù)器、帶寬太 窄使得個(gè)人電腦不得不退化到被動(dòng)瀏覽。人們可以通過無線聯(lián)網(wǎng) P2P訪問他們的個(gè)人電腦，這也就是一些公司所宣傳的個(gè)人化 P2P（ Personal P2P）的 “ 無線版本 ” 。 WAP 等移動(dòng)服務(wù)協(xié)議目前還主要關(guān) 注讓人們?nèi)ナ褂锰幱谥行牡纳虡I(yè)服務(wù)如新聞、股票信息等。 提供免費(fèi)個(gè)人主頁服務(wù)的公司存在的一個(gè)理由就是目前互聯(lián)網(wǎng)使得普通用戶很難擁有自己的服務(wù)器放置自己的內(nèi)容。直通桌面的寬帶網(wǎng)絡(luò)逐漸成為現(xiàn)實(shí)、個(gè)人電腦越來越強(qiáng)大足以勝任 “ 服務(wù)器 ” 功能也從另外的方面確保 P2P 發(fā)揮其能量。 上文對(duì) Napster 所遭遇的法律問題有很多討論，但是換個(gè)角度來闡述，盜版問題往往也正顯示存在大量未能滿足的需求。 互聯(lián)網(wǎng)的存儲(chǔ)模式將由現(xiàn)在的 “ 內(nèi)容位于中心 ” 模式轉(zhuǎn)變?yōu)?“ 內(nèi)容位于邊緣 ” 模式。 P2P 使得個(gè)人電腦再一次成為 “ 中心 ” 。用戶原來是用臺(tái)式電腦準(zhǔn)備好數(shù)據(jù)之后再把數(shù)據(jù)上載到服務(wù)器上去，而使用 P2P 將不再需要這個(gè)過程。 Napster 的成功使我們不得不去質(zhì)疑流傳已久的兩個(gè)斷言， “ 應(yīng)用服務(wù)提供商 (ASP)是未來趨勢(shì) ” 和 “ 個(gè)人電腦死了 ” 。 “ 邊緣 ” 我們來 看看 P2P 的更多激動(dòng)人心的東西和消除圍繞這個(gè)新詞的種種誤解，以及看看 P2P 的機(jī)會(huì)主要在哪兒。人們?cè)诰W(wǎng)絡(luò)上的主要活動(dòng)訪問了在這么門戶站點(diǎn)上，讀新聞、參與討論組、聊天和文件傳輸。 但是許多技術(shù)出現(xiàn)之后往往并不會(huì)完全按照原先的設(shè)計(jì)發(fā)展，服務(wù)器 /客戶機(jī)的架構(gòu)逐漸變成了互聯(lián)網(wǎng)的主流，瀏覽變成了人們?cè)诨ヂ?lián)網(wǎng)上最主要的生存方式。在這種情況下，美國(guó)的軍事人員充分發(fā)揮逆向思維，想到既然不可能長(zhǎng)期、有效地保護(hù)中心免受攻擊，那么還不如根本不設(shè)中心！讓每一個(gè)基地乃至每一臺(tái)電腦都能獨(dú)立運(yùn)作，這么一來等于有了無數(shù)中心，敵人除非真的將這個(gè)星球炸了，否則其中一個(gè)基地或電腦受損，也不影響其他基地或電腦繼續(xù)發(fā)揮作用。但在當(dāng)今的核武器年代，對(duì)方有著連一個(gè)星球都可以炸毀的核彈，再固若金湯的防御措施一旦受到攻擊肯定馬上化為烏有。 互聯(lián)網(wǎng)的發(fā)展于近現(xiàn)代的許多尖端科學(xué)技術(shù)的發(fā)展模式并無不同，即都是先在軍事工業(yè)形成，再轉(zhuǎn)到民用領(lǐng)域。 下面試圖用三句話來揭 示 P2P 的影響： 對(duì)等聯(lián)網(wǎng)：是只讀的網(wǎng)絡(luò)的終結(jié)（ Peertopeer is the end of the readonly Web） 對(duì)等聯(lián)網(wǎng)：使你重新參與互聯(lián)網(wǎng)（ Peertopeer allows you to participate in the Inter again） 對(duì)等聯(lián)網(wǎng)：使網(wǎng)絡(luò)遠(yuǎn)離電視 (Peertopeer steering the Inter away from TV)如上文所言， P2P 不是一個(gè)新思想，從某些角度看它甚至是整個(gè)最初創(chuàng)建互 聯(lián)網(wǎng)的最基本的思想 。當(dāng)然，真正在網(wǎng)絡(luò)上創(chuàng)造或提供內(nèi)容的人還是少數(shù)的，據(jù)統(tǒng)計(jì) Gnutella 的用戶中僅僅有 2%向其他用戶提供了內(nèi)容，即使在比較活躍的 Use 張貼文章的用戶也僅占所有用戶的 7%。與門戶站點(diǎn)從上而下建立社區(qū)的方式不同，人們將以自發(fā)的方式形成社區(qū)。是不是有一種和 WWW 剛剛出現(xiàn)的時(shí)候同樣的 激動(dòng)呢？有一點(diǎn)。人們通過P2P 可以共享硬盤上的文件、目錄甚至整個(gè)硬盤。記得新浪曾經(jīng)有一段時(shí)間說它們是 “ 目標(biāo)站點(diǎn) ” 模式，但是如果多問一句，現(xiàn)在人們一條一條地閱讀新浪的新聞，在頭腦中還有一個(gè) “ 網(wǎng) ” 的概念嗎？最大的問題是，這些站點(diǎn)控制了信息的流動(dòng)、充斥了過時(shí)的信息、阻礙了真正的交流，或者對(duì)于很多人來說，另外還有太多的廣告。那時(shí)的 web 是真正的 “ 網(wǎng) ” （ web）。 如果回顧一下，我們會(huì)發(fā)現(xiàn)在 WWW出現(xiàn)伊始 P2P就是互聯(lián)網(wǎng)的本質(zhì)特征之一。這也正是諸如 Gnutella和 Free 不斷的宣稱它們創(chuàng)造了 “ 純粹 ” 的 P2P，完全沒有中心服務(wù)器的 P2P服務(wù)。如果將 “ 交易 ” 的概念推廣， C2C 就是 P2P 的一個(gè)特例，這里人們互相交換的是商品。 另外一個(gè)可以歸入 P2P 是拍賣網(wǎng)站譬如 eBay，人們?cè)诳偨Y(jié) eBay 的模式的時(shí)候用了 C2C，是不是和 P2P 有一點(diǎn)類似？ eBay 就是一個(gè)將人們聯(lián)系的和交易物品的社區(qū)，用戶可以方便的搜索其他用戶叫賣的商品。用戶之間的信息交流不是直接的，需要有位于中心的服務(wù)器來協(xié)調(diào)。即時(shí)訊息系統(tǒng)譬如ICQ、 AOL Instant Messenger、 Yahoo Pager、微軟的 MSN Messenger 以及國(guó)內(nèi)的 OICQ 是最流行的 P2P 應(yīng)用。當(dāng)然，在許多人的眼中， Napster 并不是純粹的 P2P，它仍然需要一個(gè)處于中心協(xié)調(diào)機(jī)制。 Napster 的文件共享功能在局域網(wǎng)中共享目錄也是再平常不過的事情。當(dāng)然但是過去的 5 年里，互聯(lián)網(wǎng)的發(fā)展至少從表面上遠(yuǎn)離了 P2P，互聯(lián)網(wǎng)上絕大部分的節(jié)點(diǎn)也不能和其他節(jié)點(diǎn)直接地交流。以 為例，互聯(lián)網(wǎng)上并沒有一個(gè)巨大的、唯一的郵件服務(wù)器來處理所有的 ，而是對(duì)等聯(lián)網(wǎng)的郵件服務(wù)器相互協(xié)作把 傳送到相應(yīng)的 服務(wù)器上去。當(dāng)然，后來發(fā)展的那些架構(gòu)在 TCP/IP 之上的軟件的確采用了客戶機(jī) /服務(wù)器的結(jié)構(gòu)：瀏覽器和 Web 服務(wù)器，郵件客戶端和郵件服務(wù)器?；ヂ?lián)網(wǎng)最基本的協(xié)議 TCP/IP 并沒有客戶機(jī)和服務(wù)器的概念，所有的設(shè)備都是通訊的平等的一端。在現(xiàn)實(shí)生活中我們每天都按照 P2P模式面對(duì)面地或者通過電話交流和溝通。 P2P 另一個(gè)重要特點(diǎn)是改變互聯(lián)網(wǎng)現(xiàn)在的以大網(wǎng)站為中心的狀態(tài)、重返 “ 非中心化 ” ，并把權(quán)力交還給用戶。 P2P 使得網(wǎng)絡(luò)上的溝通變得容易、更直接共享和交互，真正地消除中間商。目前人們認(rèn)為其在加強(qiáng)網(wǎng)絡(luò)上人的交流、文件交換、分布計(jì)算等方面大有前途。 P2P 是 peertopeer 的縮寫， peer 在英語里有 “ （地位、能力等）同等者 ” 、“ 同事 ” 和 “ 伙伴 ” 等意義?？梢?實(shí)現(xiàn)兩臺(tái)機(jī)器間 互發(fā)消息，并且有聊天和文件傳輸記錄 ，安全可靠 。這些都有待進(jìn)一步改善。在摸索中學(xué)習(xí)，在困惑中探索，終于探究了一套較好的學(xué)習(xí)面向?qū)ο蟮某绦蛟O(shè)計(jì)的方法。 還有一個(gè)問題就是優(yōu)化 代 碼 ，提高執(zhí)行效率，使用更強(qiáng)的容錯(cuò)處理。 今后的工作就是增加多線程處理，添加多個(gè)用戶，實(shí)現(xiàn)真正的多人聊天和文件傳輸。 設(shè)計(jì)心得 經(jīng)過二個(gè)多月的設(shè)計(jì)和開發(fā)，點(diǎn)對(duì)點(diǎn)聊天和文件傳輸程序基本開發(fā)完畢。 Private Sub Form_Load() = = 1080 = 240 = 480 = 1180 End Sub 主要作用：設(shè)置 WebBrowser 的大小。 Private Sub Command3_Click() End Sub 主要作用：前進(jìn)一頁。 4． 4上網(wǎng)功能模塊的實(shí)現(xiàn) 運(yùn)行界面： 主要代碼： Private Sub Command1_Click() () End Sub 主要作用：設(shè)置 WebBrowser 的連接地址。) amp。 + 1 Status 接收數(shù)據(jù) ... amp。 NewArrival$ DataCntamp。 Data$ Case CloseFile 39。 \ amp。 server accepted connection bReplied = True Status 連接 . Case ServerClosed Form_Load Case OpenFile 39。 Private Sub cmdSend_Click() Dim FName_Only As String If txtFileName = Then MsgBox 你沒有選擇要發(fā)送的文件 ..., vbCritical Else If sckClosed Then FName_Only$ = GetFileName(txtFileName) SendFile FName_Only$ End If End If End Sub 主要作用：發(fā)送文件。 4． 3． 2 客戶端子模塊的實(shí)現(xiàn) 流程圖： 運(yùn)行界面： Y N 開始 等待連接服務(wù)器 是否連通 等待文件傳輸 主要代碼如下： 代碼基本上與服務(wù)器端類似。 bytes End Select End Sub 主要作用：文件傳輸。 (MAX_CHUNK * DataCntamp。 = DataCntamp。 a 4169 byte string of ining data Put 1, , NewArrival$ txtView = txtView amp。 Data$ Case CloseFile 39。 \ amp。 Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long) Dim Command As String Dim NewArrival As String Dim Data As String Static DataCnt As Long NewArrival$, vbString Command = EvalData(NewArrival$, 1) Data$ = EvalData(NewArrival$, 2) Select Case Command$ Case OpenFile 39。 Private Sub Form_Load() = Port bInconnection = False Status 偵察 .... (沒有連接 ) End Sub 主要作用：設(shè)置連接端口并偵察網(wǎng)絡(luò)。 Private Sub Winsockc_DataArrival(ByVal bytesTotal As Long) Dim mystr As String mystr = mystr End Sub 主要作用：更新消息框。 Private Sub get_Click() = End Sub Private Sub send_Click() = End Sub Private Sub txtsend_Change() If Then Else MsgBox 請(qǐng)先進(jìn)行連接再發(fā)送信息！ End If End Sub 主要作用：設(shè)置發(fā)送信息的內(nèi)容。 4． 2． 2 客戶端子模塊的實(shí)現(xiàn) 流程圖： 運(yùn)行界面 當(dāng)連接 成功后： 主要代碼： Private Sub Command1_Click() Y N 開始 連接服務(wù)器 是否連通 進(jìn)行聊天 = En