设计Pocket PC短消息服务简介

Public Declare Function SmsOpen Lib "SMS" (ByVal ptsMessageProtocol
As String, ByVal dwMessageModes As Long, ByRef psmshHandle As
Long, ByRef phMessageAvailableEvent As Long) As Long www.hot007.com

Public Declare Function SmsSendMessage Lib "SMS" (ByVal smshHandle
As Long, ByVal psmsaSMSCAddress As Long, ByVal
psmsaDestinationAddress As String, ByVal pstValidityPeriod As
Long, ByVal pbData As String, ByVal dwDataSize As Long, ByVal
pbProviderSpecificData As String, ByVal dwProviderSpecificDataSize
As Long, ByVal smsdeDataEncoding As Long, ByVal dwOptions As Long,
ByRef psmsmidMessageID As Long) As Long hot007.com

Public Declare Function SmsClose Lib "SMS" (ByVal smshHandle As Long) As Long

jc567.cn

Public Sub SendSMS(ByVal Number As String, ByVal Message As String) 文章来源于www.hot007.com

Dim SMSHandle As Long
Dim SMSEvent As Long
Dim SMSAddress As String
Dim SMSProvider As String

'打开SMS消息组件
Call SmsOpen(SMS_MSGTYPE_TEXT, SMS_MODE_SEND, SMSHandle, SMSEvent) 文章来源于www.jc567.cn

'设置地址结构体
SMSAddress = LongToBytes(SMSAT_INTERNATIONAL) & Number 007网络教程网

'设置提供者结构体
SMSProvider = LongToBytes(PS_MESSAGE_OPTION_NONE) & _
LongToBytes(PS_MESSAGE_CLASS0) & _
LongToBytes(PSRO_NONE)

文章来源于www.jc567.cn

'发送消息
If 0 = SmsSendMessage(SMSHandle, 0, SMSAddress, 0, Message, _
LenB(Message), SMSProvider, 12, SMSDE_GSM, _
SMS_OPTION_DELIVERY_NONE, 0) Then
MsgBox "Message sent!", vbInformation, App.Title
Else
MsgBox "Could not send message!", vbCritical, App.Title
End If 文章来源于www.hot007.com

'关闭SMS消息组件
Call SmsClose(SMSHandle) 复制于hot007.com

End Sub
文章来源于www.jc567.cn