VB MMS | SDK

MMS SDK (for VB 6 Only)
VB.NET and Win32 Component Soon !!!

The SDK is still under development. Planned to release phase 1 as soon as possible. The ActiveX will enable you to develop MMS client application. This is a commercial release.

If you are interested in the ActiveX, Please test out the Freeware vbMMS client to check it whether it will work on your provider.

Latest: The SDK will be discontinued due to poor response. I will work instead on a MMS product development.

SDK Features
Download not available anymore
NOTICE: Current bugs. Will update on next release.
1. MMS Notification, do not use these as there is a serious bug here.
2. EMS iMelody, size > 128 bytes will not work. Will enhance these to support up to 384 bytes.

1. MMS Encoder
2. SMS Send with message concatenation. 7bit, 8bit and UCS2
3. PC MMS Sending via GPRS (MM1)
4. Wap-Push: MMS Notification
5. Wap-Push: Service Indication
6. Wap-Push: Service Load
7. Nokia Smart Messaging Picture Message. 72x28
8. Nokia Smart Messaging Caller Line Identification (CLI). 72x14
9. Nokia Smart Messaging Operator Logo. 72x14
10. Nokia Smart Messaging Ringtone
11. Nokia Smart Messaging VCard
12. Nokia Smart Messaging VCalendar
13. Enhanced Messaging Service (EMS) iMelody (256 bytes max)
14. Enhanced Messaging Service (EMS) Picture. 16x16, 32x32, 72x14,72x28,96x28,96x32

SDK Next Phase

1. MMS Decoder
2. MMS Receiver

Price: Win32 DLL
VB6 OCX trial released. My intention is to create a Win32 DLL version that support most of the others programming language. Please support me by purchasing the VB version and get FREE update to the DLL version when ready. Please note the OCX is not for sale yet at the moments.

Source Codes
If you are interested in buying the VB source codes. Limited to 20 buyers. The source codes are written in VB 6 with SP6. Uses MSCOMM.OCX and WINSOCK.OCX. No third-party library is needed.

' VB6 Example of using the vbMMS ActiveX

' Start of MMS Send
objVBMMS.MMSTo = "+65123456789"
objVBMMS.MMSSubject = "Test MMS"
objVBMMS.MMStransactionid = "0001"
objVBMMS.MMSEncode "c:\test.smil, test.jpg, log.jpg, message.txt"

Do While objVBMMS.MMSConnectStatus = 1
    Text1.Text=Text1.Text & objVBMMS.MMSConnectMessage
    ProgressBar1.Value = objVBMMS.MMSConnectPercent
    DoEvents
    If objVBMMS.MMSConnectStatus = 0 Then Exit Do
Loop

Text1.Text = Text1.Text & objVBMMS.MMSConnectMessage
DoEvents

If objVBMMS.MMSError <> 0 And objVBMMS.MMSError <> 9001 Then
    MsgBox "MMS Error: " & CStr(objVBMMS.MMSError)
    MsgBox "Error Desc " & objVBMMS.MMSErrorDesc
End If
' End of MMS Send

' Example of sending MMS Notification via a GSM Modem
' Built your own mini MMSC by storing your MMS on your webserver
vbMMS1.MMSFrom = "+6591212123"
vbMMS1.MMStransactionid = "ZZZZZZZABFC"
vbMMS1.MMSSubject = "This is a vbMMS notification"
vbMMS1.MMSClass = CONST_MMS_CLASS_PERSONAL
vbMMS1.MMSContentLocation = "http://www.vbmms.com:8002/ZZZZZZZABFC"
vbMMS1.MMSFiles = "c:\start.smil,c:\img00.jpb,c:\img01.jpg,c:\img02.jpg,c:\img03.jpb,c:\img04.jpg"
vbMMS1.MMSExportPath = "c:\mms\userdb"
vbMMS1.GSMMobileNumber = "+6591212123"
vbMMS1.SendMMSNotification

MMS Notification via SMS. The contents are stored on the webserver. Display shown a Ericsson T68i. You can essentially built your own mini MMSC. COOL !!!!!

Note: Some telcos restrict external server excess from your mobile.

' Example of a WAP Service Indication Send
' This will display a WAP SI on the mobile

vbMMS1.WAPSIURI = "http://www.getmywap.com.sg/heremylink.wml"
vbMMS1.WAPSIInfo = "This is my WAP SI Testing"
vbMMS1.WAPSIID = "CoolWapSI"
vbMMS1.WAPSIAction = CONST_SI_SIGNAL_MEDIUM
vbMMS1.WAPSICreated = Format(Now, "yyyymmddhhnnss")
' This SI will expire in 1 hour and removed from the mobile
vbMMS1.WAPSIExpire = Format(DateAdd("h", 1, Now), "yyyymmddhhnnss")
vbMMS1.GSMMobileNumber = "+6591212123"
vbMMS1.SendWapServiceIndication

' Example of a WAP Service Indication Delete
' This will delete the above SI and remove the message from your mobile. Cool !!!

vbMMS1.WAPSIURI = "http://www.getmywap.com.sg/heremylink.wml"
vbMMS1.WAPSIInfo = "This is my WAP SI Testing"
vbMMS1.WAPSIID = "CoolWapSI"
vbMMS1.WAPSIAction = CONST_SI_SIGNAL_DELETE ' Delete the SI
vbMMS1.GSMMobileNumber = "+6591212123"
vbMMS1.SendWapServiceIndication

Display shown a WAP Push SI on a Ericsson T68i.

' VB Sample for Nokia Picture Message
' This will also work for most later Ericsson model. Example: T68i can display the picture message.
vbMMS1.GSMMobileNumber = "+651212123"
vbMMS1.NOKIAPicType = CONST_NOKIA_PIC_MESSAGE
vbMMS1.NOKIAPicfile = "c:\project_mms\pic5.bmp"
vbMMS1.NOKIAPicText = "Happy Birthday, you old heck !!!"
vbMMS1.SendNokiaPicture

' VB Sample for Nokia CLI
vbMMS1.GSMMobileNumber = "+6591212123"
vbMMS1.NOKIAPicType = CONST_NOKIA_PIC_CLI
vbMMS1.NOKIAPicfile = "c:\project_mms\logo1.bmp"
vbMMS1.SendNokiaPicture

' VB Sample for Nokia Operator Logo
vbMMS1.GSMMobileNumber = "+6591212123"
vbMMS1.NOKIAPicType = CONST_NOKIA_PIC_OPERATOR
vbMMS1.NOKIACountryCode = "25F530" ' Mobile Country Code, Singapore M1
vbMMS1.NOKIAPicfile = "c:\project_mms\logo1..bmp"
vbMMS1.SendNokiaPicture

' VB Sample for Nokia Ringtone
vbMMS1.GSMMobileNumber = "91212123"
vbMMS1.NOKIARingTonefile = "c:\project_mms\macarena.txt"
vbMMS1.SendNokiaRingTone

' Sample Ringtone
' Macarena:d=4,o=5,b=180:f,8f,8f,f,8f,8f,8f,8f,8f,8f,8f,8a,8c,8c,f,8f,8f,f,8f,8f,8f,
' 8f,8f,8f,8d,8c,p,f,8f,8f,f,8f,8f,8f,8f,8f,8f,8f,8a,p,2c.6,a,8c6,8a,8f,p,2p

' VB Example for Wap-Push Service Load

vbMMS1.GSM_MobileNumber = "91212123"
vbMMS1.WAP_SL_ACTION = CONST_SL_EXECUTE_HIGH
vbMMS1.WAP_SL_URI = "http://www.mywaplink.com.sg/heremylink.wml"
vbMMS1.SendWapServiceLoad

' VB Example for EMS iMelody

vbMMS1.GSM_MobileNumber = "91212123"
vbMMS1.EMS_MELODYFILE = "c:\project_mms\test.imy"
vbMMS1.SendEMSMelody

' iMelody Format - Test.imy
' BEGIN:IMELODY
' VERSION:1.2
' FORMAT:CLASS1.0
' BEAT:180
' MELODY:V+*5f2f3f3f2f3f3f3f3f3f3f3a3c3c3f2
' END:IMELODY

' VB Example for EMS picture

vbMMS1.GSM_MobileNumber = "91212123"
vbMMS1.EMS_PICFILE = "c:\project_mms\logo.bmp"
vbMMS1.SendEMSPicture

' VB Example for Nokia VCalendar

vbMMS1.GSM_MobileNumber = "91212123"
vbMMS1.NOKIA_VCALEVENT = "This is a test calendar"
vbMMS1.NOKIA_VCALDTSTART = "20040831T200000" ' Start Date 31/8/2004 8pm
vbMMS1.NOKIA_VCALDTSTART = "20040831T210000" ' End Date 31/8/2004 9pm
vbMMS1.SendVCalendar

' VB Example for Nokia VCard

vbMMS1.GSM_MobileNumber = "91212123"
vbMMS1.NOKIA_VCardName = "David Micheal"
vbMMS1.NOKIA_VCardTel = "98181888"
vbMMS1.SendVCard