Visual Basic 6 中使用WinSock深入浅出.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Visual Basic 6 中使用WinSock深入浅出

VB中使用WinSock控件编写网络程序   WinSock控件能够通过UDP协议(用户数据报协议)或TCP协议(数据传输协议)连接到远程的机器并进行数据交换。这两种协议都能用来创建客户端和服务端应用程序。就像定时器控件一样,WinSock控件运行时没有一个可视的界面。   可能的用途   创建客户端应用程序,它能在信息到达中央服务器之前把用户的信息收集起来。   创建服务端应用程序,它能作为来自多个用户的数据一个集中处理点。   创建“聊天”程序。   协议的选择   当我们使用WinSock控件时,首先要确定的是使用TCP还是UDP协议。它们之间主要的区别在于连接状态:   TCP协议控件是一个基于连接的协议,就像电话机一样,用户必须在通话之前建立连接;   UDP是一个无连接的协议,两台计算机之间的事务处理就像传纸条一样:一台计算机向另一台计算机发送消息,但是它们之间并没有一个明确的连接路径。另外,发送的单个信息量的大小取决于网络。   通常,你要创建的应用程序的类别就决定了你要选择的协议。以下是几个能够帮助你选择合适的协议的问题:   当发送或接收数据时,该应用程序需要从服务端或客户端获得认证吗?如果要的话,那么TCP协议就正好需要在发送或接受数据前建立明确的连接。   要发送的数据量大吗?(就像图片、声音文件之类)一旦建立了连接,TCP协议就会保持连接并保证数据的完整性。但是,这种连接会占用的更多的处理器资源,成本也会更高一些。   数据是陆续传输的,还是一次全部传完呢?比如,如果你要创建的应用程序在某些任务完成时会告知具体的计算机,那么选择UDP协议会更合适一些。UDP协议也更适合于发送小量数据。   协议的配置   配置你的应用程序所用到的协议:在设计阶段,单击工具窗口里的协议,选择sckTCPProtocol或sckUDPProtocol。你也可以在代码里配置协议,就像下面这样: Winsock1.Protocol=sckTCPProtocol   确定你的计算机名   要连接到远程的计算机,你必须知道它的IP地址或别名。IP地址是一串用句点分隔的3位数字。通常,计算机的别名更容易让人记住。   按下面的步骤可以找到你的计算机名:   在“任务栏”里单击“开始”   在“设置”选项里单击“控制面板”;   双击“网络”图标;   单击“网络标识”   在“计算机名”中显示的就是你的计算机名。   一旦你找到你的计算名,它就可以作为远程主机的属性来用了。   TCP连接入门   当用TCP控件创建应用程序的时候,必须首先明确你的程序是作为服务端还是客户端。创建服务端程序就意味着你的程序能够在指定的端口进行“监听”,而客户端则能够提出请求,服务端能够接受请求并实现连接。一旦连接建立起来,客户端和服务端就能够自由地进行通信。   创建服务端程序   下面是创建一个简单服务端程序的步骤:   创建一个标准EXE工程;   把默认窗体(Default form)的名字改为frmServer;   把form的标题(caption)改为TCP Server;   把Winsock控件拉到窗体中,并命名为tcpServer;   在窗体中添加2个文本框,分别命名为txtSendData和txtOutput‘   在窗体中加入下列代码;   Private Sub Form_Load() Set the LocalPort property to an integer. Then invoke the Listen method. tcpServer.LocalPort = 1001 tcpServer.Listen frmClient.Show Show the client form. End Sub Private Sub tcpServer_ConnectionRequest _ (ByVal requestID As Long) Check if the controls State is closed. If not, close the connection before accepting the new connection. If tcpServer.State sckClosed Then _ tcpServer.Close Accept the request with the requestID parameter. tcpServer.Accept requestID End Sub Private Sub txtSendData_Change() The TextBox control named txtSendData contains the data to b

文档评论(0)

xcs88858 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

版权声明书
用户编号:8130065136000003

1亿VIP精品文档

相关文档