如何通过蓝牙从android接收VB6中的数据字符串

我在android上创建了一个应用程序，其中列出了一些数据。我想通过蓝牙将列表数据发送到我的VB6。但是我不知道如何在VB上编写蓝牙连接的代码。请给我举一些这个问题的例子。 我在vb中使用mscomm从蓝牙接收数据，但它不起作用

Private Sub Command1_Click()
MSComm1.CommPort = Val(Combo1.Text)
MSComm1.Settings = "38400,n,8,1"
MSComm1.PortOpen = True
MsgBox "connected !", vbInformation, "success"
Combo1.Enabled = False
Command1.Enabled = False
End Sub


Private Sub MSComm1_OnComm()
accept.Text = MSComm1.Input
End Sub

---

我在android程序中使用了app inventor，我想在我的笔记本电脑中使用蓝牙内置接收器

假设您正确配置了问题中提到的端口，在

表单

中放置

MSComm控件

的位置，放置一个

计时器

，以轮询输入

假设此计时器称为Timer1，然后在计时器回调中添加以下代码：

Private Sub Timer1_Timer()
    If (MSComm1.InBufferCount > 0) Then
        accept.Text = MSComm1.Input
    End If
End Sub

或者，您可能还需要一些额外的防御检查：

Private Sub Command1_Click()
    MSComm1.CommPort = Val(Combo1.Text)
    MSComm1.Settings = "38400,n,8,1"
    If MSComm1.PortOpen = False Then
         MSComm1.PortOpen = True
    End If
    ' don't open a msgbox, toggle visibility of a small icon
    Combo1.Enabled = Not MSComm1.PortOpen
    Command1.Enabled = Not MSComm1.PortOpen
    Timer1.Enabled = MSComm1.PortOpen
End Sub

。。。和一些清理代码，仅举一个例子：

Private Sub Form_Unload(Cancel As Integer)
    If MSComm1.PortOpen = True Then
        MSComm1.PortOpen = False
    End If
    Timer1.Enabled = False
End Sub

---

最后一点注意：确保两台设备都配置为使用完全相同的串行协议，开始尝试9600 bps

解释“不工作”。combo1中的端口号是什么？在设备管理器中看到端口了吗？为什么要用VB6编码？它已经死了将近20年，现代VB的免费版本已经面世。VB 6.0是1998年中期发布的，所以它在发布之前就已经死了？有时人们只是想要挑战，有时人们通过继续在其中编程赚钱。值得一提的是，我仍然使用PDS Basic 7.1（DOS）编写程序并支持用PDS Basic 7.1（DOS）编写的应用程序。我印象深刻的是，有多少人跟随VB6标签只是为了发表同样的评论：“VB6已经死了！为什么要用VB6编写代码？”。VB6还活着，下面是一个例子，看看这个Unicode套件：thankyouu Som:'）我将尝试这个编码yaaay:D