Saltar al contenido principal

 none
Crear LOG para mi aplicacion. RRS feed

  • Pregunta

  • Buenas tardes, quiero registrar todo los sucesos de mi aplicación de envió de SMS Masivo (que falla al enviar un 5% de los mensajes ejecutados) en un archivo LOG. quisiera que me ayuden con el código.


    Sub EnviarSMS()

    Serialport.Write(“ATZ0” & vbCr) Serialport.WriteLine(“AT+CMGF=1” & vbCr) Thread.Sleep(1000) Serialport.Write(“AT+CMGS=” & Chr(34) & Telefono & Chr(34) & vbCr) Serialport.Write(mensaje & Chr(26) & vbCr) Thread.Sleep(1000)

    End Sub


    Ricardo Rafael Rivas

    viernes, 22 de noviembre de 2019 16:48

Todas las respuestas

  • Buenas, a ver si esto te sirve:

    try Serialport.Write(“ATZ0” & vbCr) Serialport.WriteLine(“AT+CMGF=1” & vbCr) Thread.Sleep(1000) Serialport.Write(“AT+CMGS=” & Chr(34) & Telefono & Chr(34) & vbCr) Serialport.Write(mensaje & Chr(26) & vbCr) Thread.Sleep(1000) Catch ex As Exception

    Dim texto As String

    If File.Exists("c:\logerrores.txt") Then

    texto = My.Computer.FileSystem.ReadAllText("c:\logerrores.txt")

    End If

    Dim obj As Object Dim archivo As Object obj = CreateObject("Scripting.FileSystemObject")

    If Not File.Exists("c:\logerrores.txt") Then

    archivo = obj.CreateTextFile("c:\logerrores.txt")

    End If

    archivo.Writeline(texto & DateTime.Now.ToString() & " Error envio " & ex.Message) archivo.Close() End Try





    • Propuesto como respuesta Pablo Rubio viernes, 22 de noviembre de 2019 17:26
    • Editado Gori0056 viernes, 22 de noviembre de 2019 17:26
    viernes, 22 de noviembre de 2019 17:14
  • Lo intente pero no registra nada, tampoco crea el archivo logerrores.txt, parece que mi aplicación tiene un error indetectable :(

    Ricardo Rafael Rivas


    • Editado Ricardo_raf7 viernes, 22 de noviembre de 2019 18:04
    viernes, 22 de noviembre de 2019 18:04
  • Esta es otra opción:

    Try
        Serialport.Write("ATZ0" & Constants.vbCr)
        Serialport.WriteLine("AT+CMGF=1" & Constants.vbCr)
        Thread.Sleep(1000)
        Serialport.Write("AT+CMGS=" & Strings.Chr(34) + Telefono + Strings.Chr(34) + Constants.vbCr)
        Serialport.Write(mensaje + Strings.Chr(26) + Constants.vbCr)
        Thread.Sleep(1000)
    Catch ex As Exception
        Dim ruta As String = "c:\logerrores.txt"
        Dim texto As String = ""
    
        If File.Exists(ruta) Then
            texto = File.ReadAllText(ruta) + DateTime.Now.ToString() & " | " + ex.Message + Environment.NewLine
            File.WriteAllText(ruta, texto)
        Else
    
            Using sw As StreamWriter = File.CreateText(ruta)
                sw.WriteLine(DateTime.Now.ToString() & " | " + ex.Message + Environment.NewLine)
            End Using
    
            texto = DateTime.Now.ToString() & " | " + ex.Message + Environment.NewLine
        End If
    End Try


    • Editado Gori0056 viernes, 22 de noviembre de 2019 18:47
    • Propuesto como respuesta Pablo Rubio lunes, 25 de noviembre de 2019 17:26
    viernes, 22 de noviembre de 2019 18:46
  • Se creo el fichero, pero no registra mi problema, no hay error evidente :(



    Ricardo Rafael Rivas

    viernes, 22 de noviembre de 2019 19:30