vb.nettcp教程 vbnet tooltip( 二 )

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开发程序直接通过以太网tcp协议访问s7-1200的存储区域tcp协议是一个世界公开的协议，既然你在vb端能搞定如何进行数据通讯，1200就很简单了。
在1200侧你只需建立一个tcp的连接即可，连接类型为未指定，之后按照你自己的要求确定谁是客户机，谁是服务器就好了，具体的建立连接的步骤可以参照1200的文档，你可以在下面的文档的通讯一章找到如何建立TCP连接的过程
西门子 S7-1200 PLC Smart Plus 技术参考Version 1.8
求 VB.Net的TCP/IP通讯实例，最好包括客户端请求连接与处理来自服务器的响应相关代码服务器和客户端都有，但是都是很基本的代码，可以作为参考学习。。。
【vb.nettcp教程 vbnet tooltip】关于vb.nettcp教程和vbnet tooltip的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。