https交互过程

1、检查网络连接，确认网络可用。

2、更换到网络信号质量好一点的地方使用云闪付。

3、也可能是软件的服务器出现问题，只需要等一段时间就会恢复。

云闪付是一个APP，是一种非现金收付款移动交易结算工具，是在中国人民银行的指导下，由中国银联携手各商业银行、支付机构等产业各方共同开发建设、共同维护运营的移动支付APP，于2017年12月11日正式发布。

云闪付APP具有收付款、享优惠、卡管理三大核心功能，云闪付APP与银联手机闪付、银联二维码支付同为银联三大移动支付产品。

2019年9月5日，中国银联宣布云闪付APP用户数突破2亿。

导航电子地图服务器的作用是提供用户友好的导航服务，可以帮助用户了解当前位置，以及实时显示途径地点的信息。
要求：
1、提供准确、全面、及时的地图数据，实时展示用户的位置及周边的信息；
2、支持地图的多种模式，实现地图的切换，如卫星地图、球形地图等；
3、支持地图缩放，实现对地图的更细致的查看；
4、支持多种地图分析，实现路径规划，如自动路线分析、从A点到B点最短路径查询等；
5、支持地理信息检索，实现检索周边的景点、餐饮、商场、网吧等等；
6、支持地图注记，实现地图上的特殊标记，如指定地点、收藏夹等；
7、支持实时交互，实现用户与服务器的双向交流，实现实时的位置更新和数据共享。

客户端简单代码：
Imports SystemNetSockets
Imports SystemIO
Private Output As NetworkStream
Private Writer As BinaryWriter
Private Reader As BinaryReader
Dim StrSend As String
Dim client As New TcpClient '
clientConnect(servIP, 2006)
Output = clientGetStream
Writer = New BinaryWriter(Output)
Reader = New BinaryReader(Output)
StrSend = "字符串"
SystemThreadingThreadSleep(100)
WriterWrite(StrSend)
Try
Message = ReaderReadString
If Message = "OK" Then
LBinfoText = "成功！" '测试
Else
LBinfoText = "失败！"
End If
SystemThreadingThreadSleep(100)
Catch ex As Exception
MessageBoxShow("Client Application Closing!")
Finally
WriterClose()
ReaderClose()
OutputClose()
clientClose()
End Try
服务器端
用线程
Imports SystemNetSockets
Imports SystemIO
Imports SystemThreading
Imports SystemWindowsForms
Private Connection As Socket
Private readThread As Thread
Private SocketStream As NetworkStream
Private Writer As BinaryWriter
Private Reader As BinaryReader
Public Sub New()
MyBaseNew()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
readThread = New Thread(AddressOf RunServer)
readThreadStart()
End Sub
Public Sub RunServer()
Dim Listener As TcpListener
Try
Listener = New TcpListener(NetIPAddressParse("192168116"), 2006)
ListenerStart()
While True
Connection = ListenerAcceptSocket 'accept an incoming connection
SocketStream = New NetworkStream(Connection) 'create networkstream object associated with socket
Writer = New BinaryWriter(SocketStream) 'create object for transferring data across stream
Reader = New BinaryReader(SocketStream) 'read string data sent from client
Try
Do
strIncept = ReaderReadString
strIncept = DataDisp(strIncept) '此处插入数据处理程序()
SendInfoToClient(strIncept) 'send to client
Loop While ConnectionConnected
Catch ex As Exception
MsgBox(exToString)
Finally
WriterClose()
ReaderClose()
SocketStreamClose()
End Try
End While
Catch ex As Exception
MsgBox(exToString)
End Try
End Sub
Public Sub SendInfoToClient(ByVal Info As String)
'Send to client
Try
If ConnectionConnected Then
WriterWrite(Info)
ConnectionClose()
End If
Catch ex As SocketException
MessageBoxShow(exToString)
End Try
End Sub
整个过程都有了

客户端与服务器交互方式一般 有socket和>