Cómo modificar cadena conexión DSN ODBC de tablas vinculadas Access usando VBA Proyecto AjpdSoft
Tutorial donde mostramos paso a paso cómo
añadir un módulo, macro y formulario en una base de datos Microsoft Access que permita actualizar (modificar o cambiar) el DSN (cadena de conexión ODBC) de las tablas vinculadas. Para ello usaremos VBA
(Visual Basic for Application). Además, mostraremos un método para actualizar todas las tablas vinculadas de una base de datos Access. Mostramos este procedimiento para Access 97 pero el proceso es similar en Access 2000, Access 2003 e incluso en las nuevas versiones de Access que siguen manteniendo VBA.
Mostrando entradas con la etiqueta visual basic. Mostrar todas las entradas
Mostrando entradas con la etiqueta visual basic. Mostrar todas las entradas
1/31/2015
2/25/2014
Tratamiento de fechas con Visual Basic .Net VBNET
Mostramos algunas funciones que podemos usar en VB.Net para tratamiento de fechas: sumar fechas, obtener días transcurridos, generar fecha, fecha actual, obtener día, mes, hora, minuto, segundo, milisegundo de una fecha, etc.
4/14/2012
Cómo desarrollar aplicación de servicio en Windows con VB.Net
Explicamos paso a paso en este tutorial cómo realizar un servicio de Windows mediante el lenguaje de programación Microsoft Visual Basic .Net
de Microsoft Visual Studio .Net. Mostramos cómo desarrollar una
aplicación especial: un servicio de Windows. Dicha aplicación se
integrará perfectamente en los servicios de Microsoft Windows 7 (o cualquier otro sistema operativo de Microsoft).
- Los servicios de Windows, definición, cómo se configuran, cómo consultar su estado.
- Desarrollar un servicio de Windows con VB.Net.
- Instalar y desinstalar un servicio de Windows.
- Depuración de una aplicación de Servicio de Windows con VB.Net.
- Cómo reaccionar a los sucesos de apagado y energía en nuestro servicio VB.Net.
- Anexo.
- Artículos relacionados.
- Créditos.
Los servicios de Windows, definición, cómo se configuran, cómo consultar su estado
Un servicio de Windows es una aplicación normal con
algunas pequeñas variaciones. Es un programa que es iniciado por el
sistema operativo en su arranque (si así ha sido configurado). El
usuario, en una situación normal, no los inicia ni los detiene, es el
sistema operativo el que realiza estas tareas, normalmente de forma
automática.
Un servicio de Windows es una aplicación que se
ejecuta en segundo plano (background), en situaciones normales un
servicio no interactúa con el usuario, no suelen mostrarse ventanas ni
mensajes que el usuario pueda ver. Suelen ser aplicaciones que realizan
tareas y procesos que no requieren de la intervención del usuario.
Un servicio de Windows se puede iniciar o detener desde la ventana de Servicios de Windows. Para el caso de Microsoft Windows 7,
desde el botón "Iniciar" - "Panel de control" - "Herramientas
administrativas" - "Servicios". En esta ventana podremos ver todos los
servicios instalados en el sistema operativo y su estado (iniciados,
detenidos o pausados). Pulsando con el botón derecho del ratón sobre uno
de ellos y seleccionando "Propiedades":
podremos ver las propiedades y configuración para el servicio actual. En la pestaña "General":
- Nombre de servicio: nombre con el que se identifica el servicio para tareas internas (iniciarlo o detenerlo desde la línea de comandos, etc.).
- Nombre para mostrar: nombre que aparece en la columna "Nombre" de la ventana de servicios.
- Descripción: descripción larga de lo que hace el servicio o la empresa que lo ha desarrollado.
- Ruta de acceso al ejecutable: carpeta y fichero ejecutable (aplicación) del servicio.
- Tipo de inicio: modo en el que arrancará el servicio: Automático (inicio retrasado), Automático, Manual ó Deshabilitado.
- Estado del servicio: estado actual del servicio: Iniciado, Detenido, Pausado.
- Con los botones "Iniciar", "Detener", "Pausar", "Reanudar" se podrá cambiar el estado del servicio.
En la pestaña "Iniciar sesión": desde esta pestaña
podremos configurar las opciones de seguridad, indicando con qué usuario
del equipo o del dominio (si el equipo pertenece a un dominio Windows).
Si el servicio requiere de interactuación con el usuario (aunque no es
lo habitual) podremos marcar la opción "Permitir que el servicio
interactúe con el escritorio":
En la pestaña "Recuperación" podremos configurar las
acciones a realizar en caso de que se produzca algún error en la
ejecución del servicio: qué hacer si se produce el primer error, el
segundo, si se producen más errores:
En la pestaña "Dependencias" se mostrará si el inicio
de un servicio depende de que otros servicios estén iniciados. De ser
así, antes de iniciar el servicio los servicios de los que depende deben
estar iniciados. También ocurre a la inversa, si otros servicios
dependen de éste y lo detenemos, también se detendrán los servicios que
dependen de éste:
Normalmente, los servicios iniciados suelen verse en el Administrador de tareas de Windows, desde la pestaña "Procesos":
Nota: en el ejemplo que os estamos
mostrando, el servicio se llama "Apache2.2" y como se puede observar, el
proceso se llama "httpd.exe", esto es porque el servicio "Apache2.2" en
realidad ejecuta el fichero "httpd.exe" (como se puede observar más
atrás en "Ruta de acceso al ejecutable").
Hay que tener en cuenta, si decidimos iniciar,
detener o cambiar el modo de inicio de algunos servicios (incluso si los
deshabilitamos para impedir su arranque), que algunos servicios son necesarios
para el correcto funcionamiento del sistema operativo, por lo que si
cambiamos su estado puede que éste deje de funcionar correctamente. Por
lo que es recomendable no modificar el estado y tipo de inicio de estos
servicios.
En el caso de que nuestro equipo vaya "lento" y pueda
ser debido a que tenemos muchos servicios de aplicaciones innecesarias
en ejecución, podremos usar la herramienta "msconfig" (Configuración del
sistema), desde el botón "Iniciar" - escribiendo "msconfig":
En la pestaña "Servicios" de "Configuración del
sistema" podremos deshabilitar los servicios que consideremos que no son
necesarios. Marcando la opción "Ocultar todos los servicios de
Microsoft" no se mostrarán los servicios del sistema operativo, por lo
que evitaremos cometer posibles errores. Hay que tener en cuenta que los
servicios que desmarquemos en esta ventana cambiarán el tipo de inicio a
"Deshabilitado", por lo que no podrán ejecutarse ni tan siquiera de
forma manual hasta que no volvamos a cambiar el tipo de inicio a Manual o
a Automático. Por ello hay que proceder con precaución o algunas
aplicaciones dejarán de funcionar:
Desarrollar un servicio de Windows con VB.Net Visual Basic .Net
Propósito del servicio Windows que desarrollaremos
A continuación vamos a explicar paso a paso cómo
desarrollar un servicio para Windows. Vamos a realizar una aplicación
que será y se integrará como un servicio de Windows.
Vamos a desarrollar un servicio de
ejemplo que permita cifrar todos los archivos contenidos en una carpeta
especificada del equipo. Cada fichero que el usuario copie en dicha
carpeta será automáticamente cifrado por nuestro servicio. Utilizaremos
un algoritmo de cifrado sencillo y el componente FileSystemWatcher para recibir una notificación cada vez que se cree un nuevo archivo en una determinada carpeta.
A continuación vamos a explicar cómo hacer un servicio con Microsoft Visual Basic .Net 2010
(válido para otras versiones) que, cada vez que el usuario cree un
fichero en una carpeta determinada. El servicio se iniciará de forma
automática usando FileSystemWatcher.
Este es un ejemplo cualquiera, los servicios se
pueden utilizar para cualquier tarea que estimemos oportuna, con un poco
de lógica, claro, no se debe confundir el uso específico de un sevicio
con el de una aplicación de escritorio. El servicio es una simple tarea
que dotará de una utilidad extra a otra aplicación o para realizar
tareas repetitivas y automáticas, que no requiere de intervención del
usuario y que se debe ejecutar cada cierto tiempo durante todo el día o
cuando se produzca un cierto "evento" como es el caso del ejemplo de
este artículo.
Desarrollar o implementar un servicio de Windows con Visual Basic .Net
Abriremos Microsoft Visual Basic .Net, pulsaremos en "Archivo" - "Nuevo proyecto":
Seleccionaremos "Visual Basic" - "Windows" en la
parte izquierda de "Plantillas instaladas", en la parte derecha
seleccionaremos "Servicio de Windows". Introduciremos en nombre el
identificador del proyecto, por ejemplo
"AjpdSoftServicioEncriptarCarpeta" y pulsaremos "Aceptar":
Nos mostrará la superficie de diseño para el fichero
"Service1.vb" que será el principal de nuestra aplicación de servicio de
Windows:
Pulsando en el "Explorador de soluciones" podremos
ver los ficheros que se han creado, renombraremos el fichero
"Service1.vb" por el nombre que queramos, por ejemplo
"EncriptarCarpeta.vb":
Agregaremos ahora el componente que nos permitirá
saber cuándo el usuario ha creado un nuevo fichero en la carpeta
especificada. Este componente será el que "active" nuestra aplicación
para que encripte el nuevo fichero. Para agregar este componente
pulsaremos en el Cuadro de herramientas, en "Componentes" -
"FileSystemWatcher" (realiza el seguimiento de las notificaciones de
cambio del sistema de archivos y desencadena eventos cuando cambia un
directorio o archivo):
El componente FileSystemWatcher quedará agregado:
Estableceremos ahora las propiedades del servicio que
estamos desarrollando. Para ello pulsaremos con el botón derecho sobre
la superficie de diseño y seleccionaremos "Propiedades":
Las propiedades disponibles para nuestra aplicación servicio de Windows son:
- Name: nombre del servicio (System.ServiceProcess.ServiceBase) para uso en el código de nuestra aplicación.
- AutoLog: si establecemos esta propiedad a True, el servicio escribirá entradas de forma automática en el registro de sucesos "Aplicación" de Windows, en las siguientes situaciones: cuando el servicio se inicia y se detiene con éxito, cuando se detiene de forma temporal (pausa) y se reaunda con éxito y, finalmente, cuando algún comando no se ejecuta correctamente. Los mensajes enviados al registro de sucesos de Windows son más bien genéricos, del tipo "El servicio se ha iniciado con éxito" y no tendrá control sobre su contenido, pero resultan adecuados en la mayoría de los casos y de gran utilidad, especialmente durante la fase de depuración de la aplicación.
- CanHandlePowerEvent: indica si el servicio puede controlar notificaciones de los cambios de estado de la alimentación del equipo.
- CanHandleSessionChangeEvent: indica si el servicio puede controlar eventos de cambio de sesión recibidos de una sesión de Terminal Server.
- CanPauseAndContinue: indica si se puede pausar y reanudar el servicio.
- CanShutdown: indica si se debe informar al servicio de que el sistema se está cerrando.
- CanStop: indica si puede detenerse el servicio una vez se ha iniciado.
- ExitCode: obtiene o establece el código de salida para el servicio.
- Language: lenguaje de la aplicación de servicio.
- Localizable: determina si se va a generar código traducible para este objeto.
- ServiceName: nombre que identificará el servicio en el sistema Windows. Será el nombre que se establezca para el servicio en Windows.
- Name: nombre identificativo para el componente para uso en el código, por ejemplo "cambioFicheroCarpeta".
- EnableRaisingEvents: indica si el componente está habilitado, lo pondremosa False para que el componente no provoque sucesos antes de que se inicie el servicio.
- Filter: cadena de filtro utilizada para determinar qué archivos se supervisan en un directorio.
- GenerateMember: indica si se generará una variable miembro para este componente.
- IncludeSubdirectories: indica si se deben supervisar los subdirectorios de la ruta de acceso especificada.
- Modifiers: indica el nivel de visibilidad del objeto.
- NotifyFilter: establece el tipo de cambios que se van a inspeccionar.
- Path: establece la ruta de acceso del directorio que se va a inspeccionar.
El servicio leerá la carpeta que usará para comprimir
los archivos de un fichero de configuración INI. De esta forma el
usuario podrá indicar qué carpeta quiere usar. Para ello añadiremos una
clase a nuestro proyecto VB.Net
que nos permitirá leer valores de configuración de ficheros INI. Para
añadir esta clase pulsaremos en el "Explorador de soluciones",
pulsaremos con el botón derecho sobre el proyecto y seleccionaremos
"Agregar" - "Clase":
Introduciremos un nombre para la clase, por ejemplo "LeerEscribirFicherosINI.vb":
Copiaremos y pegaremos el código de este enlace
(contenido de la clase para trabajar con ficheros INI) en el fichero de
clase creado "LeerEscribirFicherosINI": Funciones para leer y escribir en ficheros INI VB.Net:
Añadiremos ahora el código VB.Net necesario para activar el componente FileSystemWatcher cuando se inicie el servicio, en el evento "OnStart" del fichero "EncriptarCarpeta.vb":
Protected Overrides Sub OnStart(ByVal args() As String)
Dim carpetaCifrar As String
'Leemos la carpeta a cifrar del fichero INI de configuración
Dim objFicherosINI As New LeerEscribirFicherosINI(
System.IO.Path.Combine(System.AppDomain.CurrentDomain.BaseDirectory,
"configuracion.ini"))
carpetaCifrar = objFicherosINI.GetString("Configuración", "Carpeta",
System.AppDomain.CurrentDomain.BaseDirectory)
'Comprobamos que el directorio a encriptar existe
'Si no existe lo creamos
If Not System.IO.Directory.Exists(carpetaCifrar) Then
System.IO.Directory.CreateDirectory(carpetaCifrar)
End If
'Activamos la recepción de sucesos de archivos
cambioFicheroCarpeta.Path = carpetaCifrar
cambioFicheroCarpeta.EnableRaisingEvents = True
End Sub
Añadiremos ahora el código VB.Net necesario para desactivar el componente FileSystemWatcher cuando se detenga el servicio, en el evento "OnStop" del fichero "EncriptarCarpeta.vb":
Protected Overrides Sub OnStop()
'Detenemos la recepción de sucesos de archivos
cambioFicheroCarpeta.EnableRaisingEvents = False
End Sub
Introduciremos ahora el código VB.Net
necesario para cifrar los ficheros que el usuario vaya creando o
copiando a la carpeta establecida en el fichero de configuración INI.
Por un lado declararemos una variable para establecer la contraseña de
cifrado y la extensión de los ficheros temporales que se crearán para el
cifrado:
Public Class EncriptarCarpeta
Dim clavesCifrado() As Byte = {234, 125, 22, 6, 54, 45, 254}
Dim extensionFicherosTMP As String = ".###"
Crearemos los procedimientos necesarios para el cifrado de los ficheros: Private Sub encritarFicheros(ByVal nombreFichero As String,
ByVal clavesCifrado() As Byte)
'tamaño de cada bloque de entrada,
'el tamaño para descrifrar deberá ser igual
Const tamanoBloque = 8192
'nombre del fichero temporal que se creará para el cifrado
Dim ficheroTemporal As String = nombreFichero & extensionFicherosTMP
'abrimos el archivo origen como una secuencia binaria de entrada
Dim entradaStr As New System.IO.FileStream(nombreFichero, IO.FileMode.Open)
'abrimos el archivo temporal de salida como una secuencia binaria de entrada
Dim salidaStr As New System.IO.FileStream(ficheroTemporal, IO.FileMode.Create)
'determinar el número de bytes que se desean leer
Dim tamanoBytes As Long = entradaStr.Length
'preparar un búfer de entrada
Dim buffer(tamanoBloque - 1) As Byte
'mientras que haya bytes que leer
Do While tamanoBytes > 0
'lectura máxima de 8kb por bloque
Dim bytesLeer As Long = Math.Min(tamanoBloque, tamanoBytes)
'leer dentro del búfer de entrada
entradaStr.Read(buffer, 0, bytesLeer)
'cifrar este búfer
encritarArray(buffer, clavesCifrado)
'enviar la salida a un archivo temporal
salidaStr.Write(buffer, 0, bytesLeer)
tamanoBytes -= bytesLeer
Loop
'cerrar las dos secuencias
entradaStr.Close()
salidaStr.Close()
'eliminar el archivo de origen
System.IO.File.Delete(nombreFichero)
'renombrar el archivo temporal como el original
System.IO.File.Move(ficheroTemporal, nombreFichero)
End Sub
'Cifrar con xor una matriz de bytes
Sub encritarArray(ByVal buffer() As Byte, ByVal pwBytes() As Byte)
'índice que apunta al búfer
Dim indice As Integer
'índice que apunta a la matriz de contraseñas
Dim i As Integer
'valor máximo de i
Dim maximo As Integer = pwBytes.Length
For indice = 0 To buffer.Length - 1
'hacer un XOR de cada elemento contenido en el búfer con
'el correspondiente elemento de contraseña
buffer(indice) = buffer(indice) Xor pwBytes(i)
'comprobar que el índice corresponde siempre al rango válido
i = (i + 1) Mod maximo
Next
End Sub
En el evento OnCreated del FileSystemWatcher añadiremos el siguiente código VB.Net:
Private Sub cambioFicheroCarpeta_Created(sender As System.Object, _
e As System.IO.FileSystemEventArgs) _
Handles cambioFicheroCarpeta.Created
Dim carpetaCifrar As String
'Leemos la carpeta a cifrar del fichero INI de configuración
Dim objFicherosINI As New LeerEscribirFicherosINI(
System.IO.Path.Combine(System.AppDomain.CurrentDomain.BaseDirectory,
"configuracion.ini"))
carpetaCifrar = objFicherosINI.GetString("Configuración", "Carpeta",
System.AppDomain.CurrentDomain.BaseDirectory)
If System.IO.Path.GetExtension(carpetaCifrar) <> extensionFicherosTMP Then
encritarFicheros(carpetaCifrar, clavesCifrado)
End If
End Sub
Agregar instalador a proyecto VB.Net ServiceInstaller y ServiceProcessInstaller
Los servicios de Windows no se pueden iniciar como
una aplicación normal. En primer lugar, para iniciar un servicio de
Windows, deberemos instalarlo en el equipo en el que queramos ejecutarlo
y, a continuación, podremos iniciarlo mediante el complemento Servicios
(services.msc) o bien desde la línea de comandos usando NET START.
En el caso de Microsoft Visual Basic .Net,
el primer paso para poder instalar el servicio es agregar una clase
instaladora. Esta clase puede ser instalada o bien usando la herramienta
automática de la que dispone Microsoft Visual Studio .Net o bien creando manualmente la clase instaladora mediante código.
El primer método es el más sencillo y se adapta a
casi todas las situaciones normales de un servicio. Para usarlo
accederemos a la ventana de diseño de nuestra aplicación de servicio (EncriptarCarpeta.vb [Diseño]),
en esta pestaña pulsaremos con el botón derecho del ratón en cualquier
parte donde no haya elementos, nos mostrará un mensaje emergente,
seleccionaremos "Agregar instalador":
Visual Basic .Net añadirá un nuevo componente a la aplicación de servicio llamado ProjectInstaller.vb, en este nuevo componente habrá añadido dos objetos adicionales: ServiceProcessInstaller1 y ServiceInstaller1. Pulsando con el botón derecho del ratón sobre ServiceInstaller1 y seleccionando "Propiedades" podremos establecer las propiedades para el servicio que se instalará, las más importantes:
- ServiceName: esta propiedad debe coincidir con la propiedad ServiceName de la clase servicio que hemos configurado inicialmente, en nuestro caso AjpdSoftEncriptarFicheros.
- DisplayName: cadena de texto descriptiva del servicio, por ejemplo indicando lo que hace: "Encripta los ficheros de la carpeta indicada en el fichero de configuración". Este texto aparecerá en el programa complementario MMC denominado Servicios (services.msc).
- StartType: tipo de inicio del servicio, las posibilidades son: automático, manual o deshabilitado. En nuestro caso seleccionaremos "Automatic" para que el servicio se inicie de forma automática cada vez que arranquemos el equipo.
- ServicesDependedOn: si nuestro servicio depende de otros servicios para poder ser iniciado, es decir, si para iniciar nuestro servicio debe haber otros iniciados los podremos indicar aquí.
Para configurar el contexto de seguridad del servicio
pulsaremos con el botón derecho del ratón sobre
"ServiceProcessInstaller1", seleccionaremos "Propiedades". Desde esta
ventana de propiedades podremos indicar el tipo de cuenta en "Account"
con las posibilidades:
- LocalService: cuenta que actúa como usuario sin privilegios en el equipo local y presenta credenciales anónimas a cualquier servidor remoto.
- NetworkService: cuenta que proporciona amplis privilegios locales y presenta credenciales del equipo a cualquier servidor remoto.
- LocalSystem: una cuenta, utilizada por el administrador de control de servicio, que tiene amplios privilegios en el equipo local y funciona como un equipo de la red.
- User: cuenta definida por un usuario específico en la red. Si se especifica User para el miembro ServiceProcessInstaller.Account, el sistema pide un nombre de usuario y una contraseña al instalar el servicio, a menos que se establezcan valores para las propiedades Username y Password de la instancia de ServiceProcessInstaller.
Generar ejecutable de servicio en Visual Basic .Net
Generaremos el ejecutable del servicio para poder
instalarlo postieriormente, para ello en el IDE de Visual Basic .Net
pulsaremos en el menú "Generar" - "Generar
AjpdSoftServicioEncriptarCarpeta":
Si no hay errores de compilación VB.Net habrá creado el fichero ejecutable de nuestro servicio Windows en la carpeta bin del proyecto:
Crearemos el fichero de configuración INI para
indicar la carpeta a encritar, para ello abriremos el notepad (bloc de
notas) de Windows o cualquier otro editor de texto plano y escribiremos
el siguiente contenido:
[Configuración]
Carpeta=C:/encriptar
Guardaremos el fichero con el nombre "configuracion.ini" en la misma carpeta que el ejecutable del servicio:
Copiaremos el ejecutable
AjpdSoftServicioEncriptarCarpeta.exe y el fichero configuracion.ini a
una carpeta de la unidad C para facilitar la instalación del servicio
(para evitar rutas largas). Por ejemplo los copiaremos a la carpeta:
C:/ServicioEncriptar
Instalar y desinstalar un servicio de Windows
Instalar servicio de Windows desarrollado con VB.Net
Para instalar el servicio desarrollado anteriormente
con VB.Net usaremos la herramienta que incorpora .Net Framework llamada
InstallUtil, dicha herramienta suele estar ubicada en:
C:/Windows/Microsoft.NET/Framework/v.xxxxx/InstallUtil.exe
donde v.xxxxx es la versión de .Net Framework que tengamos instalada en el equipo.
Abriremos una ventana de MS-DOS de la línea de
comandos como administrador, para ello pulsaremos en el botón "Iniciar" -
"Accesorios", sobre "Símbolo del sistema" pulsaremos con el botón
derecho del ratón y seleccionaremos "Ejecutar como administrador":
Desde la línea de comandos accederemos a la carpeta donde se encuentra el fichero InstallUtil.exe, con el comando "cd":
cd c:/Windows/Microsoft.NET/Framework/v4.0.30319
Para instalar el servicio desarrollado ejecutaremos el siguiente comando:
installutil C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe
Si todo es correcto devolverá:
La fase de confirmación finalizó correctamente.
La instalación con transacciones ha finalizado.
A continuación el listado de los mensajes devueltos tras la instalación del servicio de Windows por InstallUtil:
cd c:/Windows/Microsoft.NET/Framework/v4.0.30319
installutil C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe
Utilidad de instalación de Microsoft (R) .NET Framework, versión 4.0.30319.1
(C) Microsoft Corporation. Reservados todos los derechos.
Ejecutando una instalación de transacción.
Iniciando la fase de instalación dentro de la instalación.
Consulte el contenido del archivo de registro sobre el progreso del ensamblado C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe.
El archivo está ubicado en C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.InstallLog.
Instalando ensamblado 'C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe'.
Los parámetros afectados son:
logtoconsole =
logfile = C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.InstallLog
assemblypath = C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe
Instalando el servicio AjpdSoftEncriptarFicheros...
El servicio AjpdSoftEncriptarFicheros se ha instalado correctamente.
Creando el origen de EventLog AjpdSoftEncriptarFicheros en el registro Application...
La fase de instalación finalizó correctamente y la fase de confirmación está empezando.
Consulte el contenido del archivo de registro sobre el progreso del ensamblado C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe.
El archivo está ubicado en C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.InstallLog.
Confirmando ensamblado 'C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe'.
Los parámetros afectados son:
logtoconsole =
logfile = C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.InstallLog
assemblypath = C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe
La fase de confirmación finalizó correctamente.
La instalación con transacciones ha finalizado.
Si todo es correcto podremos consultar el servicio en el "Panel de Control" - "Herramientas administrativas" - "Servicios":
Nos aparecerá un nuevo servicio con el nombre
"AjpdSoft Encriptar Ficheros", inicialmente en estado detenido. Haciendo
doble clic sobre él podremos ver las propiedades:
El nombre del servicio será:
AjpdSoftEncriptarFicheros, el nombre para mostrar: "AjpdSoft Encritpar
Ficheros", la descripción: "Encripta los ficheros de la carpeta
especificada", el tipo de inicio "Automático". Pulsaremos "Iniciar" para
activar la aplicación de servicio y así poder probarlo:
Desinstalar servicio de Windows
Si queremos desinstalar el servicio ejecutaremos el siguiente comando:
installutil "C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe" /u
installutil C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe /u
Utilidad de instalación de Microsoft (R) .NET Framework, versión 4.0.30319.1
(C) Microsoft Corporation. Reservados todos los derechos.
Iniciando la desinstalación.
Consulte el contenido del archivo de registro sobre el progreso del ensamblado C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe.
El archivo está ubicado en C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.InstallLog.
Desinstalando ensamblado 'C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe'.
Los parámetros afectados son:
logtoconsole =
logfile = C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.InstallLog
assemblypath = C:/ServicioEncriptar/AjpdSoftServicioEncriptarCarpeta.exe
Quitando el origen de EventLog AjpdSoftEncriptarFicheros.
Se está quitando el servicio AjpdSoftEncriptarFicheros del sistema...
El servicio AjpdSoftEncriptarFicheros se ha quitado correctamente del sistema.
La desinstalación ha finalizado.
Depuración de una aplicación de Servicio de Windows con VB.Net
Si la aplicación de servicio con VB.Net produce algún
error no controlado por nosotros, será escrito automáticamente en el
visor de eventos de Windows. Desde "Inicio" - "Panel de Control" -
"Herramientas administrativas" - "Visor de eventos", en "Registros de
Windows" - "Aplicación" podremos ver los posibles errores de nuestro
servicio:
Si queremos realizar una depuración más a fondo, por
ejemplo para saber cuándo nuestra aplicación de servicio encripta un
fichero, deberemos escribir nosotros mismos en el visor de eventos. Para
ello añadiremos la siguiente línea donde y cuando queramos que la
aplicación escriba en el visor de eventos:
Me.EventLog.WriteEntry("Encriptando fichero...")
Podemos controlar los posibles errores de nuestra
aplicación y guardar el error que se pueda producir en el Visor de
eventos. Para ello, en el código propenso a producir algún error,
añadiríamos:
Try
...........
Catch ex As Exception
Me.EventLog.WriteEntry("Error al encriptar: " & ex.Message)
End Try
Por supuesto, otra opción para depurar nuestra
aplicación de servicio es escribir los eventos que queramos registrar en
un fichero de log (fichero de texto plano). De esta forma no
necesitaremos escribir en el Visor de eventos y será más sencillo
consultar y depurar posibles errores. Un procedimiento para escribir en
un fichero de log:
Private Sub escribirLog(texto As String)
Dim fichero As New System.IO.StreamWriter("c:\encriptar.log", True)
fichero.WriteLine(Now & Chr(9) & texto)
fichero.Close()
End Sub
Un ejemplo de uso de este procedimiento:escribirLog("Leyendo carpeta a cifrar de fichero INI")
Cómo reaccionar a los sucesos de apagado y energía en nuestro servicio VB.Net
La mayoría de las aplicaciones de servicio suelen
disponer de código de limpieza en sus métodos OnStop y OnPause para que
el servicio no consuma recursos cuando no se encuentre en ejecución. En
algunos casos, será conveniente ejecutar código especial cuando se
apague el sistema o cuando el sistema entre en modo suspensión u otro
sucesos relacionado con la alimentación de energía.
Por ejemplo, para ejecutar código cuando se apague el sistema realizaremos los siguientes pasos:
1. Pulsaremos con el botón derecho del ratón sobre el diseñador del servicio y seleccionaremos "Propiedades":
2. Cambiaremos el valor de la propiedad "OnShutdown" a True en la ventana de propiedades del servicio:
3. Añadiremos el siguiente procedimiento para cuando
se produzca el evento de apagado del sistema "OnShutdown", en este
procedimiento pondremos el código que queramos que se ejecute cuando se
vaya a apagar el equipo:
Protected Overrides Sub OnShutdown()
cambioFicheroCarpeta.EnableRaisingEvents = False
escribirLog("El equipo se está apagando")
End Sub
De la misma forma podremos activar la propiedad "CanHandlePowerEvent"
del servicio a True y usaremos el procedimiento "OnPwerEvent" como se
indica a continuación: Protected Overrides Function OnPowerEvent(powerStatus As _
System.ServiceProcess.PowerBroadcastStatus) As Boolean
Select Case powerStatus
Case ServiceProcess.PowerBroadcastStatus.Suspend
escribirLog("El equipo se está suspendiendo")
Case ServiceProcess.PowerBroadcastStatus.ResumeSuspend
escribirLog("El equipo se está saliendo del modo suspensión")
Case ServiceProcess.PowerBroadcastStatus.BatteryLow
escribirLog("El equipo tiene la batería baja")
End Select
Return True
End Function
Anexo
Código fuente o source code del servicio de ejemplo de este artículo
Public Class EncriptarCarpeta
Dim clavesCifrado() As Byte = {234, 125, 22, 6, 54, 45, 254}
Dim extensionFicherosTMP As String = ".###"
Protected Overrides Sub OnShutdown()
cambioFicheroCarpeta.EnableRaisingEvents = False
escribirLog("El equipo se está apagando")
End Sub
Protected Overrides Function OnPowerEvent(powerStatus As _
System.ServiceProcess.PowerBroadcastStatus) As Boolean
Select Case powerStatus
Case ServiceProcess.PowerBroadcastStatus.Suspend
escribirLog("El equipo se está suspendiendo")
Case ServiceProcess.PowerBroadcastStatus.ResumeSuspend
escribirLog("El equipo se está saliendo del modo suspensión")
Case ServiceProcess.PowerBroadcastStatus.BatteryLow
escribirLog("El equipo tiene la batería baja")
End Select
Return True
End Function
Private Sub escribirLog(texto As String)
Dim fichero As New System.IO.StreamWriter("c:\encriptar.log", True)
fichero.WriteLine(Now & Chr(9) & texto)
fichero.Close()
End Sub
Protected Overrides Sub OnStart(ByVal args() As String)
Dim carpetaCifrar As String
escribirLog("Leyendo carpeta a cifrar de fichero INI")
'Leemos la carpeta a cifrar del fichero INI de configuración
Dim objFicherosINI As New LeerEscribirFicherosINI(
System.IO.Path.Combine(System.AppDomain.CurrentDomain.BaseDirectory,
"configuracion.ini"))
carpetaCifrar = objFicherosINI.GetString("Configuración", "Carpeta",
System.AppDomain.CurrentDomain.BaseDirectory)
escribirLog("Carpeta a cifrar: " & carpetaCifrar)
'Comprobamos que el directorio a encriptar existe
'Si no existe lo creamos
If Not System.IO.Directory.Exists(carpetaCifrar) Then
System.IO.Directory.CreateDirectory(carpetaCifrar)
escribirLog("Carpeta a cifrar no existente, se ha creado")
End If
'Activamos la recepción de sucesos de archivos
cambioFicheroCarpeta.Path = carpetaCifrar
cambioFicheroCarpeta.EnableRaisingEvents = True
escribirLog("Activada la recepción de sucesos de archivos")
End Sub
Protected Overrides Sub OnStop()
'Detenemos la recepción de sucesos de archivos
cambioFicheroCarpeta.EnableRaisingEvents = False
escribirLog("Detenida la recepción de sucesos de archivos")
End Sub
Private Sub cambioFicheroCarpeta_Created(sender As System.Object, _
e As System.IO.FileSystemEventArgs) _
Handles cambioFicheroCarpeta.Created
Dim carpetaCifrar As String
escribirLog("Obtenemos carpeta a cifrar para activar el monitor de cambios")
'Leemos la carpeta a cifrar del fichero INI de configuración
Dim objFicherosINI As New LeerEscribirFicherosINI(
System.IO.Path.Combine(System.AppDomain.CurrentDomain.BaseDirectory,
"configuracion.ini"))
carpetaCifrar = objFicherosINI.GetString("Configuración", "Carpeta",
System.AppDomain.CurrentDomain.BaseDirectory)
If System.IO.Path.GetExtension(carpetaCifrar) <> extensionFicherosTMP Then
encritarFicheros(carpetaCifrar, clavesCifrado)
End If
End Sub
Private Sub encritarFicheros(ByVal nombreFichero As String, ByVal clavesCifrado() As Byte)
Me.EventLog.WriteEntry("Encriptando fichero: " & nombreFichero)
Try
escribirLog("Encriptando fichero " & nombreFichero)
'tamaño de cada bloque de entrada, el tamaño para descrifrar deberá ser igual
Const tamanoBloque = 8192
'nombre del fichero temporal que se creará para el cifrado
Dim ficheroTemporal As String = nombreFichero & extensionFicherosTMP
'abrimos el archivo origen como una secuencia binaria de entrada
Dim entradaStr As New System.IO.FileStream(nombreFichero, IO.FileMode.Open)
'abrimos el archivo temporal de salida como una secuencia binaria de entrada
Dim salidaStr As New System.IO.FileStream(ficheroTemporal, IO.FileMode.Create)
'determinar el número de bytes que se desean leer
Dim tamanoBytes As Long = entradaStr.Length
'preparar un búfer de entrada
Dim buffer(tamanoBloque - 1) As Byte
'mientras que haya bytes que leer
Do While tamanoBytes > 0
'lectura máxima de 8kb por bloque
Dim bytesLeer As Long = Math.Min(tamanoBloque, tamanoBytes)
'leer dentro del búfer de entrada
entradaStr.Read(buffer, 0, bytesLeer)
'cifrar este búfer
encritarArray(buffer, clavesCifrado)
'enviar la salida a un archivo temporal
salidaStr.Write(buffer, 0, bytesLeer)
tamanoBytes -= bytesLeer
Loop
'cerrar las dos secuencias
entradaStr.Close()
salidaStr.Close()
'eliminar el archivo de origen
System.IO.File.Delete(nombreFichero)
'renombrar el archivo temporal como el original
System.IO.File.Move(ficheroTemporal, nombreFichero)
escribirLog("Encriptado fichero " & nombreFichero)
Me.EventLog.WriteEntry("Encriptado fichero: " & nombreFichero)
Catch ex As Exception
Me.EventLog.WriteEntry("Error al encriptar: " & ex.Message)
escribirLog("Error al encriptar fichero " & nombreFichero & " " & ex.Message)
End Try
End Sub
'Cifrar con xor una matriz de bytes
Sub encritarArray(ByVal buffer() As Byte, ByVal pwBytes() As Byte)
'índice que apunta al búfer
Dim indice As Integer
'índice que apunta a la matriz de contraseñas
Dim i As Integer
'valor máximo de i
Dim maximo As Integer = pwBytes.Length
For indice = 0 To buffer.Length - 1
'hacer un XOR de cada elemento contenido en el búfer con
'el correspondiente elemento de contraseña
buffer(indice) = buffer(indice) Xor pwBytes(i)
'comprobar que el índice corresponde siempre al rango válido
i = (i + 1) Mod maximo
Next
End Sub
End Class
Artículos relacionados
- Cómo desarrollar un servicio de Windows con Borland Delphi.
- Generar y leer códigos QR Quick Response Barcode con Visual Basic .Net VB.Net.
- Socket Visual Basic .Net, conexión mediante socket VB.Net y System.Net.Sockets.
- Desarrollar aplicación VB.Net con componentes enlazados a MySQL de forma nativa.
- El control de errores en Visual Basic .Net.
- Cómo capturar errores genéricos ó excepciones en Borland ó Codegear Delphi.
- AjpdSoft Generador y Lector códigos QR VB.Net.
- AjpdSoft Socket VB.Net.
- AjpdSoft Envío SMS Visual Basic .Net.
- AjpdSoft Insertar Evento Google Calendar.
- AjpdSoft Envío EMail SSL VB.Net.
- AjpdSoft Conexión BD Visual Basic .Net.
- AjpdSoft Ejecutar comando MS-DOS y capturar la salida.
- Foro del Proyecto AjpdSoft sobre Visual Basic, Visual Studio .Net, VB.Net.
- Código fuente gratuito de aplicaciones completas en Delphi y Visual Basic.
- Foro del Proyecto AjpdSoft sobre las aplicaciones de AjpdSoft (dudas, errores, sugerencias).
Créditos
Artículo realizado íntegramente por Alonsojpd miembro fundador del Proyecto AjpdSoft.
1/06/2012
Generar y leer códigos QR Quick Response Barcode con Visual Basic .Net VB.Net
Explicamos en este artículo cómo desarrollar una aplicación con Microsoft Visual Basic .Net VB.Net para generar códigos QR (Quick Response Barcode ó código de barras de respuesta rápida) usando la librería ThoughtWorks.QRCode.dll.
Mostramos también cómo usar esta librería para añadir la opción de
reconocer un código QR guardado (capturado en una imagen). Explicamos
cómo escanear códigos QR desde un smartphone o móvil Samsung Galaxy SII.
- Código QR Quick Response Barcode o código de barras de respuesta rápida.
- Desarrollar aplicación Visual Basic .Net VB.Net para generar y leer códigos QR.
- Instalar Microsoft Visual Studio .Net.
- Crear aplicación proyecto VB.Net y diseño AjpdSoft Generador y lector códigos QR.
- Librería dll, agregar referencia en VB.Net para generar y leer códigos QR con VB.Net.
- Código fuente solución Visual Basic .Net para leer y generar códigos QR Quick Response Barcode.
- AjpdSoft Generador y lector códigos QR en funcionamiento.
- Escanear códigos QR con smartphone Samsung Galaxy SII y aplicación QR Droid.
- Artículos relacionados.
- Créditos.
Código QR Quick Response Barcode o código de barras de respuesta rápida
Un código QR (Quick Response Barcode ó código de
barras de respuesta rápida) es un sistema para almacenar información en
una matriz de puntos o un código de barras bidimensional. Fue creado por
la compañía japonesa Denso-Wave en el año 1994. Estos códigos se
caracterizan por los tres cuadrados que se encuentran en las esquinas y
que sirven para que los lectores de códigos QR puedan detectar su
posición. Los códigos QR son muy comunes en Japón y de hecho son el
código bidimensional más popular en ese país.
Aunque inicialmente se usó para registrar repuestos
en el área de la fabricación de vehículos, hoy, los códigos QR se usan
para administración de inventarios en una gran variedad de industrias.
Recientemente, la inclusión de software que lee códigos QR en teléfonos
móviles, ha permitido nuevos usos orientados al consumidor, que se
manifiestan en comodidades como el dejar de tener que introducir datos
de forma manual en los teléfonos. Las direcciones y las URLs
se están volviendo cada vez más comunes en revistas, anuncios,
emplazamientos turísticos, etc. El agregado de códigos QR en tarjetas de
presentación también se está haciendo común, simplificando en gran
medida la tarea de introducir detalles individuales de un nuevo cliente
en la agenda de un teléfono móvil.
Los códigos QR también pueden leerse desde PC o
smartphone mediante dispositivos de captura de imagen, como puede ser un
escáner o la cámara de fotos siempre y cuando estos dispositivos tengan
algún software que permita leer los datos QR.
Ejemplo de código QR que guarda la URL de nuestro sitio web (http://www.ajpdsoft.com):
Desarrollar aplicación Visual Basic .Net VB.Net para generar y leer códigos QR
Instalar Microsoft Visual Studio .Net
Instalaremos Microsoft Visual Studio .Net como indicamos en este artículo:
Crear aplicación proyecto VB.Net y diseño AjpdSoft Generador y lector códigos QR
Una vez instalado el IDE de desarrollo que usaremos, crearemos un nuevo proyecto. Para ello pulsaremos en el menú "Archivo" - "Nuevo proyecto" de Microsoft Visual Studio .Net:
En "Plantillas instaladas" seleccionaremos "Visual
Basic" - "Windows", en la parte derecha seleccionaremos "Aplicación de
Windows Forms". Introduciremos un nombre para el nuevo proyecto, por
ejemplo "AjpdSoftLectorCodigosQR". Tras introducir los datos básicos de
la nueva solución pulsaremos "Aceptar":
Añadiremos un componente TabControl con dos fichas,
en la primera coloraremos los componentes necesarios para configurar el
código QR que se generará: texto que contendrá (sms, url, texto,
teléfono, contacto, email, red wifi, geolocalización, evento), nivel de
corrección, color de fondo, color del código, escala de los píxeles,
forzar UTF-8:
Dentro de esta ficha también colocaremos otro
TabControl para añadir todos los valores para el QR que queramos generar
de forma automática: SMS, URL, Texto, Teléfono, Contacto, Email,
Evento, Red Wifi, Geolocalización:
- Para el SMS:
- Para la URL:
- Para el Texto libre:
- Para llamada a un teléfono:
- Insertar contacto en agenda:
- Enviar correo electrónico (email):
- Insertar evento en calendario:
- Conectar a una red Wifi:
- Geolocalización, abrir mapa con un punto determinado:
En el TabControl principal colocaremos un segundo TabControl donde pondremos todos los componentes para la generación del QR:
y en otra ficha colocaremos un TextBox para mostrar el texto resultante con el que se generará el QR:
En una segunda ficha del TabControl principal
colocaremos los componentes necesarios para leer un código QR ya
guardado en imagen:
Añadiremos también dos componentes no visuales para imprimir los códigos QR generados un PrintDialog y un PrintDocument (componentes del Cuadro de herramientas, ficha "Impresión"):
En la siguiente descarga publicamos el diseño y el código fuente completo de la aplicación AjpdSoft Generador y Lector códigos QR:
Librería dll, agregar referencia en VB.Net para generar y leer códigos QR con VB.Net
Para realizar un proyecto software en VB.Net que
genere códigos QR y que lea códigos QR generados y previamente guardos
en imagen utilizaremos una librería llamada ThoughtWorks.QRCode.dll. Dicha librería está disponible en la descarga gratuita AjpdSoft Generador y Lector códigos QR código fuente VB.Net.
Una vez descargada esta librería la colocaremos en una carpeta del
proyecto, a continuación agregaremos la correspondiente referencia en
nuestra solución VB.Net a esta librería. Para ello accederemos al menú
"Proyecto" - "Agregar referencia":
Seleccionaremos el fichero de la librería ThoughtWorks.QRCode.dll:
En el código fuente de nuestra solución, en el fichero .vb del formulario principal añadiremos los imports correspondientes:
Imports ThoughtWorks.QRCode
Imports ThoughtWorks.QRCode.Codec
Imports ThoughtWorks.QRCode.Codec.Data
Código fuente solución Visual Basic .Net para leer y generar códigos QR Quick Response Barcode
A continuación mostramos el listado del código fuente completo (de todos los eventos y componentes) para generar la aplicación AjpdSoft Generador y Lector códigos QR:
Imports ThoughtWorks.QRCode
Imports ThoughtWorks.QRCode.Codec
Imports ThoughtWorks.QRCode.Codec.Data
Public Class formLeerGenerarCodigosQR
Private colorFondoQR As Integer =
Color.FromArgb(255, 255, 255, 255).ToArgb
Private colorQR As Integer =
Color.FromArgb(255, 0, 0, 0).ToArgb
Private Function AdjustQRVersion(ByVal TextEncode As String,
ByVal qrCodeErrCorrect As _
Codec.QRCodeEncoder.ERROR_CORRECTION) As Integer
Dim textb() As Byte =
System.Text.UTF8Encoding.UTF8.GetBytes(TextEncode)
Dim ibits As Integer = ((textb.Length + 1) * 8) + 8
Return -1
Select Case qrCodeErrCorrect
'Corrección de errores del 7%
Case QRCodeEncoder.ERROR_CORRECTION.L
Select Case ibits
Case Is <= 152
Return 1
Case Is <= 272
Return 2
Case Is <= 440
Return 3
Case Is <= 640
Return 4
Case Is <= 864
Return 5
Case Is <= 1088
Return 6
Case Is <= 1248
Return 7
Case Is <= 1552
Return 8
Case Is <= 1856
Return 9
Case Is <= 2192
Return 10
Case Is <= 2592
Return 11
Case Is <= 2960
Return 12
Case Is <= 3424
Return 13
Case Is <= 3688
Return 14
Case Is <= 4184
Return 15
Case Is <= 4712
Return 16
Case Is <= 5176
Return 17
Case Is <= 5768
Return 18
Case Is <= 6360
Return 19
Case Is <= 6888
Return 20
Case Is <= 7456
Return 21
Case Is <= 8048
Return 22
Case Is <= 8752
Return 23
Case Is <= 9392
Return 24
Case Is <= 10208
Return 25
Case Is <= 10960
Return 26
Case Is <= 11744
Return 27
Case Is <= 12248
Return 28
Case Is <= 13048
Return 29
Case Is <= 13880
Return 30
Case Is <= 14744
Return 31
Case Is <= 15640
Return 32
Case Is <= 16568
Return 33
Case Is <= 17528
Return 34
Case Is <= 18448
Return 35
Case Is <= 19472
Return 36
Case Is <= 20528
Return 37
Case Is <= 21616
Return 38
Case Is <= 22496
Return 39
Case Is <= 23648
Return 40
Case Else
Return -1
End Select
'Corrección de errores del 15%
Case QRCodeEncoder.ERROR_CORRECTION.M
Select Case ibits
Case Is <= 128
Return 1
Case Is <= 224
Return 2
Case Is <= 352
Return 3
Case Is <= 512
Return 4
Case Is <= 688
Return 5
Case Is <= 864
Return 6
Case Is <= 992
Return 7
Case Is <= 1232
Return 8
Case Is <= 1456
Return 9
Case Is <= 1728
Return 10
Case Is <= 2032
Return 11
Case Is <= 2320
Return 12
Case Is <= 2672
Return 13
Case Is <= 2920
Return 14
Case Is <= 3320
Return 15
Case Is <= 3624
Return 16
Case Is <= 4056
Return 17
Case Is <= 4504
Return 18
Case Is <= 5016
Return 19
Case Is <= 5352
Return 20
Case Is <= 5712
Return 21
Case Is <= 6256
Return 22
Case Is <= 6880
Return 23
Case Is <= 7312
Return 24
Case Is <= 8000
Return 25
Case Is <= 8496
Return 26
Case Is <= 9024
Return 27
Case Is <= 9544
Return 28
Case Is <= 10136
Return 29
Case Is <= 10984
Return 30
Case Is <= 11640
Return 31
Case Is <= 12328
Return 32
Case Is <= 13048
Return 33
Case Is <= 13800
Return 34
Case Is <= 14496
Return 35
Case Is <= 15312
Return 36
Case Is <= 15936
Return 37
Case Is <= 16816
Return 38
Case Is <= 17728
Return 39
Case Is <= 18672
Return 40
Case Else
Return -1
End Select
'Corrección de errores del 25%
Case QRCodeEncoder.ERROR_CORRECTION.Q
Select Case ibits
Case Is <= 104
Return 1
Case Is <= 176
Return 2
Case Is <= 272
Return 3
Case Is <= 384
Return 4
Case Is <= 496
Return 5
Case Is <= 608
Return 6
Case Is <= 704
Return 7
Case Is <= 880
Return 8
Case Is <= 1056
Return 9
Case Is <= 1232
Return 10
Case Is <= 1440
Return 11
Case Is <= 1648
Return 12
Case Is <= 1952
Return 13
Case Is <= 2088
Return 14
Case Is <= 2360
Return 15
Case Is <= 2600
Return 16
Case Is <= 2936
Return 17
Case Is <= 3176
Return 18
Case Is <= 3560
Return 19
Case Is <= 3880
Return 20
Case Is <= 4096
Return 21
Case Is <= 4544
Return 22
Case Is <= 4912
Return 23
Case Is <= 5312
Return 24
Case Is <= 5744
Return 25
Case Is <= 6032
Return 26
Case Is <= 6464
Return 27
Case Is <= 6968
Return 28
Case Is <= 7288
Return 29
Case Is <= 7880
Return 30
Case Is <= 8264
Return 31
Case Is <= 8920
Return 32
Case Is <= 9368
Return 33
Case Is <= 9848
Return 34
Case Is <= 10288
Return 35
Case Is <= 10832
Return 36
Case Is <= 11408
Return 37
Case Is <= 12016
Return 38
Case Is <= 12656
Return 39
Case Is <= 13328
Return 40
Case Else
Return -1
End Select
' Corrección de error del 30%
Case QRCodeEncoder.ERROR_CORRECTION.H
Select Case ibits
Case Is <= 72
Return 1
Case Is <= 128
Return 2
Case Is <= 208
Return 3
Case Is <= 288
Return 4
Case Is <= 368
Return 5
Case Is <= 480
Return 6
Case Is <= 528
Return 7
Case Is <= 688
Return 8
Case Is <= 800
Return 9
Case Is <= 976
Return 10
Case Is <= 1120
Return 11
Case Is <= 1264
Return 12
Case Is <= 1440
Return 13
Case Is <= 1576
Return 14
Case Is <= 1784
Return 15
Case Is <= 2024
Return 16
Case Is <= 2264
Return 17
Case Is <= 2504
Return 18
Case Is <= 2728
Return 19
Case Is <= 3080
Return 20
Case Is <= 3248
Return 21
Case Is <= 3536
Return 22
Case Is <= 3712
Return 23
Case Is <= 4112
Return 24
Case Is <= 4304
Return 25
Case Is <= 4768
Return 26
Case Is <= 5024
Return 27
Case Is <= 5288
Return 28
Case Is <= 5608
Return 29
Case Is <= 5960
Return 30
Case Is <= 6344
Return 31
Case Is <= 6760
Return 32
Case Is <= 7208
Return 33
Case Is <= 7688
Return 34
Case Is <= 7888
Return 35
Case Is <= 8432
Return 36
Case Is <= 8768
Return 37
Case Is <= 9136
Return 38
Case Is <= 9776
Return 39
Case Is <= 10208
Return 40
Case Else
Return -1
End Select
End Select
End Function
Private Sub establecerColorFondoQR()
Dim dlSeleccionColor As New ColorDialog
dlSeleccionColor.FullOpen = True
dlSeleccionColor.Color =
Color.FromArgb(pColorFondo.BackColor.ToArgb)
If dlSeleccionColor.ShowDialog =
Windows.Forms.DialogResult.OK Then
pColorFondo.BackColor = dlSeleccionColor.Color
colorFondoQR = pColorFondo.BackColor.ToArgb
End If
dlSeleccionColor.Dispose()
End Sub
Private Sub establecerColorQR()
Dim dlSeleccionColor As New ColorDialog
dlSeleccionColor.FullOpen = True
dlSeleccionColor.Color =
Color.FromArgb(pColorQR.BackColor.ToArgb)
If dlSeleccionColor.ShowDialog =
Windows.Forms.DialogResult.OK Then
pColorQR.BackColor = dlSeleccionColor.Color
colorQR = pColorFondo.BackColor.ToArgb
End If
dlSeleccionColor.Dispose()
End Sub
Private Sub btColorFondo_Click(sender As System.Object,
e As System.EventArgs) _
Handles btColorFondo.Click, pColorFondo.Click
establecerColorFondoQR()
End Sub
Private Sub btColorQR_Click(sender As System.Object,
e As System.EventArgs) _
Handles btColorQR.Click, pColorQR.Click
establecerColorQR()
End Sub
Private Sub pColorQR_Click(sender As System.Object,
e As System.EventArgs)
establecerColorQR()
End Sub
Private Sub pColorFondo_Click(sender As System.Object,
e As System.EventArgs)
establecerColorFondoQR()
End Sub
Private Sub formLeerGenerarCodigosQR_Load(sender As System.Object,
e As System.EventArgs) Handles MyBase.Load
lsNivelCorreccion.SelectedIndex = 1
txtEscalaPixel.Text = 4
pColorFondo.BackColor = Color.FromArgb(colorFondoQR)
pColorQR.BackColor = Color.FromArgb(colorQR)
tabFormatoQR.SelectedTab = tabQRSMS
txtSMSMensaje_TextChanged(sender, e)
End Sub
Private Sub txtSMSMensaje_TextChanged(sender As System.Object,
e As System.EventArgs) Handles txtSMSMensaje.TextChanged,
txtSMSNumeroTelefono.TextChanged
txtTextoQR.Text = "SMSTO:" + txtSMSNumeroTelefono.Text +
":" + txtSMSMensaje.Text
End Sub
Private Sub txtURL_TextChanged(sender As System.Object,
e As System.EventArgs) Handles txtURL.TextChanged
txtTextoQR.Text = txtURL.Text
End Sub
Private Sub txtTextoLibre_TextChanged(sender As System.Object,
e As System.EventArgs) Handles txtTextoLibre.TextChanged
txtTextoQR.Text = txtTextoLibre.Text
End Sub
Private Sub txtNumeroTelefono_TextChanged(sender As System.Object,
e As System.EventArgs) Handles txtNumeroTelefono.TextChanged
txtTextoQR.Text = "TEL:" + txtNumeroTelefono.Text
End Sub
Private Sub txtVcardNombre_TextChanged(sender As System.Object,
e As System.EventArgs) Handles txtVcardNombre.TextChanged,
txtVcardURL.TextChanged, txtVcardTelefono.TextChanged,
txtVcardMail.TextChanged, txtVcardEmpresa.TextChanged,
txtVcardDireccion.TextChanged, txtVcardCargo.TextChanged
txtTextoQR.Text = "BEGIN:VCARD" + vbCrLf + "N:" + txtVcardNombre.Text + _
vbCrLf + "TITLE:" + txtVcardCargo.Text + vbCrLf + "ORG:" + _
txtVcardEmpresa.Text + vbCrLf + "ADDR:" + txtVcardDireccion.Text + _
vbCrLf + "TEL:" + txtVcardTelefono.Text + vbCrLf + "EMAIL:" + _
txtVcardMail.Text + vbCrLf + "URL:" +
txtVcardURL.Text + vbCrLf + "END:VCARD"
End Sub
Private Sub txtEMailDestinatario_TextChanged(sender As System.Object,
e As System.EventArgs) Handles txtEMailDestinatario.TextChanged,
txtEMailMensaje.TextChanged, txtEMailAsunto.TextChanged
txtTextoQR.Text = "SMTP:" + txtEMailDestinatario.Text + _
":" + txtEMailAsunto.Text + ":" + txtEMailMensaje.Text
End Sub
Private Sub txtEventoAsunto_TextChanged(sender As System.Object,
e As System.EventArgs) Handles txtEventoAsunto.TextChanged,
txtEventoUbicacion.TextChanged, txtEventoHastaHora.ValueChanged,
txtEventoHasta.ValueChanged, txtEventoDesdeHora.ValueChanged,
txtEventoDesde.ValueChanged, txtEventoDescripcion.TextChanged
txtTextoQR.Text = "BEGIN:VEVENT" + vbCrLf + "SUMMARY:" +
txtEventoAsunto.Text + vbCrLf +
"DTSTART:" +
txtEventoDesde.Value.Year.ToString("0000") +
txtEventoDesde.Value.Month.ToString("00") +
txtEventoDesde.Value.Day.ToString("00") +
"T" + txtEventoDesdeHora.Value.Hour.ToString("00") +
txtEventoDesdeHora.Value.Minute.ToString("00") +
"00" + vbCrLf +
"DTEND:" + txtEventoHasta.Value.Year.ToString("0000") +
txtEventoHasta.Value.Month.ToString("00") +
txtEventoHasta.Value.Day.ToString("00") +
"T" + txtEventoHastaHora.Value.Hour.ToString("00") +
txtEventoHastaHora.Value.Minute.ToString("00") +
"00" + vbCrLf +
"LOCATION:" + txtEventoUbicacion.Text + vbCrLf +
"DESCRIPTION:" + txtEventoDescripcion.Text +
vbCrLf + "END:VEVENT"
End Sub
Private Sub btGenerarQR_Click(sender As System.Object,
e As System.EventArgs) Handles btGenerarQR.Click
If txtEscalaPixel.Text.Trim = "" Then
MsgBox("Debe indicar la escala de los píxeles del " +
"QR que se generará.",
MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
txtEscalaPixel.Focus()
Else
If Val(txtEscalaPixel.Text) = 0 Then
txtEscalaPixel.Text = 4
End If
Dim generarCodigoQR As QRCodeEncoder = New QRCodeEncoder
generarCodigoQR.QRCodeEncodeMode =
Codec.QRCodeEncoder.ENCODE_MODE.BYTE
generarCodigoQR.QRCodeScale = Int32.Parse(txtEscalaPixel.Text)
Select Case lsNivelCorreccion.Text
Case "Bajo (7%)"
generarCodigoQR.QRCodeErrorCorrect =
Codec.QRCodeEncoder.ERROR_CORRECTION.L
Case "Medio (15%)"
generarCodigoQR.QRCodeErrorCorrect =
Codec.QRCodeEncoder.ERROR_CORRECTION.M
Case "Alto (25%)"
generarCodigoQR.QRCodeErrorCorrect =
Codec.QRCodeEncoder.ERROR_CORRECTION.Q
Case "Muy alto (30%)"
generarCodigoQR.QRCodeErrorCorrect =
Codec.QRCodeEncoder.ERROR_CORRECTION.H
End Select
'La versión "0" calcula automáticamente el tamaño
generarCodigoQR.QRCodeVersion = 0
'' --------- Forzar una determinada version -----------
''En caso de querer forzar una determinada version
'(tamaño) el siguiente código devuelve la
''versión mínima para el texto que se quiere códificar:
'Dim iVersion As Integer =
' AdjustQRVersion(TextBox1.Text, QRCodeEncoder.QRCodeErrorCorrect)
'If iVersion = -1 Then
' MessageBox.Show("El texto es demasiado grande o el " +
' "Correction Level (ERROR_CORRECTION) no es el apropiado")
' Exit Sub
'Else
' qrCodeEncoder.QRCodeVersion = iVersion
'End If
'' -----------------------------------------------------
generarCodigoQR.QRCodeBackgroundColor =
System.Drawing.Color.FromArgb(colorFondoQR)
generarCodigoQR.QRCodeForegroundColor =
System.Drawing.Color.FromArgb(colorQR)
Try
If opForzarUTF.Checked Then
'Con UTF-8 podremos añadir caracteres como ñ, tildes, etc.
imgQR.Image = generarCodigoQR.Encode(txtTextoQR.Text,
System.Text.Encoding.UTF8)
Else
imgQR.Image = generarCodigoQR.Encode(txtTextoQR.Text)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
End Try
End If
End Sub
Private Sub txtRedWifiSSID_TextChanged(sender As System.Object,
e As System.EventArgs) Handles txtRedWifiSSID.TextChanged,
txtRedWifiContrasena.TextChanged, lsRedWifiTipo.TextChanged
Dim tipoWifi As String = "nopass"
If lsRedWifiTipo.Text = "Sin encriptación" Then
tipoWifi = "nopass"
End If
If lsRedWifiTipo.Text = "WPA/WPA2" Then
tipoWifi = "WPA"
End If
If lsRedWifiTipo.Text = "WEP" Then
tipoWifi = "WEP"
End If
txtTextoQR.Text = "WIFI:S:" + txtRedWifiSSID.Text + ";T:" +
tipoWifi + ";P:" + txtRedWifiContrasena.Text + ";;"
End Sub
Private Sub txtGeoLatitud_TextChanged(sender As System.Object,
e As System.EventArgs) Handles txtGeoLatitud.TextChanged,
txtGeoLongitud.TextChanged, txtGeoConsulta.TextChanged
txtTextoQR.Text = "geo:" + txtGeoLatitud.Text + "," +
txtGeoLongitud.Text + "?=" + txtGeoConsulta.Text
End Sub
Private Sub btGuardarQR_Click(sender As System.Object,
e As System.EventArgs) Handles btGuardarQR.Click
Dim dlGuardar As New SaveFileDialog
If IsNothing(imgQR.Image) Then
MsgBox("No se ha generado el Código QR. Antes de guardar " +
"debe generar un código QR.",
MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
Else
dlGuardar.Filter = "JPEG|*.jpg|Mapa de Bits|*.bmp|Gif|*.gif|PNG|*.png"
dlGuardar.Title = "Guardar código QR"
dlGuardar.FileName = "codigo_qr"
dlGuardar.ShowDialog()
If (dlGuardar.FileName <> "") Then
Select Case dlGuardar.FilterIndex
Case 1
imgQR.Image.Save(dlGuardar.FileName,
System.Drawing.Imaging.ImageFormat.Jpeg)
Case 2
imgQR.Image.Save(dlGuardar.FileName,
System.Drawing.Imaging.ImageFormat.Bmp)
Case 3
imgQR.Image.Save(dlGuardar.FileName,
System.Drawing.Imaging.ImageFormat.Gif)
Case 4
imgQR.Image.Save(dlGuardar.FileName,
System.Drawing.Imaging.ImageFormat.Png)
End Select
End If
End If
End Sub
Private Sub btImprimirQR_Click(sender As System.Object,
e As System.EventArgs) Handles btImprimirQR.Click
If IsNothing(imgQR.Image) Then
MsgBox("No se ha generado el Código QR. Antes de " +
"imprimir debe generar un código QR.",
MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
Else
dlImprimir.Document = imprimirDoc
If dlImprimir.ShowDialog = Windows.Forms.DialogResult.OK Then
imprimirDoc.Print()
End If
End If
End Sub
Private Sub PrintDocument1_PrintPage(sender As System.Object,
e As System.Drawing.Printing.PrintPageEventArgs) _
Handles imprimirDoc.PrintPage
e.Graphics.DrawImage(imgQR.Image, 0, 0)
End Sub
Private Sub btSelImagenQR_Click(sender As System.Object,
e As System.EventArgs) Handles btSelImagenQR.Click
Dim dlAbrirImagenQR As New OpenFileDialog
dlAbrirImagenQR.InitialDirectory =
My.Computer.FileSystem.SpecialDirectories.MyPictures
dlAbrirImagenQR.Filter = "*.bmp;*.gif;*.jpg;*.png|*.bmp;*.gif;*.jpg;*.png"
dlAbrirImagenQR.RestoreDirectory = True
dlAbrirImagenQR.CheckFileExists = True
dlAbrirImagenQR.CheckPathExists = True
If dlAbrirImagenQR.ShowDialog = Windows.Forms.DialogResult.OK Then
txtLeerQRImagen.Text = dlAbrirImagenQR.FileName
End If
End Sub
Private Sub btDecodificarImagenQR_Click(sender As System.Object,
e As System.EventArgs) Handles btDecodificarImagenQR.Click
If IsNothing(imgQRExistente.Image) Then
MsgBox("Antes de decodificar una imagen QR a su texto " +
"correspondiente QR Code debe seleccionar la imagen.",
MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
btSelImagenQR.Focus()
Else
Try
Dim decoder As QRCodeDecoder = New QRCodeDecoder
If opLeerForzarUTF8.Checked Then
txtLeerQRTexto.Text =
decoder.decode(New QRCodeBitmapImage( _
New Bitmap(imgQRExistente.Image)),
System.Text.Encoding.UTF8)
Else
txtLeerQRTexto.Text =
decoder.decode(New QRCodeBitmapImage( _
New Bitmap(imgQRExistente.Image)))
End If
Catch ex As Exception
MsgBox(ex.Message,
MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
End Try
End If
End Sub
Private Sub txtLeerQRImagen_TextChanged(sender As System.Object,
e As System.EventArgs) Handles txtLeerQRImagen.TextChanged
If System.IO.File.Exists(txtLeerQRImagen.Text) Then
imgQRExistente.Image = New Bitmap(txtLeerQRImagen.Text)
End If
End Sub
Private Sub tabFormatoQR_SelectedIndexChanged(sender As System.Object, _
e As System.EventArgs) Handles tabFormatoQR.SelectedIndexChanged
If tabFormatoQR.SelectedTab Is tabQRSMS Then
txtSMSMensaje_TextChanged(sender, e)
End If
If tabFormatoQR.SelectedTab Is tabQRURL Then
txtURL_TextChanged(sender, e)
End If
If tabFormatoQR.SelectedTab Is tabQRTexto Then
txtTextoLibre_TextChanged(sender, e)
End If
If tabFormatoQR.SelectedTab Is tabQRNumeroTelefono Then
txtNumeroTelefono_TextChanged(sender, e)
End If
If tabFormatoQR.SelectedTab Is tabQRVcard Then
txtVcardNombre_TextChanged(sender, e)
End If
If tabFormatoQR.SelectedTab Is tabQRMAIL Then
txtEMailDestinatario_TextChanged(sender, e)
End If
If tabFormatoQR.SelectedTab Is tabQREvento Then
txtEventoAsunto_TextChanged(sender, e)
End If
If tabFormatoQR.SelectedTab Is tabQRRedWifi Then
txtRedWifiSSID_TextChanged(sender, e)
End If
If tabFormatoQR.SelectedTab Is tabQRGeolocalizacion Then
txtGeoLatitud_TextChanged(sender, e)
End If
End Sub
Private Sub linkURL_LinkClicked(sender As System.Object, _
e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
Handles linkURL.LinkClicked
System.Diagnostics.Process.Start("http://www.ajpdsoft.com")
End Sub
End Class
AjpdSoft Generador y lector códigos QR en funcionamiento
Generar códigos QR con AjpdSoft Generador y lector códigos QR
Tras ejecutar AjpdSoft Generador y Lector códigos QR,
para generar un código de barras QR pulsaremos en la pestaña "Generar
QR". Podremos generar un código QR con un formato determinado para
enviar un SMS, indicar una URL (dirección de página web), un texto
variable (libre), para hacer una llamada a un número de teléfono, para
insertar un contacto en la agenda del teléfono móvil, para enviar un
correo electrónico, para insertar un evento o cita en nuestro
calendario, para conectarnos a una red wifi, para acceder a un lugar.
Para generar un QR con cualquiera de estos formatos pulsaremos en la
pestaña apropiada, por ejemplo, para insertar una cita en el calendario
del teléfono móvil pulsaremos en la ficha "Evento", introduciremos los
datos (asunto, ubicación, desde, hasta, descripción) y, en la pestaña
"Texto QR" podremos ir viendo el texto que se generará en el QR:
Cuando tengamos el texto introducido pulsaremos en la
ficha "QR", podremos elegir el nivel de corrección (por defecto Medio
15%), el color de fondo para el QR, el color del propio QR (no deben ser
el mismo ni colores muy "difuminados", de lo contrario no podrá leerse
el QR), la escala del pixel (por defecto 4) y si queremos forzar UTF-8.
Una vez elegidas las opciones de configuración pulsaremos en el botón
"Generar QR":
Si todo es correcto se generará el código QR en la parte inferior de AjpdSoft Generador y Lector códigos QR. Si queremos guardar el código QR generado en un fichero de imagen pulsaremos en el botón "Guardar QR":
Seleccionaremos la carpeta y el nombre para el
fichero de imagen así como el formato en el que queramos guardarlo en
"Tipo": JPEG, BMP, GIF ó PNG y pulsaremos "Guardar":
Si queremos imprimir el código QR Quick Response Barcode en papel o en una impresora PDF pulsaremos en "Imprimir QR":
Seleccionaremos la impresora y pulsaremos "Imprimir":
Leer y decodificar código QR de imagen con AjpdSoft Generador y Lector códigos QR
Tras ejecutar AjpdSoft Generador y Lector códigos QR,
para decodificar o leer el contenido de un código de barras QR ya
generado y guardado en imagen pulsaremos en la pestaña "Leer QR ".
Podremos decodificar cualquier tipo de código QR, pulsaremos en el botón
de selección de fichero con código QR:
Seleccionaremos el fichero que contiene el código QR y pulsremos "Abrir":
Se mostrará en la parte inferior, para decodificarlo pulsaremos en el botón "Leer QR":
Si es un código QR correcto en la parte inferior, en
"Texto resultante" mostrará el texto contenido y decodificado del QR
seleccionado:
Escanear códigos QR con smartphone Samsung Galaxy SII y aplicación QR Droid
Para decodificar o leer códigos QR de carteles u
otros medios impresos (incluso de pantallas de PC o televisión) con un
dispositivo móvil smartphone (Android
o iPhone) o Tablet PC instalaremos alguna aplicación de las existentes
en el mercado. En este ejemplo usaremos un móvil smartphone Samsung
Galaxy SII y un LG Optimux 2x, el procedimiento es el mismo
prácticamente para cualquier móvil con Android como sistema operativo y también parecido para móviles con iOS (iPhone). Accederemos a Market (en el caso de móviles con Android) o a App Store
(en el caso de iPhone con iOS), buscaremos la aplicación a instalar. En
este ejemplo buscaremos QR Droid, aplicación gratutia (con publicidad)
para escanear códigos QR:
Pulsaremos en "Aceptar y descargar":
Se iniciará la descarga e instalación de la aplicación para escanear códigos QR desde nuestro móvil:
Tras la instalación, pulsaremos "Abrir" para ejecutar la aplicación QR Droid:
La aplicación para leer códigos QR en Samsung Galaxy SII nos mostrará un mensaje inicial co nel texto:
QR Droid te permite usar tu cámara para escanear un código QR de una revista y mirar un vídeo de inmediato. O crear un código de cun contacto de tu móvil, dejar que un amigo lo escanee y compartir esa información.
Pulsaremos en "Cerrar":
Para escaner un código QR de una revista, cartel,
panfleto de publicidad, televisión, monitor de PC o desde la pantalla de
otro móvil pulsaremos en la sopala "Escanear" y en "De la cámara":
La aplicación usará la cámara de fotos para leer el
código QR. Situaremos el código QR a escanear en el centro del recuadro
que se muestra en la cámara de fotos y, cuando lo detecte la aplicación,
lo decodificará automáticamente:
En el ejemplo hemos escaneado un código QR de la pantalla del PC para insetar un evento en nuestro calendario del móvil:
En el caso de la aplicación QR Droid, detecta el tipo
de código QR (según el texto que contenga) y, como en este caso es un
evento o cita, nos mustra el botón "Añadir", si pulsamos podremos añadir
una cita en Google Calendar de forma automática:
El evento o cita quedará guardado en nuestro
calendario sin haber tecleado nada, todo de forma automática gracias a
los códigos QR. De la misma forma podremos añadir contactos, enviar SMS,
hacer una llamada, acceder a un lugar, conectarnos a una red wifi,
enviar un correo electrónico, etc. usando códigos QR:
Artículos relacionados
- Estructura del código de barras EAN 13 y ejemplo en Delphi de obtención de datos.
- AjpdSoft Generador de códigos de barras.
- Desarrollar aplicación lector de códigos de barras para Android con App Inventor.
- AjpdSoft Socket VB.Net.
- AjpdSoft Envío SMS VB.Net.
- AjpdSoft Inventario PCs - Código fuente Delphi.
- Insertar evento de Google Calendar con Visual Basic .Net y Google Data API.
- AjpdSoft Insertar Evento Google Calendar VB.net.
- Crear proceso en segundo plano con barra de progreso en Visual Basic .Net VB.Net.
- Instalar Visual Studio 2010 y desarrollar aplicación con acceso a PostgreSQL.
- El control de errores en Visual Basic .Net.
- Acceso a MySQL mediante Visual Basic .Net y ODBC.
- Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC.
- Insertar y extraer documentos en una tabla Oracle con Visual Basic 6.
- Cambiar marcadores de Word por valores del formulario de una aplicación.
- Exportar ListView a fichero CSV VB.Net.
- Función para reemplazar una cadena de texto dentro de otra - Visual Basic.
- Funciones para leer y escribir en ficheros INI VB.Net.
- AjpdSoft Envío EMail SSL VB.Net.
- AjpdSoft Conexión BD Visual Basic .Net.
- Artículos, manuales y trucos del Proyecto AjpdSoft sobre Microsoft Visual Studio.
- Todos los programas con código fuente en Visual Basic.
- Foro del Proyecto AjpdSoft sobre Visual Basic, Visual Studio .Net, VB.Net.
Créditos
Artículo realizado íntegramente por Alonsojpd miembro fundador del Proyecto AjpdSoft.
Suscribirse a:
Entradas (Atom)