也发一个VB.net里面基于socket实现TCP/IP通许范例。

wenluderen 2018-10-02 09:34:55
加精
为啥是也发,因为:
https://bbs.csdn.net/topics/392456327

原帖说的不错,关键是第三步。

服务器代码:

Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Imports Microsoft.VisualBasic
Public Class Form1
Dim s As Socket = Nothing
Dim t As Thread


Public Sub WaitData()
s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) '使用TCP协议
Dim localEndPoint As New IPEndPoint(IPAddress.Parse("192.168.1.12"), 1024) ' 指定IP和Port
s.Bind(localEndPoint) ' 绑定到该Socket
s.Listen(100) ' 侦听,考试#大提示最多接受100个连接
While (True)
Dim bytes(1024) As Byte ' 用来存储接收到的字节
Dim ss As Socket = s.Accept() '若接收到,则创建一个新的Socket与之连接
ss.Receive(bytes) ' 接收数据,若用ss.send(Byte()),则发送数据


'Dim Send_bytes() As Byte = {"1", "3"} ' 用来存储接收到的字节
'ss.Send(Send_bytes(0))

Call ShowinListBox(Encoding.Unicode.GetString(bytes), ListBox1)
'若使用Encoding.ASCII.GetString(bytes),则接收到的中文字符不能正常显示
End While
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
t = New Thread(AddressOf WaitData) '建立新的线程
t.Start() '启动线程
Button1.Enabled = False '按钮不可用,避免另启线程
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
s.Close() '关闭Socket
t.Abort() '中止线程
Catch
Finally
Button1.Enabled = True '启用BtnStart
End Try
End Sub

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Try
s.Close() '关闭Socket
t.Abort() '中止线程
Catch
Finally
Button1.Enabled = True '启用BtnStart
End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub


End Class



客户端代码


Imports System.Net.Sockets
Imports System.Net
Imports System.Text


Public Class Form1

Private s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button_Open_Click(sender As Object, e As EventArgs) Handles Button_Open.Click
Try
Dim localEndPoint As New IPEndPoint(IPAddress.Parse(Me.TextBox_Server_IP.Text), Me.TextBox_Server_Port.Text)

s.Connect(localEndPoint)


Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim Gsz_bytes() As Byte

' Gsz_bytes = Encoding.Unicode.GetBytes(TextBox_Send.Text)
' Gsz_bytes = Encoding.UTF8.GetBytes(TextBox_Send.Text) '这是可以的
Gsz_bytes = System.Text.Encoding.ASCII.GetBytes(TextBox_Send.Text)
s.Send(Gsz_bytes)


Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub Button_Close_Click(sender As Object, e As EventArgs) Handles Button_Close.Click
Try
s.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub
End Class



源程序,VS2012可以打开

没有办法上传附件,所以上传到资源区了
https://download.csdn.net/download/wenluderen/10699573
...全文
3998 15 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
hbhuo2008 2019-02-27
  • 打赏
  • 举报
回复
请教各位大神,如何将每次连接到的socket保存起来,下次发送的时候再用到?
吹风的兔子 2019-02-23
  • 打赏
  • 举报
回复
这个不是应该发博文的么? 怎么发到 论坛来了?
gaoqd999 2019-02-23
  • 打赏
  • 举报
回复
拜读了,很好
chuiwei 2019-02-12
  • 打赏
  • 举报
回复
很好很强大
绝对刀锋 2019-01-29
  • 打赏
  • 举报
回复
好久不见
非常好
ly5222518000 2019-01-27
  • 打赏
  • 举报
回复
客户端和服务端的编码都一致就不会乱码了,约定好都用UTF8或者Unicode
Buffer缓冲区第一位留出来做自定义通信协议
ly5222518000 2019-01-27
  • 打赏
  • 举报
回复
不错不错,其实.net推荐的是用TcpClient和TcpListener来代表客户端和服务端哦,而不是直接用socket(2, 1, 6)
qq_25818421 2019-01-27
  • 打赏
  • 举报
回复
学习学习,好久没看了
weixin_42270174 2019-01-22
  • 打赏
  • 举报
回复
好极了,学习中。
baidu_14933765 2018-12-06
  • 打赏
  • 举报
回复
育培 2018-11-30
  • 打赏
  • 举报
回复
学习学习,长长知识
threenewbee 2018-10-03
  • 打赏
  • 举报
回复
感谢分享,给你推荐下,应该还会有C币给你。
wenluderen 2018-10-02
  • 打赏
  • 举报
回复
客户端的代码。 Encoding.Unicode.GetBytes(TextBox_Send.Text) Encoding.UTF8.GetBytes(TextBox_Send.Text) System.Text.Encoding.ASCII.GetBytes(TextBox_Send.Text) 我猜测是将发送的字符按照对应的编码方式 转化为 Bytes数组。然后发送到出去 ××××××××××××××××××××××××××××××××××××××××××××××××× 在服务器那端,执行逆运算。 Dim bytes(1024) As Byte ' 用来存储接收到的字节 Dim ss As Socket = s.Accept() '若接收到,则创建一个新的Socket与之连接 ss.Receive(bytes) ' 接收数据,若用ss.send(Byte()) Encoding.Unicode.GetString(bytes) 将字符数组 转化为字符串,然后显示出来 ××× 如果服务器 和客户端的转码方式不一样,就可能受到 乱码
wenluderen 2018-10-02
  • 打赏
  • 举报
回复
如上图所示 即可
wenluderen 2018-10-02
  • 打赏
  • 举报
回复
原因是:发送和接受的数据变换不一致 发送是: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim Gsz_bytes() As Byte ' Gsz_bytes = Encoding.Unicode.GetBytes(TextBox_Send.Text) ' Gsz_bytes = Encoding.UTF8.GetBytes(TextBox_Send.Text) '这是可以的 Gsz_bytes = System.Text.Encoding.ASCII.GetBytes(TextBox_Send.Text) s.Send(Gsz_bytes) Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub 接受是: While (True) Dim bytes(1024) As Byte ' 用来存储接收到的字节 Dim ss As Socket = s.Accept() '若接收到,则创建一个新的Socket与之连接 ss.Receive(bytes) ' 接收数据,若用ss.send(Byte()),则发送数据 'Dim Send_bytes() As Byte = {"1", "3"} ' 用来存储接收到的字节 'ss.Send(Send_bytes(0)) Call ShowinListBox(Encoding.Unicode.GetString(bytes), ListBox1) '若使用Encoding.ASCII.GetString(bytes),则接收到的中文字符不能正常显示 End While 将他们统一即可

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧