Vb 6.0发送短信诺基亚PC套件

任何人都可以帮助我如何使用通过pcsuite连接的诺基亚移动在vb 6.0中发送短信。Vb 6.0发送短信诺基亚PC套件

下面是我使用的代码。 iam在调用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

来源

2013-03-19 Yuvaraj

对不起史蒂夫错误我标记vb.net。我编辑我的帖子，并把vb编码我用过的。你能帮我整理一下吗？ – Yuvaraj 2013-03-20 08:47:02

这个版面发表谈话 - 你尝试谷歌搜索，你在提问前？

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

现在你已经添加了一些代码，看来你还没有初始化对象 - 因此错误。试试这个骗局：

Set pSMSAdapter = New NokiaCLMessaging.ShortMsgAdapter

来源

2013-03-19 11:30:11

是的，但我得到一个错误在呼叫pSMSAdapter.SendSMS（SHORTMESSAGE_ROUTE_TYPE_ANY，pIGSMSubmit）。对象变量或未设置块 – Yuvaraj 2013-03-20 08:40:52

@Yuvaraj - 请参阅我的编辑答案 – 2013-03-20 11:10:43

非常感谢您的时间马特，上述问题解决了，但我得到一个新的错误手机未连接 – Yuvaraj 2013-03-21 07:41:54

Vb 6.0发送短信诺基亚PC套件

回答

相关问题