Set Comm = CreateObject("MSCOMMLIB.MSCOMM")If Comm.PortOpen = False Then Comm.CommPort = 1
Comm.Settings = "57600,n,8,1"
Comm.InputLen = 0
Comm.PortOpen = True
Else
msgbox "Port is already opened!"&vbCRLF
End IfComm.Output = "+++" '发送+++命令Do
Buffer = Buffer&Comm.Input
Loop Until Instr(Buffer,"OK" & vbCRLF)
现在发送第二条命令,怎么删除buffer中的发送第一条命令获取的数据
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货