用VB编的短息发送程序怎么通过手机发出去？

Question

用VB编的短息发送程序怎么通过手机发出去？
我编了一个短息发送程序，老师让用手机来发送，怎么建立VB和手机（USB）的通讯。
是不是用mscomm,怎么编啊？

Answer 1

这个需要专业的底层开发包吧？！资料可能很难找
你可以向你们老师建议，不要用手机，改用短信Modem，有很多这种模块，造价约等于手机

Answer 2

Private Sub Command1_Click()
    MSComm1.CommPort = Val(COMPort.Text)
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.InputLen = 0
    MSComm1.PortOpen = True
    MSComm1.Output = "AT+CMGF=1" + vbCr
    MSComm1.Output = "AT+CSCA=" & Chr$(34) & CSCA.Text & Chr$(34) & ",129" + vbCr
    MSComm1.Output = "AT+CMGS=" & Chr$(34) & CMGS.Text & Chr$(34) & ",129" + vbCr
    MSComm1.Output = msgcmt.Text & Chr$(26)
End SubPrivate Sub Command2_Click()
    MSComm1.CommPort = Val(COMPort.Text)
    If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
    length = Len("测") * 2
    MSComm1.Output = "AT+CMGF=0" + vbCr
    MSComm1.Output = "AT+CMGS=17" + vbCr
    MSComm1.Output = "0891683108200505F011000D91683159819155F5000800024E2D" & Chr$(26) & vbCr
End SubPrivate Sub Command3_Click()
    Print StrConv(Asc("Hi"), vbUnicode)
    Print Asc("Hi")
End Sub这段代码可以实现，接上手机就行，查看MODEM的端口，一般诺基亚手机为端口4

Answer 3

我是通过调用移动的dll接口,再安装上他们提供的驱动,就可以实现手机发送,资源已经上传,想要的话去下

Answer 4

是MSComm编程,网上有和多例子。
如果是用手机，要看手机的USB口是否为AT命令口。短信猫应该是比较理想的选择，而且也不贵。