ByteScout Premium Suite – VBScript – Add barcodes to image with barcode sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Add barcodes to image with barcode sdk

printable version:
ByteScout-Premium-Suite-VBScript-Add-barcodes-to-image-with-barcode-sdk.pdf

How to add barcodes to image with barcode sdk in VBScript and ByteScout Premium Suite

Continuous learning is a crucial part of computer science and this tutorial shows how to add barcodes to image with barcode sdk in VBScript

ByteScout simple and easy to understand tutorials are planned to describe the code for both VBScript beginners and advanced programmers. ByteScout Premium Suite can add barcodes to image with barcode sdk. It can be applied from VBScript. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

The following code snippet for ByteScout Premium Suite works best when you need to quickly add barcodes to image with barcode sdk in your VBScript application. This VBScript sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Enjoy writing a code with ready-to-use sample VBScript codes.

ByteScout provides the free trial version of ByteScout Premium Suite along with the documentation and source code samples.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

AddBarcodeToImage.vbs

      ' Create barcode object and register it
Set barcode = CreateObject("Bytescout.BarCode.Barcode")
barcode.RegistrationName = "demo"
barcode.RegistrationKey = "demo"

' set symbology to PDF417
barcode.Symbology = 13 ' 13 = PDF417 symbology type

' set barcode value to encode
barcode.Value = "Sample barcode" 

' Place barcode at bottom-right corner of the image
barcode.DrawToImage "..\wikipedia.png", -1, 400, 900, "result.png"

' Open the output file in default image viewer.
Set shell = CreateObject("WScript.Shell")
shell.Run "result.png", 1, false
Set shell = Nothing

Set barcode = Nothing