If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
  MSComm1.Output = "AT+CMGF=1" + vbCr & Chr(10)
  MSComm1.Output = "AT+CSCA=" & "8613800931500" + vbCr & Chr(10) '8613800931500是短消息中心,各地的号码不一样,必须设置当地的短消息号码
  MSComm1.Output = "AT+CMGS=" & Text2.Text + vbCr & Chr(10) 'Text2.Text是对方手机号
  MSComm1.Output = Text1.Text & Chr(26) 'chr$(26)是Ctr+ Z,Text1.Text是短信内容

以下是对mscomm的设置：
MSComm1.Settings = "9600,n,8,1" '波特率9600，无奇偶较验，8位数据位，1位停止位
= 1 '选择端口1
用它发短信怎末发布出去啊？
谢谢了！
这是我的毕业设计啊！！

有短信网关没?

我这个是通过PC机的串口用VB编程通过手机发出短信