VB 6.0 可以使用MQTT

前段时间，承接了一个项目，软件开发的，时间紧，就用VB扣了一个。后来用户提出要把数据传输到他们的MQTT服务器上进行分发，就用VB 6.0的代码又扣了个几天，弄出来个能和MQTT Broker 进行通信的 VB 6.0 的程序。

为了支持其他人快速开发使用。就做成了个带 Socket 通信端口的程序。

MQTT Client for VB 6 服务程序

所有的代码都是用 VB6.0 写的。

调用了4个API函数
Sleep
Shell_NotifyIcon
SendMessage
GetPrivateProfileString
前三个是为了做个托盘图标，后面一个是为了读写配置的INI文件。
使用了 Winsocket 控件，Timer控件，Textbox控件，Frame控件，Label控件。
没有任何的第三方控件。
没有任何的第三方控件。
没有任何的第三方控件。
主界面如下：

注意：我们自己测试的MQTT Broker 端口是 1884，而常规的MQTT Broker端口是1883
软件运行后，界面

程序平时以托盘图标方式存在

图标也是自己画的。

开发思路：在OSI 7层协议中的会话层进行开发的。 就是SOCKET编程序。

用户自己开发的VB程序，使用TCP SOCKET 与 MQTT Client for VB 6 通信，通过socket 传输特定的报文结构，就可以向 MQTT Broker 发送 Topic，订阅Topic，接受订阅的Topic的内容。

On Error Resume Next
  Dim INIFileName As String
  Dim MQTTServerIP As String
  Dim MQTTServerPort As Long
  Dim SocketServerPort As Long
  Dim i As Long
  
  &#