基于康耐视visionpro的vb通讯

本文已参与「新人创作礼」活动，一起开启掘金创作之路。

每次在程序运行前的准备---授权查询

```vb

Region "检测软件授权"

Delegate Sub mydelegate()
Dim LicensedFeatures As New CogStringCollection
Public Sub CheckLicense()
    Try
        If InvokeRequired Then
            Dim mydel As New mydelegate(AddressOf CheckLicense)
            Invoke(mydel)
            Return
        End If
        LicensedFeatures = CogMisc.GetLicensedFeatures(False)
        If LicensedFeatures.Count > 0 Then
        Else
            mLoadingThread.Abort()
            mCloseThread = New Thread(AddressOf CloseStart)
            mCloseThread.Start()
            'Sleep(20)
            'mLoadingThread.Abort()
            'LogAdd("License不存在，请检查License！", False)
            MessageBox.Show("License不存在，请检查License！")
            Application.Exit()
        End If
    Catch gx As CogException
        MessageBox.Show(gx.ToString)
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

End Region

``` 用来产看有没有获得官方授权

自己弄的类，用来处理visionpro

代码片段

嗨，这样就不会显得文章很短，全是代码了。 这些是tcp通讯的类文件 代码片段

我们怎么通讯呢

## 实例化

```vb