¿Cómo llama VB a Bluetooth en la computadora portátil y envía datos hexadecimales?

Hablemos en detalle. Hay dos formas de enviar datos usando MSComm.

Una es enviar datos en modo texto. En este caso, debe escribir:

MSComm1.InputMode =comInputModeText

Dim sText="ABC"

MSComm1.OutPut=sText

'Enviar "ABC" como texto.

El segundo es enviar en modo binario. En este caso se debe usar una matriz de bytes para enviar, aunque sea un byte se debe usar una matriz:

MSComm1. InputMode=comInputModeBinary

Atenuar búfer como variante

Atenuar bytes(0 a 6) como byte

Bytes(0)= amp H25

Bytes(1)= amp; H25

Bytes(2)= amp;H00

Bytes(3)= amp;H00

Bytes(4 )= amp;HFF

Bytes(5)= amp;H0E

Bytes(6)= amp;H9A

Buffer=Bytes()

MSComm1.Output=Búfer