使用VB控制串口

安装VB

MSDN下载即可，
序列号全是1
安装V5V6选否
在卡住时使用ctrl+alt+del结束进程

要用XP模式，管理员用户启动程序

新建工程

添加控件

左边空间区域右键-部件

MSCOMM

加入代码

Option Explicit
 
Private Sub Command1_Click()
    Dim a(0 To 5) As Byte
    Dim s As String
    
    a(0) = &H48
    a(1) = &H45
    a(2) = &H4C
    a(3) = &H4C
    a(4) = &H4F
    
    MSComm1.Output = a
End Sub
 
Private Sub Form_Load()
 
    MSComm1.CommPort = 4       '"选用com3串行口
    
    MSComm1.Settings = "9600,n,8,1"       '"波特率9600，无奇偶校验位，8位数据位1位停止位
    
    MSComm1.InputLen = 1       '"读取input接收缓冲区全部字节
    
    MSComm1.InBufferSize = 1024       '"设置接收缓冲区的字节长度
    
    MSComm1.InBufferCount = 0       '"清除发送缓冲区数据
    
    MSComm1.OutBufferCount = 0       '"清除接收缓冲区数据
    
    MSComm1.InputMode = 1       '"输入模式为binary
    
    MSComm1.RThreshold = 1       '"控件收到数据时将触发OnComm事件
    
    MSComm1.Handshaking = 0
    
    MSComm1.PortOpen = True
    
End Sub
 
Private Sub MSComm1_OnComm()
    Dim a() As Byte
    a = MSComm1.Input
    Dim i As Long
    Debug.Print UBound(a)
    'For i = 0 To UBound(a)
    '    Debug.Print Hex$(a(i)) & " ";
    'Next i
End Sub