• Home
 · 
• OLE/COM/DCOM/Active-X
 · 
• Visual Basic .NET Sample: Send a Pager message through a hayes compatible, mobile phone. Mobile pho

Visual Basic .NET Sample: Send a Pager message through a hayes compatible, mobile phone. Mobile pho

Visual Basic .NET Sample: Send a Pager message through a hayes compatible, mobile phone. Mobile phone must support AT+C commands to send SMS

Rate Visual Basic .NET Sample: Send a Pager message through a hayes compatible, mobile phone. Mobile pho

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' 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 = 1
        objSmsTool.MessageText = "Hello, this is a test message"
        objSmsTool.Recipient = "0624896641"

        Console.WriteLine("Sending message...")

        objSmsTool.SendMessage(False)    ' TRUE means: through direct mobile phone

        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