Joke Collection Website - Blessing messages - How VB sends Chinese short messages through serial port

How VB sends Chinese short messages through serial port

Private Sub TimerMSCReceive _ Timer ()

If MSComm. InBufferCount & gt So 0

TextMSCReceive。 Text = TextMSCReceive。 Text+MSComm. invest

If ... it will be over.

TextMSCReceive。 SelStart = Len(TextMSCReceive。 Text)

End joint