0

谁能帮助我如何使用通过 pcsuite 连接的诺基亚手机在 vb 6.0 中发送短信。

下面是我使用的代码。我在调用 pSMSAdapter.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, pIGSMSubmit) 时遇到错误。这是说对象变量或块变量未设置

Private lngEventCounter As Long
Private pFolderList() As NokiaCLMessaging.ShortMsgFolderItem
Private pSMSAdapter As NokiaCLMessaging.ShortMsgAdapter
Private pIGSMSubmit As NokiaCLMessaging.IGSMSubmit
Private pSMSMessageItem As NokiaCLMessaging.ShortMessageItem
Private pIGSMDeliver As NokiaCLMessaging.IGSMDeliver
Private pIMemory As NokiaCLMessaging.IMemory
Private pFreeIdxs As Variant
Private pFreeSimIdxs As Variant
Private pCurrentFolderIndex As Byte
Private pMsgPart1 As String
Private pMsgPart2 As String
Private Const CODING_SCHEME_UNICODE = 8
Private Const CODING_SCHEME_TEXT = 0
Private Const SMS_TEXT_MAX_SIZE = 160
Private Const SMS_UNICODE_MAX_SIZE = 70
Private Const SMS_CONCATENATED_TEXT_MAX_SIZE = 153
Private Const SMS_CONCATENATED_UNICODE_MAX_SIZE = 67
Private parameterEntry As NokiaCLMessaging.IGSMParameters
Private Sub SendConcatenatedMessage()

On Error GoTo ErrorTrap

    Dim smsEntry As NokiaCLMessaging.ShortMessageItem
    Set smsEntry = New NokiaCLMessaging.ShortMessageItem

    Dim headerArray(0 To 5) As Byte

    smsEntry.Type = SHORTMESSAGE_TYPE_GSM_SUBMIT
    Set pIGSMSubmit = smsEntry.TypeProperties

    pIGSMSubmit.message = pMsgPart1
    pIGSMSubmit.DestinationAddress = txtDestinationNumber.Text
    pIGSMSubmit.ServiceCenterAddress = "+919894051914"
    pIGSMSubmit.ProtocolID = 0
    pIGSMSubmit.DataCodingScheme = 0
    pIGSMSubmit.ValidityPeriodRelative = 255

    headerArray(0) = 5 'header lenght
    headerArray(1) = 0 'concatenated sms
    headerArray(2) = 3 'length of information element A
    headerArray(3) = 50 'reference number
    headerArray(4) = 2 '2 messages
    headerArray(5) = 1 'sequence number of sms

    pIGSMSubmit.UserDataHeader = headerArray

    Call pSMSAdapter.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, pIGSMSubmit)

    pIGSMSubmit.message = pMsgPart2
    pIGSMSubmit.DestinationAddress = txtDestinationNumber.Text
    pIGSMSubmit.ServiceCenterAddress = "+919894051914"
    pIGSMSubmit.ProtocolID = 0
    pIGSMSubmit.DataCodingScheme = 0
    pIGSMSubmit.ValidityPeriodRelative = 255

    headerArray(0) = 5 'header lenght
    headerArray(1) = 0 'concatenated sms
    headerArray(2) = 3 'length of information element A
    headerArray(3) = 51 'reference number
    headerArray(4) = 2 '2 messages
    headerArray(5) = 2 'sequence number of sms

    pIGSMSubmit.UserDataHeader = headerArray

    Call pSMSAdapter.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, pIGSMSubmit)
    MsgBox ("Concatenated MEssage sent")

Exit Sub

ErrorTrap:
    MsgBox Err.Description, vbInformation, "Error Concatenate Message"
End Sub

Private Sub Form_Load()

End Sub
4

1 回答 1

1

This forum post talks about this exact topic - did you try Googling before you asked the question?

http://www.developer.nokia.com/Community/Discussion/showthread.php?159438-Send-SMS-in-Visual-Basic-using-Mobile-Phone-as-Modem

Now you have added some code it appears that you have not initialised the object - hence the error. Try something liek this:

Set pSMSAdapter = New NokiaCLMessaging.ShortMsgAdapter
于 2013-03-19T11:30:11.820 回答