1

Tengo el siguiente código, lo que sucede es que cuando agrego mas de 50 SMS a la cola, solo termina enviado 45 o 44. cuando agrego mas de 150 SMS a la cola, solo termina enviado 140, quisiera que me ayuden. Lo que deseo que ningún mensaje se quede sin enviar, ya intente de todo pero no se que este fallando. por favor ayúdenme.

Imports System.Collections.Concurrent
Imports System.Threading
Imports System.IO.Ports
Public Class Form1
    Private Serialport As New SerialPort
    Dim miCola As New ConcurrentQueue(Of DatosParaMiProcedimiento)()
    Private lockObject As New Object()
    Class DatosParaMiProcedimiento
        Public Property Telefono As String
        Public Property Mensaje As String
    End Class
    Dim SalirDelPrograma As Boolean
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ButtonENVIAR.Visible = False 'PARA EVITAR ERRORES (ENVIO SIN  CONEXION)
    End Sub

    Private Sub ButtonCONECTAR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonCONECTAR.Click
        Try
            Serialport.PortName = TextBoxPUERTO.Text 'DEFINE EL PUERTO DE CONEXION
            Serialport.Open() 'ABRE EL PUERTO
            ButtonCONECTAR.Visible = False 'PARA EVITAR ERRORES (DOBLE CONEXION)
            ButtonENVIAR.Visible = True 'PARA EVITAR ERRORES (ENVIO SIN  CONEXION)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub ButtonENVIAR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonENVIAR.Click

        Dim datos As New DatosParaMiProcedimiento()
        ' Para agregar algo a la cola:
        miCola.Enqueue(datos)
        datos.Telefono = TextBoxNUMERO.Text
        datos.Mensaje = TextBoxTEXTO.Text
        ' Para agregar algo a la cola:
        ListBox1.Items.Add(datos.Mensaje.ToString)
        Lblcola.Text = miCola.Count
    End Sub
    Private Sub miprocedimiento(ByVal Telefono As String, ByVal mensaje As String)
        Try
            Serialport.Write("AT" & vbCrLf) 'COMPRUEBA LA CONEXION CON EL MODEM
            Threading.Thread.Sleep(100)
            Serialport.Write("AT+CMGF=1" & vbCrLf) 'INDICA QUE VA A ENVIAR SMS
            Threading.Thread.Sleep(100)
            Serialport.Write("AT+CMGS=" & Chr(34) & Telefono & Chr(34) & vbCrLf) 'ENVIARA EL MENSAJE SIN ALMACENAMIENTO
            Threading.Thread.Sleep(100)
            Serialport.Write(mensaje & Chr(26)) ' ENVIA EL MENSAJE
        Catch ex As Exception
        End Try

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        SyncLock lockObject
            Dim t As New Thread(AddressOf EnviarMensajes)
            t.IsBackground = True
            t.Start()
        End SyncLock
    End Sub
    Private Sub EnviarMensajes()
        While Not SalirDelPrograma
            Dim dpmp As DatosParaMiProcedimiento
            While miCola.TryDequeue(dpmp)
                SyncLock lockObject
                    miprocedimiento(dpmp.Telefono, dpmp.Mensaje)
                End SyncLock
            End While
                Thread.Sleep(5000)
            End While


    End Sub
End Class

Tengo el siguiente código, lo que sucede es que cuando agrego mas de 50 SMS a la cola, solo termina enviado 45 o 44. cuando agrego mas de 150 SMS a la cola, solo termina enviado 140, quisiera que me ayuden. Lo que deseo que ningún mensaje se quede sin enviar, ya intente de todo pero no se que este fallando. por favor ayúdenme.

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.