试用串口链接手机发消息

Dim Length As Integer
        AxMSComm1.Settings = "9600,N,8,1"
        AxMSComm1.InputLen = 0
        If AxMSComm1.PortOpen = False Then AxMSComm1.PortOpen = True
        Length = Len("如果收到短信,请回复.") * 2
        AxMSComm1.Output = "AT+CMGF=0" + vbCr 
        AxMSComm1.Output = "AT+CMGS=" & Str(15 + Length) + vbCr ' Chr$(34) & "13750851683" & Chr$(34) & ",129" + vbCr '13057575064是对方手机号
        AxMSComm1.Output = "0891682101501705F011000D91683157801586F3000800165982679C6536523077ED4FE1002C8BF756DE590D002E" & Chr$(26) 
        If AxMSComm1.PortOpen = True Then AxMSComm1.PortOpen = False