ByteScout Barcode Suite – VBScript – Qr code barcode with image inside with barcode sdk

Home
/
Articles
/
ByteScout Barcode Suite – VBScript – Qr code barcode with image inside with barcode sdk

printable version:
ByteScout-Barcode-Suite-VBScript-Qr-code-barcode-with-image-inside-with-barcode-sdk.pdf

qr code barcode with image inside with barcode sdk in VBScript and ByteScout Barcode Suite

Learn to code qr code barcode with image inside with barcode sdk in VBScript: How-To tutorial

This page helps you to learn from code samples for programming in VBScript. ByteScout Barcode Suite was created to assist qr code barcode with image inside with barcode sdk in VBScript. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK.

VBScript code snippet like this for ByteScout Barcode Suite works best when you need to quickly implement qr code barcode with image inside with barcode sdk in your VBScript application. To use qr code barcode with image inside with barcode sdk in your VBScript project or application just copy & paste the code and then run your app! VBScript application implementation mostly involves various stages of the software development so even if the functionality works please check it with your data and the production environment.

Trial version along with the source code samples for VBScript can be downloaded from our website

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