-
本版专家分：60结帖率 0% -
前端时间一直在搞VB.net里面的socket通讯。
或是说是在VB.net实现socket通讯
一些人也许知道，socket这个概念最早是UNIX里面的。 用于实现TCP/IP协议族里面的通讯。
后来被各家公司抄了过去，比如微软 Sun之类的。 目前很多语言里面 ，都是使用socket实现TCP/IP通讯的。或者说大都有socket这么个东西。
三张图：
特别是第三步 ，很很多人都是死这里的
源代码地址
https://download.csdn.net/download/weixin_42822828/10699552问题点数：50分
-
本版专家分：60
-
服务器 代码
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Public Class Form1
Private Class CSState
Public myTcpListener As TcpListener
Public ClientSocket As Socket
Public mystring As String
End Class
Private myDatatable As New DataTable
Private myTcpListener As TcpListener
Delegate Sub SetMsgCallBack(ByVal state As Object)
Private Sub DisplayMsg1(ByVal state As Object)
Dim myObj As New CSState
myObj = CType(state, CSState)
If Me.DataGridView1.InvokeRequired Then
Dim d As New SetMsgCallBack(AddressOf DisplayMsg1)
Me.Invoke(d, New Object() {myObj})
Else
Dim xRow As DataRow = myDatatable.NewRow()
xRow.Item(0) = CType(myObj.ClientSocket.RemoteEndPoint, IPEndPoint).Address.ToString()
xRow.Item(1) = CType(myObj.ClientSocket.RemoteEndPoint, IPEndPoint).Port.ToString()
xRow.Item(2) = myObj.mystring
myDatatable.Rows.Add(xRow)
End If
End Sub
Delegate Sub LbCallBack(ByVal myString As String, ByVal myColor As Color)
Private Sub ChangeLB(ByVal myString As String, ByVal myColor As Color)
If Me.Label2.InvokeRequired Then
Dim d As New LbCallBack(AddressOf ChangeLB)
Me.Invoke(d, New Object() {myString, myColor})
Else
Label2.Text = myString
Label2.ForeColor = myColor
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myDatatable.Columns.Add("IP")
myDatatable.Columns.Add("Port")
myDatatable.Columns.Add("Data")
DataGridView1.DataSource = myDatatable
DataGridView1.Columns(2).Width = 150
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Enabled = True Then
Dim iPort As Integer
iPort = NumericUpDown1.Value
Button1.Enabled = False
Button2.Enabled = True
Dim ListenThread As New Thread(AddressOf StartListen)
ListenThread.IsBackground = True
ListenThread.Start(iPort)
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Enabled = True Then
myTcpListener.Stop()
ChangeLB("TCP Listener 停止", Color.Red)
Button1.Enabled = True
Button2.Enabled = False
End If
End Sub
Private Sub StartListen(ByVal state As Object)
Dim iPort As Integer
iPort = CType(state, Integer)
myTcpListener = New TcpListener(IPAddress.Any, iPort)
Try
Dim ClientSocket As Socket
myTcpListener.Start()
Dim iCount As Integer = 0
ChangeLB("TCP Listener 已啟動", Color.Blue)
Do
ClientSocket = myTcpListener.AcceptSocket()
If ClientSocket.Connected = True Then
Dim myObj As New CSState
myObj.myTcpListener = myTcpListener
myObj.ClientSocket = ClientSocket
myObj.mystring = Now.ToString("yyyy/MM/dd HH:mm:ss") & "已連線"
DisplayMsg1(myObj)
Dim ReceiveThread As New Thread(AddressOf ReceiveData)
ReceiveThread.IsBackground = True
ReceiveThread.Start(myObj)
iCount += 1
End If
Loop
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try
End Sub
Private Sub ReceiveData(ByVal state As Object)
Dim myObj As New CSState
myObj.ClientSocket = CType(state, CSState).ClientSocket
myObj.myTcpListener = CType(state, CSState).myTcpListener
myObj.mystring = ""
Dim myNetworkStream As New NetworkStream(myObj.ClientSocket)
Dim InBytesCount As Integer = 0
Dim myReceiveBytes(1023) As Byte
Dim i As Integer = 0
While True
Try
InBytesCount = myNetworkStream.Read(myReceiveBytes, 0, myReceiveBytes.Length)
System.Threading.Thread.Sleep(100)
If InBytesCount = 0 Then
Exit While
End If
myObj.mystring = Encoding.GetEncoding(950).GetString(myReceiveBytes).TrimEnd().TrimStart()
DisplayMsg1(myObj)
Catch ex As Exception
MessageBox.Show(ex.ToString)
Exit Sub
End Try
End While
End Sub
End Class
-
本版专家分：60
-
客户端代码
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
Private myTcpClient As TcpClient
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Enabled = True
Button2.Enabled = False
Button3.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
Dim myIPEndPoint As New IPEndPoint(IPAddress.Any, 0)
myTcpClient = New TcpClient(myIPEndPoint)
Dim ServerIpAddress As IPAddress
Try
ServerIpAddress = IPAddress.Parse(TextBox1.Text)
Catch ex As Exception
MessageBox.Show("Server IP設定錯誤")
Exit Sub
End Try
Dim iPort As Integer
iPort = NumericUpDown1.Value
Dim RemoteIpEndPoint As New IPEndPoint(ServerIpAddress, iPort)
Try
myTcpClient.Connect(RemoteIpEndPoint)
Do
If myTcpClient.Connected = True Then
Label4.Text = "連線中"
Button1.Enabled = False
Button2.Enabled = True
Button3.Enabled = True
Exit Do
End If
Loop
Catch ex As Exception
MessageBox.Show(ex.ToString)
Label4.Text = "未連線"
Button1.Enabled = True
Button2.Enabled = False
Button3.Enabled = False
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ServerIpAddress As IPAddress
Try
ServerIpAddress = IPAddress.Parse(TextBox1.Text)
Catch ex As Exception
MessageBox.Show("Server IP設定錯誤")
Exit Sub
End Try
Dim iPort As Integer
iPort = NumericUpDown1.Value
Dim RemoteIpEndPoint As New IPEndPoint(ServerIpAddress, iPort)
Dim myNetworkStream As NetworkStream
Dim myBytes As Byte()
myBytes = Encoding.GetEncoding(950).GetBytes(Trim(TextBox2.Text).TrimEnd())
Try
myNetworkStream = myTcpClient.GetStream()
myNetworkStream.Write(myBytes, 0, myBytes.Length)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
myTcpClient.Close()
Label4.Text = "未連線"
Button1.Enabled = True
Button2.Enabled = False
Button3.Enabled = False
End Sub
End Class
-
本版专家分：0
-
骨骼精奇啊
这客户的发送代码和常规的不一样啊
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ServerIpAddress As IPAddress
Try
ServerIpAddress = IPAddress.Parse(TextBox1.Text)
Catch ex As Exception
MessageBox.Show("Server IP設定錯誤")
Exit Sub
End Try
Dim iPort As Integer
iPort = NumericUpDown1.Value
Dim RemoteIpEndPoint As New IPEndPoint(ServerIpAddress, iPort)
Dim myNetworkStream As NetworkStream
Dim myBytes As Byte()
myBytes = Encoding.GetEncoding(950).GetBytes(Trim(TextBox2.Text).TrimEnd())
Try
myNetworkStream = myTcpClient.GetStream()
myNetworkStream.Write(myBytes, 0, myBytes.Length)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
××××××××××
NetworkStream类提供了用于通过发送和接收数据的方法Stream处于阻止模式套接字。
啥意思
机器翻译过来的就是不太清晰明了
×××××××××××
若要创建NetworkStream，则必须提供连接Socket。使用Write和Read方法用于简单的单线程同步阻塞 I/O。
如果你想要处理 I/O 使用单独的线程，请考虑使用BeginWrite并EndWrite方法，或BeginRead和EndRead方法进行通信
https://docs.microsoft.com/zh-cn/dotnet/api/system.net.sockets.networkstream?redirectedfrom=MSDN&view=netframework-4.7.2
之前在内存映射里面，看到过流这个概念。 原来网络通讯里面 也有流这个概念
-
本版专家分：0
-
学习了.楼主辛苦了
-
本版专家分：0
-
萌新向大佬学习
- VB.Net中Socket异步编程的实例
- 实例分为服务器和客户端两部分，该实例详细地介绍了VB.net下使用Socket类实现网络通讯
- VB.NET 2010 演示 TCP/IP 非常简单无错的例子
- 这个是用委托方式演示 线程如果传递来自 客服端的数据，显示到 UI 的全过程。保证没有任何问题，供学习TCP/IP 原理的参考。
- vb.net udp socket局域网互发互收通信软件
- vs2010测试可用，可以局域网内两台机子互发互收信息
- vb.net dup通信
- vb.net dup通信，含打洞技术，很有用，提供给大家学习。
- vb.net实现tcp通讯
- vb.net实现tcp通讯代码,值得研究阅读!
- Socket及时通讯小范例
- 服务端（测试通过）：package org.whu.jay;import java.io.BufferedReader; import java.io.IOException; import java.io.InputStream; import java.io.InputStreamReader; import java.io.OutputStream; import java.net.Serve
- vb.net Socket demo 点对点通讯
- vb.net Socket demo 点对点通讯
- vb socket通信（TCP/UDP）一对一、多对一
- 利用 WinSock 控件可以与远程计算机建立连接，并通过用户数据文报协议 (UDP)或者传输控制协议 (TCP)进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。与 Timer 控件类似，WinSock 控件在运行时是不可见的。 可能的用途 创建收集用户信息的客户端应用程序，并将收集的信息发送到某中央服务器。 创建一个服务器应用程序，作为多个用户的数据的汇入点。
- VB.Net Socket多端口，可以相互聊天
- VB.Net Socket一个服务器多个端口，可以相互聊天。是大家学习VB.net Socket的好手册！代码附有较多的注释，容易看懂！
- VB.NET中TCP通讯代码（客户端和接受端集成在一个窗口中）
- 1、首先是界面的设置，界面设置系统会自动在Designer.vb这个文件中记录下来 ，下面是该文件的代码： _Partial Class Form1 Inherits System.Windows.Forms.Form Form overrides dispose to clean up the component list. _ P
- VB tcp/ip通讯socket源代码
- TCP/Ip通讯源代码，可参照该代码，做局域网通讯的vb完整通讯，有一定的借鉴作用
- TCP服务端vb.net支持多客户端连接
- Imports System.Threading Imports System.IO Imports System.Net Imports System.Net.Sockets Public Class Form1 Private thThreadRead As Thread Private tlTcpListen As TcpListener Private lstCl
- VB.net基础:使用UDP发送和接收消息
- VB.net基础:使用UDP发送和接收消息 出处：www.csdn.net [ 2004-10-27 00:06:57 ] 作者：YidingHe 责任编辑：liyalin Imports System.NetImports System.ThreadingImports System.TextImports System.Net.SocketsModule Module1 Dim P
- socket的TCP通信简单例子
- /* tcp客户端程序，注意一定要修改addr的值和本机相同才能正常工作 */ #include #include #include /* See NOTES */ #include #include #include #include #include #include int main(void) { int sock; int server_len; stru
- VB.net应用技巧3： UDP程序设计
- 本文介绍在VB.net中，进行UDP通讯的程序设计方法。 在VB.net中，进行UDP程序设计比较简单。程序除了初始化部分外，主要分为2个部分：一是发送数据的函数，另一个则需要启动一个进程接收数据，下面进行具体介绍： 1、UDP程序设计，需加入以下系统文件。 2、设置在整个项目中，全局有效的变量，用于线程的结束。 3、在窗
- vb与php进行socket通信遇到的问题
- error_reporting(E_ALL); set_time_limit(0); $port=8000; $ip="192.168.1.110"; $socket = socket_create(AF_INET,SOCK_STREAM,SOL_TCP); if($socket {echo "socket_create() failed: reason: ".socket_strer
- VB.net应用技巧8： 使用UdpClient完成UDP数据收发
- 前面几篇日志中，介绍了有关UDP的数据收发方法，在UDP技巧3中，发送数据已经使用了UdpClient，但由于接收时，需要非阻塞操作，所以使用了socket方法。随着项目的进展，进一步发现，直接使用UdpClient也可以完成UDP的非阻塞操作，而且程序异常简单，本文就将详细介绍这种UDP数据收发方法。 1、为了使用UdpClient，我们首先需要引入以下命名空间。Imports S...
- Q03UDV与FX3U-ENET-L通讯Q侧设定
- Q03UDV与FX3U-ENET-L通讯Q侧设定，范例属于在参数设定里面的CPU简易通讯
- VB Socket通信 讲解及示例
- VB Socket编程(Winsock控件创建TCP/IP客户机/服务器程序) 转载自这里： http://blog.sina.com.cn/s/blog_5a08c73a0100eiu1.html Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户，使用该控件也可以在十几分钟内创建一个简单的客户机/服务器
- 利用VB.Net 通过Windows Sockets (Winsock)以及多线程编程进行桌面电脑与Pocket PC间的双向通信
- 利用VB.Net编程实现PC与掌上电脑PPC间的双向通信 [源文件下载]http://www.cnblogs.com/Risen/category/110585.html本文介绍如何利用VB.Net 通过Windows Sockets (Winsock)以及多线程编程进行桌面电脑与Pocket PC(掌上电脑，简称：PPC)间的双向通信，并且通过当今流行的.net平台编程语言Visaul Basic.Net 2003编写PC端和PPC端程序实现两者的信息交换。