用户
 找回密码
 立即注册

1

主题

1

帖子

41

积分

新手上路

Rank: 1

积分
41
发表于 2019-11-13 13:31:45
本帖最后由 苹果 于 2019-11-13 13:37 编辑

If Client.Client.Connected = True Then
            Else
                'TextBox9.Text = " 网络断开"
                ' Timer2.Enabled = False
                'Exit Try
                'Exit Sub
            End If
            Dim OutBuffer() As Byte
            'OutBuffer = System.Text.Encoding.Default.GetBytes("#020" & vbCr)
            '  OutBuffer = System.Text.Encoding.Default.GetBytes("#022" & vbCr) '集中模块
            OutBuffer = System.Text.Encoding.Default.GetBytes("#022" & M_ab & vbCr) '集中模块
            Client.GetStream.Write(OutBuffer, 0, OutBuffer.Length)
准备把以前的WCE版转到安卓机上



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
使用道具 举报 回复
发表于 2019-11-13 14:29:25
使用道具 举报 回复 支持 反对
发新帖
您需要登录后才可以回帖 登录 | 立即注册