vb winsock 聊天程序 server端程序
'发送端：添加一个按钮一个文本框一个winsock控件，所有名称默认不变，粘贴代码：
Option Explicit
Private Sub Command1_Click()
Dim s As String
s = Text1.Text
Winsock1.SendData s
End Sub
Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol
Winsock1.Connect "127.0.0.1", 9999
End Sub
'======================================
===================================
'以下是接收方代码：
'添加一个winsock 一个文本框即可
Option Explicit
Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = 9999
Winsock1.Bind
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s
Text1.Text = s
End Sub
'这是个简单的，你要复杂的东西我也可以给你做加我百度HI详细说把
其实差不多，只要服务器端在公网中就可以了，最好能够有一个固定的IP地址
详细的可以Hi我聊一下
这个事件是处理新连接请求的。
If Winsock1.Count <> 1 Then
'count显然是计数的意思，即：如果当前已经装载的socket数目不等于1
（初始状态有一个socket（即Winsock1(0)）），就说明有2个以上的连接请求，因此需要装载新的socket来应答连接。
For i = 1 To Winsock1.Count - 1
If blnArray(i) = False Then
'blnArray这个数组只是个标记作用，用来标记Winsock1(i)是否可用，即是否已在接收连接。
Winsock1(i).Accept requestID
其次，ReDim：
ReDim是用来给动态数组分配实际大小的，我建议你去看看VB的MSDN，上面说的比较清楚。
最后，
整个代码的作用就是能连接多个客户端的服务端聊天室，相信你应该知道。如果你没看过只连接一个客户端的程序，建议你先看看那个，之后再结合MSDN来看这个。
其实我也是最近才开始学VB，说的可能不完全正确。
前蕊硝普： 用winsock控件,TCP模式:一个程序作为服务器一直处于监听状态,一个程序作为客户端连接服务器,连接成功后,用接收和发送两个方法收发数据即可,1对多,设置好IP和端口即可.UDP模式:直接利用IP和端口连接,1对1.
宣威市13251006876： 在vb里面用winsock做了一个聊天工具,分为主机端和客户端,怎么用winsock互相发送图片 - ？
前蕊硝普： 把图片保存到一个字节数组中s,然后发送数组接受数组再现实图片就好了
宣威市13251006876： 重赏!请在VB中使用Microsoft winsock control6.0制作一个简单的聊天软件 - ？
前蕊硝普： 说实话,这100分我很想要,但你想要的东西有点太不明确了,代码可以随时给你写出来,但那样你还是不会太明白的,所以,最好还是加上我的QQ,实时的帮你解决问题,共同学习! 首先,你要的是广域网程序,你所谓的网络壁垒是指什么...
宣威市13251006876： 在VB中如何让两台电脑联机并可以相互收发信息?(类似QQ聊天) - ？
前蕊硝普： 用Winsock 实现聊天的程序 一个简单的聊天程序 程序所需控件:Winsock控件,CommandButton控件(默认name),TextBox控件(一个名称为txtMess,另一个名称为txtSend) 程序代码如下: Private Sub Form_Load() Dim my As String ...
宣威市13251006876： VB里面winsock类是用来做什么的..？
前蕊硝普： WinSock控件的使用,WinSock是一种可以快速实现网络数据传输的控件.他能实现TCP协议通信,UDP协议通信.比如以个聊天程序应用程序,因为不是B/S(也就是居于浏览器的),那怎么能实现消息的远程实时的发送和接受呢?要需要建立一个套接字通道,能后两方利用这个端口来通信.具体的socket可以看浏览百度百科: http://baike.baidu.com/view/13870.html?wtp=tt 和这个 http://wenku.baidu.com/view/c9c9f41fb7360b4c2e3f6439.html.希望你能理解
宣威市13251006876： VB制作聊天工具 - ？
前蕊硝普： 所谓＂聊天＂是指两个程序能够发送数据给对方.这个程序涉及到数据通讯的知识,仿佛很复杂,不过,由于VB给我们提供了一个Winsock控件,问题就变得很简单了. 先编写＂聊天(主机)＂程序.在窗体里添加Winsock控件,并设置其...
宣威市13251006876： vb6.0 winsock的理解 不懂·~~~[ - ？
前蕊硝普： 这个控件本身有一些属性以供与别的IP想连接,检测收到新的信息以及向外发送...
宣威市13251006876： VB中的Winsock的功能与使用? - ？
前蕊硝普： 全部手工输入...抄袭可耻楼主啊..说实在的Winsock还真是个好东西..网络游戏.还有聊天都离不开他..说一下用法吧.. ..连接两台电脑进行信息来往..连接所需要的东西我假设一下吧..局域网中存在A机与B机..你在B机中放入这么一个程序..winsock...
宣威市13251006876： 如何用VB制作简单的局域网聊天工具?？
前蕊硝普： VB中的winsock可以提供支持,具体的代码部分你可以在网上搜索一下.
宣威市13251006876： VB Winsock最简单的;聊天程序源代码？
前蕊硝普： 代码有. 但是,网络聊天要解决【把ip地址通知给对方】的问题,通常是使用网络服务器做中转,类似于QQ或某些木马程序. 留个信箱吧!
