Breadcrumbs

[JaMaYcKa]

So if googled enough that should mean that i can use my mobile phone with usb/bluetooth/infrared connection ?

no need to google .. i'll help you with it ..

[M1z23R]

Thank you in advance Hope it'll be soon

[mandai]

Can you tell us how? Make a tutorial? Please!

You can use this code to send SMS messages via a serial port modem:

Code: Select all

    Dim log As String = ""
    Dim stage As Integer = 0

    Dim number As String = "00000000000"
    Dim message As String = "SMS Test"

    Sub sp_DataReceived(ByVal sender As SerialPort, ByVal e As SerialDataReceivedEventArgs)
        Dim buffer(sender.BytesToRead - 1) As Byte
        sender.Read(buffer, 0, buffer.Length)

        Dim rec As String = Encoding.ASCII.GetString(buffer)
        log += rec

        'MsgBox(log) 'debug

        If log.EndsWith("ERROR" & vbCrLf) Then
            sender.Close()
            MsgBox("Error at stage " & stage)
            MsgBox(log)
            stage = 0
            log = ""

        ElseIf log.EndsWith("OK" & vbCrLf) Then

            If stage = 0 Then
                log = ""
                stage += 1

                sender.Write("AT+CMGF=1" & vbCrLf) ' set to text mode

            ElseIf stage = 1 Then
                log = ""
                stage += 1

                sender.Write("AT+CMGS=""" & number & """" & vbCrLf) 'set recipient number, await message input

            ElseIf stage = 3 Then
                sender.Close()
                MsgBox("Message sent. Status: " & log)
                log = ""
                stage = 0
            End If

        End If

        If stage = 2 And log.EndsWith("> ") Then
            log = ""
            stage += 1

            sender.Write(message & Chr(26)) 'CTRL+Z
        End If
    End Sub

    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click

        Dim sp As SerialPort = New SerialPort("COM5") 'use the COM port of your modem device

        Try
            sp.Open()
        Catch ex As Exception
            MsgBox("Error opening port: " & ex.Message)
            Return
        End Try

        AddHandler sp.DataReceived, AddressOf sp_DataReceived
        sp.Write("AT" & vbCrLf) 'OK expected
    End Sub

Ok. 1. It doesn't have anything to do with a GSM modem.
as it won't let you mask your sms.

You could mask the original sender by setting an anonymous SMSC Address.

[JaMaYcKa]

Ok. 1. It doesn't have anything to do with a GSM modem.
as it won't let you mask your sms.

You could mask the original sender by setting an anonymous SMSC Address.[/quote]
Well You can try Masking someon'e number using this technique but that won't work..
i had tried SMSC Method long time back. It Doesn't work anymore.
and even you if you make your own SMS service using the technique mentioned above, you'd need your machine to stay switched on 24x7, and in case of a powercut or any unforseen circumstance would make your clients suffer ..
so using GSM modem isn't really a good option in my opinion ..

[MrAksel]

So what do you use then?

[JaMaYcKa]

So what do you use then?

I Will Release The Source code after a while. As my tool is commercial releasing the source code or anything that serves my tool won't be the right step right now
i hope you understand

[M1z23R]

We understand but may we approximately when will it be I can't wait xD

[JaMaYcKa]

We understand but may we approximately when will it be I can't wait xD

Very Soon ..