sintak ini saya download dari MSDN microsoft;
Imports System.Runtime.InteropServices
Imports interopserv = System.Runtime.InteropServices
PublicEnum SMS_ADDRESS_TYPE
SMSAT_UNKNOWN = 0
SMSAT_INTERNATIONAL
SMSAT_NATIONAL
SMSAT_NETWORKSPECIFIC
SMSAT_SUBSCRIBER
SMSAT_ALPHANUMERIC
SMSAT_ABBREVIATED
EndEnum'SMS_ADDRESS_TYPE
PublicStructure PhoneAddress
'/ <summary>The address type.</summary>
Public AddressType As SMS_ADDRESS_TYPE
'/ <summary>The phone number in string format.</summary>
Public Address() AsChar
EndStructure'PhoneAddress
PublicClass SMS
PrivateShared SMS_MSGTYPE_TEXT AsString = "Microsoft Text SMS
Protocol"
PrivateShared SMS_MODE_SEND AsLong = &H2
PrivateShared SMS_OPTION_DELIVERY_NONE AsLong = &H0
PrivateShared SMS_OPTION_DELIVERY_NO_RETRY AsLong = &H1
PrivateShared PS_MESSAGE_OPTION_NONE AsLong = &H0
PrivateEnum SMS_DATA_ENCODING
SMSDE_OPTIMAL = 0
SMSDE_GSM
SMSDE_UCS2
EndEnum'SMS_DATA_ENCODING
PublicEnum PROVIDER_SPECIFIC_MESSAGE_CLASS
PS_MESSAGE_CLASS0 = 0
PS_MESSAGE_CLASS1
PS_MESSAGE_CLASS2
PS_MESSAGE_CLASS3
EndEnum'PROVIDER_SPECIFIC_MESSAGE_CLASS
PrivateEnum PROVIDER_SPECIFIC_REPLACE_OPTION
PSRO_NONE = 0
PSRO_REPLACE_TYPE1
PSRO_REPLACE_TYPE2
PSRO_REPLACE_TYPE3
PSRO_REPLACE_TYPE4
PSRO_REPLACE_TYPE5
PSRO_REPLACE_TYPE6
PSRO_REPLACE_TYPE7
PSRO_RETURN_CALL
PSRO_DEPERSONALIZATION
EndEnum'PROVIDER_SPECIFIC_REPLACE_OPTION
PrivateStructure TEXT_PROVIDER_SPECIFIC_DATA
Public dwMessageOptions AsLong
Public psMessageClass As PROVIDER_SPECIFIC_MESSAGE_CLASS
Public psReplaceOption As PROVIDER_SPECIFIC_REPLACE_OPTION
EndStructure'TEXT_PROVIDER_SPECIFIC_DATA
<System.Runtime.InteropServices.DllImport("sms.dll ")> _
PrivateSharedFunction SmsOpen(ByVal ptsMessageProtocol As [String], _
ByVal dwMessageModes As Int32, _
ByRef psmshHandle As IntPtr, _
ByVal phMessageAvailableEvent As IntPtr) As IntPtr
EndFunction
<System.Runtime.InteropServices.DllImport("sms.dll ")> _
PrivateSharedFunction SmsSendMessage(ByVal smshHandle As IntPtr, _
ByVal psmsaSMSCAddress As Int32, _
ByVal psmsaDestinationAddress As IntPtr, _
ByVal pstValidityPeriod As Int32, _
ByVal pbData As IntPtr, _
ByVal dwDataSize As Int32, _
ByVal pbProviderSpecificData() AsByte, _
ByVal dwProviderSpecificDataSize As Int32, _
ByVal smsdeDataEncoding As Int32, _
ByVal dwOptions As Int32, _
ByVal psmsmidMessageID As Int32) As IntPtr
EndFunction
<System.Runtime.InteropServices.DllImport("sms.dll ")> _
PrivateSharedFunction SmsClose(ByVal smshHandle As IntPtr) As IntPtr
EndFunction
<StructLayout(LayoutKind.Sequential)> _
PublicStructure MsgSize
Public MsgSz As Int32
EndStructure
<StructLayout(LayoutKind.Sequential)> _
PublicStructure ProviderDataSize
Public ProvDataSize As Int32
EndStructure
PublicSharedSub SendMessage(ByVal sPhoneNumber AsString, ByVal
sMessage AsString)
Dim retVal As IntPtr = IntPtr.Zero
Dim smsHandle As IntPtr = IntPtr.Zero
Dim smsProviderData As IntPtr = IntPtr.Zero
Dim smsMessage As IntPtr = IntPtr.Zero
Dim ProvData(12) AsByte
Try
retVal = SmsOpen(SMS_MSGTYPE_TEXT, SMS_MODE_SEND, smsHandle,
IntPtr.Zero)
If retVal.ToInt32 <> 0 Then
ThrowNew Exception("Could not open SMS.")
EndIf
'Set address structure
Dim smsatAddressType AsByte() = BitConverter.GetBytes
(SMS_ADDRESS_TYPE.SMSAT_UNKNO WN)
Dim ptsAddress AsByte() = System.Text.Encoding.Unicode.GetBytes
(sPhoneNumber )
Dim smsAddressTag(smsatAddressType.Length + ptsAddress.Length) AsByte
Array.Copy(smsatAddressType, 0, smsAddressTag, 0,
smsatAddressType.Length)
Array.Copy(ptsAddress, 0, smsAddressTag, smsatAddressType.Length,
ptsAddress.Length)
Dim smsAddress As IntPtr = Marshal.AllocHLocal(smsAddressTag.Length)
System.Runtime.InteropServices.Marshal.Copy(smsAdd ressTag, 0,
smsAddress, smsAddressTag.Length)
'Set message
Dim smsMessageTag AsByte() = System.Text.Encoding.Unicode.GetBytes
(sMessage)
smsMessage = Marshal.AllocHLocal(smsMessageTag.Length)
System.Runtime.InteropServices.Marshal.Copy(smsMes sageTag, 0,
smsMessage, smsMessageTag.Length)
retVal = SmsSendMessage(smsHandle, 0, smsAddress, 0, smsMessage,
smsMessageTag.Length, _
ProvData, 12, SMS_DATA_ENCODING.SMSDE_OPTIMAL,
SMS_OPTION_DELIVERY_NONE, 0)
Catch ex As Exception
MessageBox.Show(ex.Message)
EndTry
Try
retVal = SmsClose(smsHandle)
Catch ex As Exception
MessageBox.Show(ex.Message)
EndTry
EndSub
EndClass
SINTAK INI BERHASI MELAKUKAN SMS DARI PDA..., AKAN TETAPI SMS
TERSEBUT BERSIFAT FLASH MESSAGE dan tidak tersimpan di inbox ,
seperti di sms yang biasa kita terima pada hand phone kita...
gmana ya supaya sms tersebut normal bisa seperti sms biasa tersimpan
di inbox..!!
saya dah coba cari di milis2 tapi gak ada yang membahas secara benar
dan berhasil.
saya harap teman2 yang ada di IT center ini dapat menyumbangkan ilmu
pengetahuannya kepada saya.
oh ya saya ada link yg mungkin teman2 dapat menganalisa
permasalahanya :
http://www.vbdotnetforums.com/showthread.php?p=22047
trima kasih
--
www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia
Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED]
## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ##
## Jaket ITCENTER tersedia di http://shop.itcenter.or.id
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ITCENTER/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/ITCENTER/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
