下载此文档

VB[1].NET通过Socket实现字符串发送与接收程序.doc


文档分类:IT计算机 | 页数:约4页 举报非法文档有奖
1/4
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/4 下载此文档
文档列表 文档介绍
先查看MSDN帮助系统,找到socket类,有详细的创建套接字、使用套接字侦听、使用客户端套接字的说明。 2003,工程,名称为Server。在界面上添加一个列表框,两个按钮。界面如图所示: 我们使用多线程来实现先导入命名空间: .sockets 定义两个窗体变量 DimsAsSocket=Nothing DimtAsThread 新建一个过程,用于处理接收到的Socket数据包 PublicSubWaitData() s=NewSocket(,,)'''使用TCP协议 DimlocalEndPointAsNewIPEndPoint((""),1024) '''指定IP和Port (localEndPoint) '''绑定到该Socket (100) '''侦听,考试#大提示最多接受100个连接 While(True) Dimbytes(1024)AsByte '''用来存储接收到的字节 DimssAsSocket=() '''若接收到,则创建一个新的Socket与之连接 (bytes) '''接收数据,(Byte()),则发送数据 (0,(bytes))'''将其插入到列表框的第一项之前'''(bytes),则接收到的中文字符不能正常显示 EndWhile EndSub 在BtnStart的click事件中,加入如下代码: t=NewThread(AddressOfWaitData) '''建立新的线程 () '''启动线程 =False '''按钮不可用,避免另启线程在BtnStop的click事件中,加入如下代码: Try () '''关闭Socket () '''中止线程 Catch Finally =True '''启用BtnStart EndTry 为了防止用户不点击Stop直接退出,而不能使线程结束,则应在窗体的closi

VB[1].NET通过Socket实现字符串发送与接收程序 来自淘豆网www.taodocs.com转载请标明出处.

相关文档 更多>>
非法内容举报中心
文档信息
  • 页数4
  • 收藏数0 收藏
  • 顶次数0
  • 上传人cjc201601
  • 文件大小65 KB
  • 时间2019-10-18