给你一段代码,看看吧?
Dim bdata() As Byte
ReDim bdata(0 To 3)
bdata(0) = &HF1&
bdata(1) = 241
bdata(2) = 4
bdata(3) =2
MSComm1.Output = bdata
Dim bdata() As Byte
ReDim bdata(0 To 3)
bdata(0) = &HF1&
bdata(1) = 241
bdata(2) = 4
bdata(3) =2
MSComm1.Output = bdata
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货