锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net网口通讯6 vb网口通信

IT技术数据

VB.NET与PHP通讯问题与语言没有关系, 你需要考虑的是两个系统直接如何通讯. 选一种通讯协议(一般用http协议), 设计好数据结构, 可以是xml或json. 假设选用http协议传输json数据. 你需要做以下工作:
使用php开发一个http接口, 根据参数查询数据库, 把结果转换为json格式后返回. 这是目前最流行的接口格式, 基本上所有语言都可以开发和请求这样的接口, 很多开放平台都是这样设计接口的, 例如微信的这个接口,你可以参考一下 网页链接
使用VB.NET请求这个接口, 获取返回的数据(json格式, 一个特殊的字符串), 使用VB.NET对json数据进行解码
【vb.net网口通讯6 vb网口通信】所以,要完成这个工作,你需要知道http接口开发和请求, 以及json编码和解码的相关知识和技能, 祝你好运
请教用VB.NET向网口发送16进制的数的方法.很有意思 。
原文数据全为：“00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ; ”
加密后变成了：“09 51 55 F4 FB 10 6F A4 D3 E8 87 46 F8 2F 49 CD ; ”
得出这样的结果是有很多方法都可以实现的：
比如每个原数上加上个常数就可以了 。
00+09=09；得出第一组加密后的数值
00+51=51；得出第二组加密后的数值
...
00+CD=CD；得出第16组加密后的数值.
加密的方法还有很多，不过这种最简单 。
还有就是你给的原文太单一了，不能够更好的分析数据的规律 。
如果你能把原文改为如下这段代码再去加密一下，再把加密结果贴上来看一下就好多了 。
00000140h: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;
00000150h: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;
00000160h: 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 ; 00000170h: 00 10 20 30 40 50 60 70 80 90 A0 B0 C0 D0 E0 F0 ;
00000180h: 11 11 11 11 11 22 22 22 22 22 22 EE EE EE FF FF ;
以上是单片机高手团为您解答 。
如果还没解决你的问题 ， 可以加我百度HI账号 。
VB与VB.NET串口及以太网通迅关于串口通讯的问题：
很明显，你还不知道（不会、不习惯）使用事件驱动的方式接收数据 。
建议你仔细看看串口组件（无论VB6还是VB.net）的OnComm事件，你的问题很容易解决 。
关于以太网通讯：
在TCP通讯中端口确实可以重用，你百度一下“TCP端口重用”能查到很多示例 。
但绝大多数情况下不推荐端口重用，而应该采取服务器端建立连接池的方法 。
或者，干脆不用TCP，用UDP解决也可以 。
用vb.net实现网络通信用 vb.net socket通信
Dim th As Threading.Thread
2Dim tcpl As System.Net.Sockets.TcpListener
3
4Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6th.Start()
7End Sub
8
9Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10Try
11If IP"" Then
12Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14Dim reqStream As New IO.StreamWriter(tcpStream)
15reqStream.Write(SendMsg)
16reqStream.Flush()
17tcpStream.Close()
18tcpc.Close()
19End If
20Catch ex As Exception
21MsgBox(ex.Message.ToString)
22End Try
23End Sub
24Private Sub MyListen()Sub MyListen()
25Try
26Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28tcpl.Start()
29While True
30Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

推荐阅读


上一篇：茶几电视柜沙发怎么选好，茶几电视柜沙发怎么选好看

下一篇：HTML5按键透明，html按钮透明