ByteScout BarCode Generator SDK – VBScript – QR Code Barcode With Image Inside

Home
/
Articles
/
ByteScout BarCode Generator SDK – VBScript – QR Code Barcode With Image Inside

printable version:
ByteScout-Barcode-SDK-VBScript-QR-Code-Barcode-With-Image-Inside.pdf

QR code barcode with image inside in VBScript using ByteScout Barcode SDK

Write code in VBScript to make QR code barcode with image inside with this How-To tutorial

The sample source codes on this page will demonstrate you how to make QR code barcode with image inside in VBScript. ByteScout Barcode SDK helps with QR code barcode with image inside in VBScript. ByteScout Barcode SDK is the robost SDK that generates high quality barcode images and pdf. Can generate all popular types of barcodes from QR Code, Code 39, Code 128, UPC, GS1, GS-128, PDF417, Datamatrix to more exotic barcode types. Fully customizable fonts, colors, print sizes. Includes special functions to ensure output quality, and tools for adding barcodes to new or existing pdf files and images.

VBScript code snippet like this for ByteScout Barcode SDK works best when you need to quickly implement QR code barcode with image inside in your VBScript application. This VBScript sample code should be copied and pasted into your application’s code editor. Then just compile and run it to see how it works. Enhanced documentation and tutorials are available along with installed ByteScout Barcode SDK if you’d like to dive deeper into the topic and the details of the API.

ByteScout Barcode SDK is available as free trial. You may get it from our website along with all other source code samples for VBScript applications.

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

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

QRCodeWithImage.vbs

      ' Create and activate barcode generator instance
Set barcode = CreateObject("Bytescout.BarCode.Barcode")
barcode.RegistrationName = "demo"
barcode.RegistrationKey = "demo"

' Set barcode type
barcode.Symbology = 16 ' 16 = QRCode symbology

' Set high QR Code error correction level
barcode.Options.QRErrorCorrectionLevel = 3 ' 3 = QRErrorCorrectionLevel.High

' Set barcode value
barcode.Value = "1234567890 abcdefghijklmnopqrstuvwxyz 1234567890 abcdefghijklmnopqrstuvwxyz"

' Add decoration image and scale it to 15% of the barcode square
barcode.AddDecorationImage ".\logo.png", 15

barcode.SaveImage "result.png"

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

Set barcode = Nothing