?? vb20.htm
字號:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0057)http://www.pconline.com.cn/experience/subject/VB/vb20.htm -->
<HTML><HEAD><TITLE>|><| 太平洋電腦信息網</TITLE><!-- #BeginTemplate "/Templates/0723.dwt" --><!-- #BeginEditable "doctitle" --><!-- #EndEditable -->
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="vb20.files/text.css" rel=stylesheet>
<STYLE type=text/css>.sfont {
LINE-HEIGHT: 18pt
}
</STYLE>
<META content="MSHTML 5.00.2014.210" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD vAlign=top width="100%">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR bgColor=#303880>
<TD><A href="http://www.pconline.com.cn/"><IMG alt=太平洋電腦信息網 border=0
height=18 hspace=30 src="vb20.files/txtpconline.gif"
width=96></A><IMG height=10 src="vb20.files/blank.gif"
width=400></TD></TR></TBODY></TABLE></TD>
<TD align=right background=vb20.files/bw.gif noWrap width=130><IMG
height=26 src="vb20.files/bw.gif" width=10><A
href="http://www.pconline.com.cn/sitemap/"><IMG alt=網站地圖 border=0
height=26 src="vb20.files/sitemap.gif" width=21></A><IMG height=26
src="vb20.files/bw.gif" width=10><A
href="http://www.pconline.com.cn/tpy/"><IMG alt=關于太平洋 border=0 height=26
src="vb20.files/aboutus.gif" width=21></A><IMG height=26
src="vb20.files/bw.gif" width=10><A
href="http://www.pconline.com.cn/tpy/tariff.html"><IMG alt=與我們聯系 border=0
height=26 src="vb20.files/contact.gif" width=21></A><IMG height=26
src="vb20.files/bw.gif" width=10></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
<TBODY>
<TR>
<TD bgColor=#666666><IMG height=1 src="vb20.files/blank.gif" width=1></TD>
<TD bgColor=#666666><IMG height=1 src="vb20.files/blank.gif" width=1></TD>
<TD> </TD>
<TD colSpan=2 noWrap><A
href="http://www.pconline.com.cn/experience/index.html"><IMG
align=absBottom alt=企業之窗 border=0 height=15
src="vb20.files/txtexperience.gif" width=68></A> <A
href="http://www.pconline.com.cn/">首 頁</A> <A
href="http://www.pconline.com.cn/market/">今日報價</A> <A
href="http://www.pconline.com.cn/recommend/">產品推介</A> <A
href="http://www.pconline.com.cn/yp/">企業之窗</A> <A
href="http://www.pconline.com.cn/news/">科技新聞</A> <A
href="http://www.pconline.com.cn/product/">產品查詢</A> <A
href="http://www.pconline.com.cn/download/">軟件下載</A></TD></TR>
<TR>
<TD><IMG height=1 src="vb20.files/blank.gif" width=1></TD>
<TD><IMG height=1 src="vb20.files/blank.gif" width=1></TD>
<TD><IMG height=1 src="vb20.files/blank.gif" width=21></TD>
<TD bgColor=#ffa000 colSpan=2><IMG height=1 src="vb20.files/blank.gif"
width=1></TD></TR>
<TR>
<TD bgColor=#666666><IMG height=1 src="vb20.files/blank.gif" width=1></TD>
<TD bgColor=#cdcdcd><IMG height=5 src="vb20.files/blank.gif" width=1></TD>
<TD align=right colSpan=3><IMG height=6 src="vb20.files/ffa000.gif"
width=1></TD></TR>
<TR>
<TD bgColor=#666666><IMG height=1 src="vb20.files/blank.gif" width=1></TD>
<TD align=right><A href="http://www.pconline.com.cn/"><IMG alt=太平洋電腦信息網
border=0 height=35 src="vb20.files/pconline.com.cn.gif" vspace=10
width=162></A></TD>
<TD> </TD>
<TD vAlign=bottom><!-- #BeginEditable "important_news" --><IMG height=40
src="vb20.files/blank.gif" width=350><!-- #EndEditable --></TD>
<TD align=right vAlign=top><!-- #BeginEditable "adv_top" --><IMG alt=廣告位
height=43 src="vb20.files/icon.gif"
width=190><!-- #EndEditable --></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
<TBODY>
<TR>
<TD bgColor=#666666 width=1><IMG height=1 src="vb20.files/blank.gif"
width=1></TD>
<TD vAlign=top width=170><!-- #BeginEditable "addons" --><!--替代為附加信息 --><!-- #EndEditable --></TD>
<TD bgColor=#666666 width=1><IMG height=1 src="vb20.files/blank.gif"
width=1></TD>
<TD><IMG height=1 src="vb20.files/blank.gif" width=21></TD>
<TD colSpan=3 vAlign=top width=566><!-- #BeginEditable "1" -->
<DIV align=left>
<P><IMG height=1 src="vb20.files/blank.gif" width=566><BR><IMG height=1
src="vb20.files/666666.gif" width=420><BR><IMG height=13
src="vb20.files/blank.gif" width=1><A
href="http://www.pconline.com.cn/experience/">經驗共享</A> > <SPAN
class=greenb><A
href="http://www.pconline.com.cn/experience/subject/VB/index.html">專題教程</A></SPAN><A
href="http://www.pconline.com.cn/experience/subject/VB/index.html">
VB專區</A>> <BR><IMG height=1 src="vb20.files/666666.gif" vspace=1
width=420><BR></P>
<P align=center><FONT color=#118811><STRONG><FONT
color=#000066>用VB5中WinSock控件編寫網上聊天程序</FONT></STRONG></FONT> </P>
<P><BR><BR> Sockets是在Unix系統上提出來的，一開始主要是用于本地通訊，但很快就應用到C/S體系上。MicroSoft公司在此基礎上創建了WinSock控件，專門用于Windows接口，與Sockets完全兼容。Winsock控件對用戶來說是不可見的，它提供了訪問
TCP 和 UDP 網絡服務的方便途徑。Microsoft Access、Visual Basic、Visual C++ 或 Visual
FoxPro 的開發人員都可使用它。為編寫客戶或服務器應用程序，不必了解 TCP 的細節或調用低級的 Winsock
APIs。通過設置控件的屬性并調用其方法就可輕易連接到一臺遠程機器上去，并且還可雙向交換數據。下面就利用VB5中的WinSock控件編寫一個網上聊天程序。<BR><BR><STRONG><BR> 一）網絡通信協議的基礎和選擇<BR><BR></STRONG><BR> 1．1
TCP（數據傳輸協議）基礎<BR><BR> 數據傳輸協議允許創建和維護與遠程計算機的連接。連接兩臺計算機就可彼此進行數據傳輸。<BR> 如果創建客戶應用程序，就必須知道服務器計算機名或者
IP 地址（RemoteHost 屬性），還要知道進行“偵聽”的端口（RemotePort 屬性），然后調用 Connect
方法。<BR> 如果創建服務器應用程序，就應設置一個收聽端口（LocalPort 屬性）并調用 Listen 方法。當客戶計算機需要連接時就會發生
ConnectionRequest 事件。為了完成連接，可調用 ConnectionRequest 事件內的 Accept
方法。<BR> 建立連接后，任何一方計算機都可以收發數據。為了發送數據，可調用 SendData 方法。當接收數據時會發生 DataArrival
事件。調用 DataArrival 事件內的 GetData 方法就可獲取數據。<BR><BR> 1．2
UDP（用戶數據文報協議）基礎<BR><BR> 用戶數據文報協議 (UDP) 是一個無連接協議。跟 TCP 的操作不同，計算機并不建立連接。另外
UDP 應用程序可以是客戶機，也可以是服務器。<BR> 為了傳輸數據，首先要設置客戶計算機的 LocalPort 屬性。然后，服務器計算機只需將
RemoteHost 設置為客戶計算機的 Internet 地址，并將 RemotePort 屬性設置為跟客戶計算機的 LocalPort
屬性相同的端口，并調用 SendData 方法來著手發送信息。于是，客戶計算機使用 DataArrival 事件內的 GetData
方法來獲取已發送的信息。<BR><BR> 1．3 選擇通訊協議<BR><BR> 在使用 WinSock
控件時，首先需要考慮使用什么協議。可以使用的協議包括 TCP 和 UDP。兩種協議之間的重要區別在于它們的連接狀態：<BR> TCP
協議是有連接的協議，可以將它同電話系統相比。在開始數據傳輸之前，用戶必須先建立連接。<BR> UDP
協議是一種無連接協議，兩臺計算機之間的傳輸類似于傳遞郵件：消息從一臺計算機發送到另一臺計算機，但是兩者之間沒有明確的連接。另外，單次傳輸的最大數據量取決于具體的網絡。<BR><BR> 到底選擇哪一種協議通常是由需要創建的應用程序決定的。下面的幾個問題將有助于選擇適宜的協議：<BR><BR> 1.
在收發數據的時候，應用程序是否需要得到客戶端或者服務器的確認信息？如果需要，使用 TCP
協議，在收發數據之前先建立明確的連接。<BR><BR> 2. 數據量是否特別大（例如圖象與聲音文件）？在連接建立之后，TCP
協議將維護連接并確保數據的完整性。不過，這種連接需要更多的計算資源，因而是比較“昂貴”的。<BR><BR> 3.
數據發送是間歇的，還是在一個會話內？例如，如果應用程序在某個任務完成的時候需要通知某個計算機，UDP 協議是更適宜的。UDP
協議適合發送少量的數據。<BR><BR> 通訊協議的選擇是通過設置WinSock的Protocol屬性來實現的。下面選擇TCP通訊協議編寫網上聊天程序，在此之前必須知道一個極其重要的參數---服務器端的IP地址或計算機名。<BR><BR><STRONG> 二）確定計算機的名字<BR><BR></STRONG> 1.
在計算機的桌面上，右鍵單擊“網上鄰居”。<BR><BR> 2. 選擇“屬性”。<BR><BR> 3.
單擊“標識”選項卡。<BR><BR> 4. 在“計算機名稱”框中可以找到計算機的名稱。<BR><BR> 確定計算機的
IP地址<BR><BR> 1. 單擊“任務條”上的“啟動”。<BR><BR> 2. 選擇“運行”。<BR><BR> 3.
若服務器端操作系統為win95則在“打開”中填入“winipcfg”，若服務器端操作系統為winnt則在“打開”中填入“ipconfig”。<BR><BR> 4.
按下“確定”鍵。<BR><BR> 上面找到的計算機名稱或IP地址可以作為WinSock的RemoteHost
屬性的值。<BR><BR><STRONG> 三）
winsock控件的State屬性。<BR><BR></STRONG><BR></P></DIV>
<TABLE border=1 cellSpacing=1 width=354>
<CAPTION><SMALL>state 屬性的設置值是：</SMALL></CAPTION>
<TBODY>
<TR>
<TD width=160>
<P align=center><SMALL>常 數</SMALL> </P></TD>
<TD align=middle width=24><SMALL>值</SMALL></TD>
<TD width=152>
<P align=center><SMALL>描 述</SMALL> </P></TD></TR>
<TR>
<TD width=160><SMALL>sckclosed</SMALL></TD>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -