Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ‭‭‭‭jackl007 en 1 Marzo 2008, 17:36 pm



Título: [Aporte] Manejar Errores en VB (logger de errores)
Publicado por: ‭‭‭‭jackl007 en 1 Marzo 2008, 17:36 pm
Aqui les dejo un modulo que les permite guardar los errores de nuestras aplicaciones.

Modulo:

Código
  1. Attribute VB_Name = "mdErrores"
  2. ' FINALIDAD: GESTIONA Y GRABA LOS ERRORES PRODUCIDOS EN EL PROGRAMA EN UN
  3. '            FICHERO PLANO
  4. ' PARAMETROS
  5. ' ErrDesc: descripcion del error
  6. ' ErrMod:  localización del error
  7. 'Sacado de un programa OpenSource llamado Zas
  8.  
  9. Option Explicit
  10. Public FileError As String
  11. 'FileError = "Error.log"
  12.  
  13. 'llamada en los forms: 'GrabaErr Err.Description, Err.Number, "Main :: Gen"' 'esto lo cambias segun el procedimiento desde donde es llamado
  14. Public Function GrabaErr(ErrDesc As String, ErrNum As String, ErrMod As String)
  15.    Open App.Path & "\" & FileError For Append As #3
  16.    Print #3, "------> "
  17.    Print #3, "Version : " & App.Major & "." & App.Minor & "." & App.Revision
  18.    Print #3, "Error en el modulo " & ErrMod
  19.    Print #3, "Fecha y Hora: " & Date & " " & Time & " Error: " & ErrNum & " :: " & (ErrDesc)
  20.    Print #3, "<------"
  21.    Close #3
  22.    MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf & " Se ha grabado el error en " & FileError, vbCritical, "Error en programa"
  23. End Function
  24.  
  25.  
  26.  

Para el que quiera descargarlo:
http://www.4shared.com/file/39425216/6f9e611b/mdErrores.html (http://www.4shared.com/file/39425216/6f9e611b/mdErrores.html)


Título: Re: [Aporte] Manejar Errores en VB (logger de errores)
Publicado por: Sancho.Mazorka en 1 Marzo 2008, 19:11 pm
Gracias x el aporte, un log para nuestras aplicaciones sencillo  ;)


Sancho.Mazorka    :¬¬