VBScript, JavaScript, Lotus Domino, LotusScript
Códigos de barras en lenguajes de programación

Puede utilizar ActiveBarcode con VisualBasic-Script (VBS, Windows Script Host) para crear códigos de barras en scripts de forma automática. Este ejemplo muestra lo sencillo que es utilizar ActiveBarcode en VBS.

Primero haga que el control ActiveBarcode esté disponible en su script:

  Dim barcode
  Set barcode = WScript.CreateObject("ACTIVEBARCODE.BarcodeCtrl.1")

Ahora puede utilizar la variable barcode para acceder al control.
Utilice las Propiedades del control para crear el código de barras que desee:

  barcode.Typename = "Code128"
  barcode.Text = "123456789012"

A continuación, utilice el método SaveAsBySize para guardar el código de barras en un tamaño específico en un archivo de imagen:

  barcode.SaveAsBySize "beispielbarcode.png",400,200

Haga clic aquí para descargar el ejemplo anterior como archivo wsf.

Un ejemplo muy detallado para una aplicación VisualBasicScript es la aplicación de consola BarcodeImage:

• Proyecto de código abierto: BarcodeImage @ GitHub.
• Source code BarcodeImage.wsf.
• Descargar BarcodeImage.wsf.

Puede utilizar este código fuente para aprender a utilizar el Control ActiveBarcode en un script VBS o puede utilizarlo como base para su propio script.

Utilice el control ActiveBarcode con JavaScript para crear un código de barras:

  // Create the control:
  ab = new ActiveXObject("ACTIVEBARCODE.BarcodeCtrl.1");
  
  // Set the barcode type and content:
  ab.text = "Example";
  ab.typename = "Code 128";
  
  // Save the barcode as image file:
  ab.SaveAsBySize("example.bmp", 400, 100);
  

Pista: Un enfoque más universal con JavaScript es utilizar la API REST de ActiveBarcode.

Este es un ejemplo de script para ejecutar bajo Lotus Domino de IBM como agente LotusScript:

Option Public
Option Declare
  
Sub Initialize()
  Dim MyObject As variant
  Set MyObject = CreateObject("ACTIVEBARCODE.BarcodeCtrl.1")
  MyObject.text = "Example"
  MyObject.typename = "Code 128"
  MyObject.SaveAsBySize "c:\example.bmp", 400, 100
End Sub