有偿求一简单应用程序

Question

有兴趣，看看文档。 
先顶顶

Answer 1

示例代码中
Private Sub cn_MessageReceivedInterface(ByVal sm As EMPPLib.ISMDeliverd)
    Dim sMsg As String
    sMsg = "发送方号码:" & sm.srcID & ":接收方号码:" & sm.DestID & _
        ";短信格式:" & sm.MsgFmt & ";短信长度:" & sm.MsgLength & _
        ";发送方号码类型:" & sm.SrcTerminalType & ";短信内容:" & sm.content & _
        ";MsgID:" & sm.MsgID & ";ServiceID:" & sm.ServiceID
    MsgBox sMsg, , "接收短信"
End Sub
说明，这个组件是事件驱动的，只要把写入数据库的代码加到这里就行了