vb局域网聊天,请高手帮忙~

2008-10-30 20:38:25 提供者：局域网聊天 浏览次数

求一个vb局域网聊天的代码哪位高手愿意给我啊?邮箱是:huang33872168@sina.com 参考答案：一个简单的聊天程序 程序所需控件：Winsock控件，CommandButton控件（默认name），TextBox控件（一个名称为txtMess，另一个名称为txtSend） 程序代码如下： PrivateSubForm_Load() DimmyAsString Winsock1.Protocol=sckUDPProtocol'设置为UDP协义 Winsock1.LocalPort=10'设置计算机的端口，随便设置，不过两个要一样 Winsock1.RemotePort=10 my=Winsock1.LocalIP'取得自己的IP地址，是不要的 Winsock1.RemoteHost=my'这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息 EndSub PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)'取得数据时发生 DimTmpAsString Winsock1.GetDataTmp,vbString'取得数据 Tmp="对方位址:" Winsock1.RemoteHostIP "发言内容为--