Question

我正在使用basic4android并创建了一个应用程序，只需存储和推送所有手机按键。当我在线远程存储和转储数据时，这是有效的，但是我试图将数据存储在监听vb6表单应用程序上。基本上每次触发X个单词的新记录时，它应该只在我运行的VB表单标签上显示该文本块。请注意我使用从设备到PC的USB电缆。对于noob问题抱歉。

如何通过USB将数据从我的Android设备推送到我的监听VB6表单应用程序？

感谢。

Answer 1

这是一个棘手的问题，因为与Android手机通话的驱动程序并不明显。如果幸运的话，驱动程序会将自身映射到COM端口。例如，在我的盒子上，＆＃34;三星移动USB调制解调器＃2＆＃34;设备将自身映射到COM4。

如果您的设备使用COM端口映射，请将Microsoft Comm Control添加到“组件”列表中。简单的代码永远等待输入，并写入Debug.Print如下：

If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = "4"  ' <===  "1" = COM1, "2" = COM2, "3" = COM3, "4" = COM4
MSComm1.Settings = "1200,n,8,1" ' You can probably replace 1200 with a much higher value, e.g. 230400
MSComm1.RThreshold = 1
MSComm1.InputLen = 1
MSComm1.PortOpen = True
Do
    DoEvents
    Debug.Print MSComm1.Input
Loop Until False

如果驱动程序使用其他机制，这将会复杂得多，并且需要弄乱驱动程序和Windows API - 不适合胆小的人。

Answer 2

像Mark Bertenshaw所说，虽然我不会循环获取数据但使用OnComm（）事件：

Private Sub MSComm1_OnComm()
  Dim strInput As String
  Select Case MSComm1.CommEvent
    Case comEvReceive
      strInput = MSComm1.Input
      Debug.Print strInput
  End Select
End Sub

使用VB6将B4A Android应用程序连接到桌面

2 个答案: