vbnet以太网传输 vb telnet

VB与VB.NET串口及以太网通迅

关于串口通讯的问题：

创新互联于2013年开始，是专业互联网技术服务公司，拥有项目网站设计、成都网站设计网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元济阳做网站,已为上家服务,为济阳各地企业和个人服务,联系电话:13518219792

很明显，你还不知道（不会、不习惯）使用事件驱动的方式接收数据。

建议你仔细看看串口组件（无论VB6还是VB.net）的OnComm事件，你的问题很容易解决。

关于以太网通讯：

在TCP通讯中端口确实可以重用，你百度一下“TCP端口重用”能查到很多示例。

但绝大多数情况下不推荐端口重用，而应该采取服务器端建立连接池的方法。

或者，干脆不用TCP，用UDP解决也可以。

如何用vb开发程序直接通过以太网tcp协议访问s7-1200的存储区域

tcp协议是一个世界公开的协议，既然你在vb端能搞定如何进行数据通讯，1200就很简单了。

在1200侧你只需建立一个tcp的连接即可，连接类型为未指定，之后按照你自己的要求确定谁是客户机，谁是服务器就好了，具体的建立连接的步骤可以参照1200的文档，你可以在下面的文档的通讯一章找到如何建立TCP连接的过程

西门子 S7-1200 PLC Smart Plus 技术参考Version 1.8

使用vb.net将以太网共享给虚拟wifi网络

最简单的办法是用句柄操作窗体，这种方法就好比是计算机在代替你在打开设置窗口，完成设置。

比较难实现的方法是用API，不过我不知道用那些API，而且还要驱动支持

因为vb。net是高级语言，不能直接操作驱动，所以直接写汇编是不可行的

如何用vb.net通过以太网使用modulebus协议读写西门子s7-200 smart 能实现吗？

没用过modbus通信写过，但是使用自由通信可以

VB.net带有通信控件，在里面设置波特率、奇偶效验、数据位、COM口

在PLC里做个自由通信就可以

用vb.net实现网络通信

用 vb.net socket通信

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

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

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub