公司要做一个接口用VB调用socket发送:类似:szxVersion=**&szxOid=**&szxSign=**&....的数据,应该如何做呢?
没用过这东西,实在让我为难了,有没有朋友能帮我写一个简单的源程序,小弟先谢了!
1、首先看控件区有无串口控件,表明串口控件并未被启用,选择工程→部件→Micosoft comm Control6.0选项,点击应用,即可添加串口控件。
2、绘制两个text控件用于存储串口需要收发的数据。一个button控件用于发送指令,添加串口控件。
3、编写程序: Private Sub Command1_Click() MSComm1.Output = Text2.Text ‘发送数据End Sub Private Sub Form_Load()。
4、串口数据的收发都正常。
在VB6中利用Winsock实现数据的发送和接收。下面的代码实现了两个程序:发送端程序和接收端程序,这两个程序实现以下功能:
Socket通信采用UDP协议
发送端程序向接收端程序发送字符串数据
接收端接收到数据后在窗口显示数据
一、接收端程序
(1)新建一个VB6工程
(2)添加Winsock控件。工具箱单击鼠标右键调出菜单:部件-->控件-->Winsock
(3)在Form1上布置一个TextBox和一个Winsock控件
(4)Form1窗体代码
Option Explicit二、发送端程序
(1)新建一个VB6工程
(2)添加Winsock控件
(3)在Form1上布置一个TextBox,一个Winsock和一个Command
(4)Form1窗体代码
Option Explicit三、运行结果
启动UDP接收端程序
启动UDP发送端程序
发送数据
接收数据