扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
'xiansr.2014/2/7 vb.net2010 调试通过
成都创新互联专业为企业提供桥东网站建设、桥东做网站、桥东网站设计、桥东网站制作等企业网站建设、网页设计与制作、桥东企业网站模板建站服务，10余年桥东做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim udpClient As New UdpClient(11000)
Try
udpClient.Connect("127.0.0.1", 11000)
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(RichTextBox1.Text)
udpClient.Send(sendBytes, sendBytes.Length)
Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)
Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)
Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)
RichTextBox2.Text = "接收到： " + returnData.ToString()
'Debug.Print(("This message was sent from " + RemoteIpEndPoint.Address.ToString() + " on their port number " + RemoteIpEndPoint.Port.ToString()))
udpClient.Close()
Catch ex As Exception
stop
End Try
End Sub
End Class
这里面有很多,你进去选一下,VB类毕业设计目录_VB毕业设计论文 双击自动滚屏 文章来源：一流设计吧 发布者：16sheji8 发布时间：2008-6-26 9:49:34 阅读：755次 VB目录《VB.NET聊天通信软件开发》 《VB001小区物业管理系统》 《VB002超市管理系统》 《VB003酒店客房管理信息系统》 《VB004宾馆客房管理系统》 《VB005企业生产管理系统》 《VB006客户关系管理系统》 《VB007设备管理信息系统》 《VB008工资管理系统》 《VB009自动出题题库系统》 《VB010试卷生成系统》 《VB011员工培训管理系统》 《VB012医院住房管理系统》 《VB013医院管理信息系统》 《VB014旅游资源及线路管理系统》 《VB015音像管理系统》 《VB016基于智能Agent的网络教学管理系统》 《VB017学生信息管理系统》 《VB018学生成绩管理系统》 《VB019图书馆管理系统》 《VB020毕业论文管理系统》 《VB021采购管理系统》 《VB022公交车调度管理系统》 《VB023通用缴费注册管理系统》 《VB024网吧记费管理系统》 《VB025高校科研信息管理系统》 《VB026机房管理系统》 《VB027教务管理系统》 《VB028备案管理信息系统》 《VB029进销存管理系统》 《VB030排课管理系统》 《VB031人事管理系统》 《VB032仓库管理系统》 《VB033餐饮管理系统》 《VB034售楼管理系统》 《VB035火车站售票管理系统》 《VB036运输管理系统》 《VB037固定资产管理系统》 《VB038航空公司管理系统》 《VB039家庭理财管理系统》 《VB040无纸化考试系统》 《VB041门诊管理系统》《VB042房屋销售管理系统》《VB043房屋租凭管理系统》《VB044失业保险管理信息系统》《VB045光盘管理系统》《VB046学籍管理系统》《VB047学生考勤信息管理》《VB048宿舍管理系统》《VB049图像处理工具》《VB050销售合同管理系统》《VB051招生管理系统》《VB052车辆管理系统》《VB053户籍管理系统》《VB054人事考勤管理系统》《VB055物流管理系统》《VB056学生档案管理系统》《VB057学生选课系统》《VB058身份证管理系统》《VB059自动点歌系统》《VB060课题项目进程管理系统》《VB061商品销售管理系统》《VB062中大迅通合同统计系统》《VB063上机考试系统》《VB064网络多人聊天系统的设计与实现》《VB065评语生成系统》《VB066高速公路收费系统》《VB067通用试题库系统》《VB068大学社团管理系统》《VB069报警系统》《VB070高校缴费系统》《VB071教师管理系统》《VB072教材管理系统》《VB073简单小游戏设计》VB074电脑销售系统》VB075期刊信息管理系统》VB076企业档案管理系统》VB077企业员工管理信息系统》VB078通讯录系统》VB079网吧管理系统》 本文来自: 一流设计吧() 详细出处参考：
‘客户端向这样写：在窗体说放两个文本框、两个标签、两个按钮、一个列表框
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading
Public Class Form1
'网络基础数据流
Private ns As NetworkStream
Private swriter As StreamWriter
Private nsread As StreamReader
Private tcpclient As TcpClient
Private tcpconnected As Boolean = False
Private clisocket As Socket
Private mythread As Thread
'发送
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.TextBox2.Text "" Then
swriter.WriteLine(Me.TextBox2.Text)
swriter.Flush()
Me.TextBox2.Text = ""
Else
MessageBox.Show("发送信息不能为空！", "错误提示")
End If
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'建立连连接
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ipremote As IPAddress
Dim tcpclient As TcpClient
Try
ipremote = IPAddress.Parse(Me.TextBox1.Text)
Catch ex As Exception
MessageBox.Show("IP地址不合法！", "错误提示")
End Try
Try
tcpclient = New TcpClient(Me.TextBox1.Text, 8000)
ns = tcpclient.GetStream
swriter = New StreamWriter(ns)
Me.StatusBar1.Text = "已经连接上"
Me.Button2.Enabled = False
Me.Button1.Enabled = True
tcpconnected = True
Catch ex As Exception
MessageBox.Show("无法与远程8000端口建立连接！", "错误提示")
End Try
End Sub
Private Sub listen()
Try
Dim tcplistener As New TcpListener(IPAddress.Parse("127.0.0.1"), 8000)
tcplistener.Start()
tcpclient = tcplistener.AcceptTcpClient
ns = tcpclient.GetStream()
nsread = New StreamReader(ns)
While True
Dim msg As String = nsread.ReadLine
If msg = "stop" Then
tcplistener.Stop()
ns.Close()
nsread.Close()
mythread.Abort()
Else
Dim mytime As String = DateTime.Now.ToShortTimeString
Me.ListBox1.Items.Add(mytime + " " + msg)
End If
End While
Catch ex As System.Security.SecurityException
MessageBox.Show("侦听失败！", "错误")
End Try
End Sub
End Class
Server端不是要建立serversocket么，这个类会监听socket连接，客户端连接服务端的时候会携带本机（客户端）的ip，服务器接收连接，经过三次握手之后双方建立tcp连接，然后就可以通讯了，编写服务端的时候并不需要关心客户端发起连接的端口。
获取ip：socket.getInetAddress()
获取端口:socket.getPort();
楼主你好,你所指的那个指令就是"winchat",Windows自带的局域网聊天工具.使用方法:开始--运行--输入winchat,就可以打开Winchat了.只能实现很简单的功能,并且是中文,没什么好介绍的,相信你一看就懂,希望可以帮到你!
ps:你所说的电影是杜拉拉升职记吧?貌似那是用的邮件发的,不小心点成群发了~嘿嘿..
第一个问题 qq聊天室 必须能 用vb都可以做
第二个问题 vb.net插入数学公式 可以把这些公式封装到一个类中，调用就是了
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网