快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net聊天设计,vb设计语言特点

vb.net 怎样用UDP 协议 写一个聊天程序啊?如图

'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类毕业设计目录_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网吧管理系统》 本文来自: 一流设计吧() 详细出处参考:

vb.net2005 tcp聊天程序问题

‘客户端向这样写:在窗体说放两个文本框、两个标签、两个按钮、一个列表框

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

请问一下大虾们(vb.net) socket 作为聊天服务器(固定ip),客户端连接服

Server端不是要建立serversocket么,这个类会监听socket连接,客户端连接服务端的时候会携带本机(客户端)的ip,服务器接收连接,经过三次握手之后双方建立tcp连接,然后就可以通讯了,编写服务端的时候并不需要关心客户端发起连接的端口。

获取ip:socket.getInetAddress()

获取端口:socket.getPort();

VB.NET 如何实现局域网内即时会话

楼主你好,你所指的那个指令就是"winchat",Windows自带的局域网聊天工具.使用方法:开始--运行--输入winchat,就可以打开Winchat了.只能实现很简单的功能,并且是中文,没什么好介绍的,相信你一看就懂,希望可以帮到你!

ps:你所说的电影是杜拉拉升职记吧?貌似那是用的邮件发的,不小心点成群发了~嘿嘿..

VB.NET中能否做一个像QQ那样的聊天框,可以输入文字和图片?

第一个问题 qq聊天室 必须能 用vb都可以做

第二个问题 vb.net插入数学公式 可以把这些公式封装到一个类中,调用就是了


分享名称:vb.net聊天设计,vb设计语言特点
网页网址:http://6mz.cn/article/hdscdo.html

其他资讯