| 发表于:2007-03-16 23:18:292楼 得分:0 |
示例代码中 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 说明,这个组件是事件驱动的,只要把写入数据库的代码加到这里就行了 | | |
|