Dear All,
How to send SMS from VB .Net to mobile device.
I had some sample code but, it refers sms.dll win32 api where can i found this file.
Thanks
K.Babu
Printable View
Dear All,
How to send SMS from VB .Net to mobile device.
I had some sample code but, it refers sms.dll win32 api where can i found this file.
Thanks
K.Babu
Code:' You need the freeware ASMSCTRL.DLL to run the sample.
' Download it from http://www.vahland.com/pub/asmsctrl.dll
' and register it on your machine.
' Then, choose 'Add Reference' from your Solutions Window,
' and add the ActiveSocket Type Library.
'
' Read http://www.vahland.com/pub/asmsctrl.htm for more info.
Imports ASMSCTRLLib
Module Module1
Sub Main()
Dim objSmsTool As ASMSCTRLLib.SMSC
Dim strReceived As String
Dim nCounter As Integer
Console.WriteLine("Be sure To have the freeware asmsctrl.dll registered on your system,")
Console.WriteLine("and add the 'ActiveXperts SMS and Pager Toolkit' to your references.")
Console.WriteLine("")
Console.WriteLine("This sample connects through a SMSC service provider to send out the SMS message")
Console.WriteLine("Please check out www.activexperts.com/activsms/smsclist for a complete list of SMSC providers world wide")
Console.WriteLine("")
objSmsTool = New ASMSCTRLLib.SMSCClass()
objSmsTool.PortID = 3
objSmsTool.MessageText = "Hello, this is a test message"
objSmsTool.Recipient = "0624896641"
objSmsTool.ProviderDialString = "0,0653141414" ' The SMSC provider
Console.WriteLine("Sending message...")
objSmsTool.SendMessage(True)' TRUE means: through service provider
If objSmsTool.LastError = 0 Then
' YES, connection established.
Console.WriteLine("Message successfully delivered")
Else
Console.WriteLine("Message delivery failed, error: " + objSmsTool.LastError)
End If
End Sub
End Module
Quote:
//**************************************
//
// Name: SMS message sample code
// Description:Send an SMS message throu
// gh SMSC service provider. There are hund
// reds of SMSC service providers all over
// the world
// By: Rowen VanderLaan
//**************************************
1. PortID property not available in asmsctrl class.
2. Available Device property to set the device name. like "COM 1","COM 2".
But we are not using modem, we using router with ISDN line throught LAN connection, assigned with Gateway address.
so, what should i enter the device property.
Thanks,
K.Babu
Quote:
Originally posted by Craig Gemmill
Code:' You need the freeware ASMSCTRL.DLL to run the sample.
' Download it from http://www.vahland.com/pub/asmsctrl.dll
' and register it on your machine.
' Then, choose 'Add Reference' from your Solutions Window,
' and add the ActiveSocket Type Library.
'
' Read http://www.vahland.com/pub/asmsctrl.htm for more info.
Imports ASMSCTRLLib
Module Module1
Sub Main()
Dim objSmsTool As ASMSCTRLLib.SMSC
Dim strReceived As String
Dim nCounter As Integer
Console.WriteLine("Be sure To have the freeware asmsctrl.dll registered on your system,")
Console.WriteLine("and add the 'ActiveXperts SMS and Pager Toolkit' to your references.")
Console.WriteLine("")
Console.WriteLine("This sample connects through a SMSC service provider to send out the SMS message")
Console.WriteLine("Please check out www.activexperts.com/activsms/smsclist for a complete list of SMSC providers world wide")
Console.WriteLine("")
objSmsTool = New ASMSCTRLLib.SMSCClass()
objSmsTool.PortID = 3
objSmsTool.MessageText = "Hello, this is a test message"
objSmsTool.Recipient = "0624896641"
objSmsTool.ProviderDialString = "0,0653141414" ' The SMSC provider
Console.WriteLine("Sending message...")
objSmsTool.SendMessage(True)' TRUE means: through service provider
If objSmsTool.LastError = 0 Then
' YES, connection established.
Console.WriteLine("Message successfully delivered")
Else
Console.WriteLine("Message delivery failed, error: " + objSmsTool.LastError)
End If
End Sub
End Module
according to the site that dll comes from , you need a modem to use it. here's a quote from the product overview page ...
Quote:
You just need a standard Hayes compatible modem (no GSM) to send SMS/Pager messages through a provider.
You can also use a mobile phone connected to your PC through blue tooth or a serial cable or even infra red I guess. I have successfully used blue tooth.