主题：[求助]未将对象引用设置到对象的实例

Static js As Integer

If vars("comt") > "" Then

    If Ports.Contains(vars("comt")) Then

        If Ports(vars("comt")).IsOpen Then

            If Forms("主窗口").Opened Then

                Dim xy As Integer

                If js > 11 Or js < 3 Then

                    js = 3

                Else

                    js = js + 1

                End If

                xy = js + 112

                Dim fssj As String =  "1-112-" & js & "-" & xy & "-2"

                If vars("logt") > "" Then

                    Filesys.WriteAllText(vars("logt"),Format(Date.now,"HH:mm:ss:fff") & "|" & js & "|" & fssj & vbcrlf, True)

                End If

                vars("cjs") = js

                vars("jssj") = Nothing

                Dim Val() As Byte = New Byte() {1,112,js,xy,2}

                Ports(vars("comt")).Write(Val, 0, Val.Length)

            End If

        End If

    End If

End If